Makroyla eklenen şeklin içine metin yazdırmak

[m.cay]

Makroyla eklediğim şeklin içine bir hücredeki metni yazdırmak istiyorum. Şekil eklediğim kod aşağıda. Bu şekilde otomatik olarak butonla şekil ekleyebiliyorum ancak içine istediğim yazıyı yazdıramıyorum. Manuel olarak kendim yazmam gerekiyor. Yardımcı olabilecek varsa çok sevinirim.

Sub Makro2()

ActiveSheet.Shapes.AddShape msoShapeRectangle, 91, 91, 91, 125

End Sub

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Sub Makro2()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 91, 91, 91, 125).Select
Selection.Characters.Text = Range("A1")

End Sub

.

 

[m.cay]

Çok teşekkürler.