Excel 2007'deki şekillerin içeriğini kod ile değiştirmek

[turan1971]

Merhaba arkadaşlar.
Sayfamda makroları çalıştırmak için düğmeler yerine şekiller kullanıyorum. Şekillere makro atamak kolay. Fakat kod ile o şeklin içeriğini değiştirmeyi başaramadım.
Mesela 'AÇ' diye bir şekil ile yapılmış tuşum var. Bu tuşa basınca ilgili kod çalışacak ama kodun en sonunda şeklin içeriğini 'KAPAT' diye değiştirecek. Bu mümkünmü, mümkünse nasıl yaparım.

 

[turan1971]

resimde makro çalıştıran tuşa bir örnek

 

[turan1971]

Bulduuummmmm


Sheets("Sayfa1").Shapes("kutu1").TextFrame.Characters.Text = "Daha Çok"