Veriye Göre Şekil Ekleme

[Talha1616]

Merhabalar,

Örnek veriyorum:

A1:A9 hücrelerimin arasında hangisinde veri yazıyor ise boş bir alana her hücredeki veri için bir şekil eklemek istemekteyim. (Rectangle)
* Şekil sabit rectangle olacaktır.

Bunu sizce nasıl yapabilirim?


Destekleriniz için teşekkürler, iyi çalışmalar dilerim.

 

[bmutlu966]

Bir modüle ekleyip deneyiniz.

Sub deneme()

For t = 1 To 9
    If Cells(t, "A") <> "" Then
      
        ActiveSheet.Shapes.AddShape(msoShapeRectangle, 150 + t * 100, 50, 100, 50).Select
        Selection.ShapeRange.ShapeStyle = msoShapeStylePreset10
        Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Cells(t, "A").Value

    End If
Next
Range("A1").Select

End Sub