- Katılım
- 29 Ekim 2004
- Mesajlar
- 31
Ã?rnek dosyadada gösterdiğim gibi Hücreye girdiğim sayıya göre şeklin eninin büyüyüp küçülmesini istiyorum.
:hiho:
:hiho:
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Selection.ShapeRange.Height = [a1]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes("Rectangle 1").Height = Range("A1") / 10 * 3.2 * 72 / 2.54
End Sub