hücre değerine göre çizim yapma

[kral400]

değere göre çizim yapma

a1 hücresi ve b1 hücresine sayı giriyorum ve bu sayılara göre bir dikdörtgen oluşturmasını istiyorum. yardımcı olursanız sevinirimm.

 

[kral400]

a1 hücresi uzunluğu b1 hücresi genişliği versin.bu iki değere göre bana dikdörtgen oluştursun istiyorum.
mümkünse.
yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[rekkezum]

korhan hocam cok enteresan bir calisma, sari tabloyu nereden alip sheet1 e kopyaliyor acaba ?

 

[Korhan Ayhan]

Selamlar,

Hiçbir yerden almıyor. Çizim menüsünü kullanarak sayfa üzerine kendim ekledim.

 

[sunkid]

biraz daha hocam açıklarmısın konuyu süper bi çalışma

 

[kral400]

teşekkürler güzel çalışma

ama benim öğrenmek istediğim nasıl yaptığın benim tablom var ona uygulayacağım.

 

[Skorpiyon]

Sayın kral400,

Korhan Hocam sayfa üzerine (Kare) bir şekil eklemiş. A1 ve B1 hücrelerinden girilen değerleri aldırmış. Yazdığı kod ise;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1,B1]) Is Nothing Then Exit Sub 'Seçilen hücre A1 veya B1 değilse komutu çalıştırma.
ActiveSheet.Shapes("Rectangle 1").Select 'Sayfadaki şekli seç (Şeklin ismi Rectangle 1)
Selection.ShapeRange.Height = [B1] * 28.2 'Şeklin yüksekliği B1'e girilen değerin 28.2 ile çarpımıdır (Sanırım bu cm. e çevirmek için)
Selection.ShapeRange.Width = [A1] * 28.4 'Şeklin genişliği A1'e girilen değerin 28.4 ile çarpımıdır
[A1].Select 'A1 hücresini seç
End Sub

 

[kral400]

Tablo Ekte.
B38:b50= Uzunluk, C38:c50= GenİŞlİk DeĞerlerİ Var.yukarisinda Da Çİzİmler.

Bİrde Çİzİm BÜyÜklÜklerİ Benİm Tablodakİ Çİzİm Oranlarinda Olursa Sevİnİrİm.
Şİmdİden TeŞekkÜr Ederİm.

 

[Skorpiyon]

Sayın kral400,

Aşağıdaki kodları bir butona bağlayınız.


Sub ayarla()
b = 38
say = ActiveSheet.Shapes.Count
For a = 1 To say - 1
ActiveSheet.Shapes(a).Select
Selection.ShapeRange.Height = Cells(b, 3) * 28.2
Selection.ShapeRange.Width = Cells(b, 2) * 28.4
b = b + 1
Next a
[A1].Select
End Sub

Not : Eğer şekiller büyük çıkıyor diyorsanız koddaki 28.2 ve 28.4 rakamlarını uygun şekilde küçültünüz. Örneğin ikisinide 12 yapın gibi.

 

[uzmanamele]

merhaba
bu konu ile doğrudan ilişkisi yok, örnek olması ve fikir vermesi açısından ek dosyayı inceleyiniz.

aşağıdaki linkde dosyanın yapılma amacını görebilirsiniz.

http://www.excel.web.tr/showthread.php?t=52783