Rectangle nesnesine yazı ekleme

[m.cay]

Hücre değerlerine göre Rectangle (diktörtgen) nesnesi oluşturmaya çalışıyorum. Verdiğim değerlere göre şeklin boyutu değişiyor, ancak içine bir de belirlediğim bir yazıyı yazdırmak istiyorum. Yazdığım kod aşağıda.
Yardımcı olabilenlere şimdiden teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Shapes("Rectangle 1").Height = [O3]
ActiveSheet.Shapes("Rectangle 1").Width = [N3]


End Sub

 

[uzmanamele]

merhaba
kod yerine bu işinizi görür mü

 

[m.cay]

Görmez olur mu? İlgin için teşekkürler. Bu çözüm hiç aklıma gelmemişti doğrusu.