hücre değeri uzunlugunda şekil çizme

[egosiesta76]

A1 hucresınde 5
A2 hucresinde 7 yazılı olsun
otomatik olarak 5 ve 7 kenar uzunlukları olan dikdörtgen bır sekıl nasıl cizdirilir

 

[Merhum İdris SERDAR]

.

cm olarak. (cm istemiyorsanız, koddan 29,5'ları silin.)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set drtgn = Sheets("S1").Shapes("Rectangle 1")

With Sheets("S1")
    If .Range("A1") <> "" Then drtgn.Width = .Range("A1") * 29.5
    If .Range("A2") <> "" Then drtgn.Height = .Range("A2") * 29.5

End With
    
     
End Sub

.