Şekillerin Boyutlarını makro yardımıyla belirlemek....

[a.cogurcu]

Herkese slm...

Ben bir sütunda cm cinsinden bulunan değerleri makro yardımıyla şekillere -dikdörtgen- dönütürmek istiyorum.... Diyelim A sütünunda en ölçüsü ve B sütununda boy ölçüsünün olduğunu düşünelim ve alt alta yaklaşık 100 tane değer olduğunu kabul edelim ve C sütununda da bu şekillerin üzerine getirmek istediğim etiket var. Aynı zamanda her şekilin farklı renkte olmasını istiyorum....

Yardımcı olacak arkadaşlara şimdiden çok önemli.... Saygılar!!!

 

[a.cogurcu]

Yardımcı olacak kimse yok mu....

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek yapmak istediğiniz işlemi açıklarmısınız.

 

[janveljan]

Ekteki dosyayı inceler misiniz?

Sub Makro3()
    For i = 1 To 10
    gen = Cells(i, 1) * 28.5
    yuk = Cells(i, 2) * 28.5
    met = Cells(i, 3)
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, i * 28.5, i * 28.5, gen, yuk).Select
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = i * 7 'Rastgele renkler
    Selection.Characters.Text = met
    Next
End Sub

 

[a.cogurcu]

teşekkür edrim kendi dosyama uyarlamaya çalışacağım.Emeğine sağlık...