veriden şekle dönüştürme

[bilsayi]

Öncelikle merhabalar,

benim sorum şu..excel hücresinde mm cinsinden bulunan uzunluk değerlerini şekle(ki dikdörtgen olacak) dönüştürmek istiyorum..Bu metin kutusuda olabilir ama reel değerlerde olmalı..Nasıl yapabilirim..

tşkler.

 

[Seyit Tiken]

A1 ve B1 hücrelerine değer girerek uzayan ve genişleyen şekli gözlemleyiniz. İlgili dosya ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Shapes("Text Box 1").Height = [a1]
Shapes("Text Box 1").Width = [b1]
End Sub