Sayıya göre şeklin büyüyüp küçülmesini istiyorum

[yilmazarslan]

Ã?rnek dosyadada gösterdiğim gibi Hücreye girdiğim sayıya göre şeklin eninin büyüyüp küçülmesini istiyorum.

:hiho:

 

[xxrt]

Dosyayı incelermisiniz.Dikdörtgenin adını kutu olarak değiştireceksiniz.Boyuna yükseltmek için

Selection.ShapeRange.Height = [a1]

 

[Haluk]

Alternatif:

 

[yilmazarslan]

TEÞEKKÜRLER.

 

[yilmazarslan]

Her sayı değişiminde otomatik şeklin büyüyüp küçülmesini istiyorum.Butona basmadan. Acaba mümkünmü

 

[Haluk]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveSheet.Shapes("Rectangle 1").Height = Range("A1") / 10 * 3.2 * 72 / 2.54
End Sub