şekli seçip rengini değiştirmek istiyorum

[mocalan]

merhaba,
ben adını bir değişkenden alan şekli seçip rengini değiştirmek istiyorum.

ActiveSheet.Shapes.Range(Array("sekil_adı")).Select komutunu kullanmak istiyorum ama şekil adını doğrudan yazamadığım için bu komutu kullanamıyorum.
activesheet.shapes("sekil_adı").select komutunu da aynı nedenle kullanamıyorum. şekil adının ve renginin değişken olduğu durumlarda şekli nasıl seçip o renge boyayabilirim?

(şekil, adını "firmaadı" değişkeninden alacak, rengi de "firmarengi" değişkeninden renk kodu olarak alacak)

 

[ExcelF1]

Ek'li dosyayı inceleyiniz.

 

[mocalan]

orjinal dosyayı gönderiyorum.

merhaba,
ilginiz için teşekkür ederim. sanırım orjinal dosya üzerinden gidersek daha iyi olacak. o dosya üzerinde bana yardımcı olabilirseniz sevinirim.
teşekkürler.

 

[mocalan]

sanırım olmaya başladı

ben birçok yazıyı okuyup onlardan edindiğim bilgileri derleyerek ekteki dosyayı oluşturdum. Ancak şekil çizili sayfam baskı önizleme yapıldığında 1431 sayfa görünüyor. Neden olduğu ve nasıl normale döndürebileceğim konusunda bana yardım edebilir misiniz?