Grafik Adını Öğrenme

[alibaskan]

Arkadaşlar Günaydın,

Ekteki dosyada Grafik çerçevesine bir makro atanmıştır. Grafiğe tıkladığımda makro çalışacak ve grafiğin adını Msgbox ile görüntülemesini istiyorum. Grafiğin adı "İSTANBUL" dur. ActiveShapes, ActiveObjects, ActiveChart hepsini denedim ama grafiğe tıkladığımda ne obje ne grafik aktif olmadığından sonuç alamadım. Yardımcı olacaklara şimdiden teşekkürler.

 

[alibaskan]

Dosya Ektedir.

 

[Necdet]

Merhaba,

Sub deneme()

    MsgBox ActiveSheet.ChartObjects(1).Name

End Sub

 

[alibaskan]

Necdet Bey cevabınız için teşekkürler. Fakat sayfada birden fazla grafik var. Bu durumda bu kod benim tıkladığım grafik için çalışır mı? Ayrıca bir arkadaşın yardımıyla çözüme ulaştım. İhtiyacı olanlar için kod aşağıdadır;

Application.Caller.Visible = True
Sheets(Application.Caller).Select

 

[Necdet]

Necdet Bey cevabınız için teşekkürler. Fakat sayfada birden fazla grafik var. Bu durumda bu kod benim tıkladığım grafik için çalışır mı? Ayrıca bir arkadaşın yardımıyla çözüme ulaştım. İhtiyacı olanlar için kod aşağıdadır;

Application.Caller.Visible = True
Sheets(Application.Caller).Select

Tıklamaya değil graifiğin adını almaya odaklanmışım