Grafiği adlandırmak

[qwertylion]

Merhaba arkadaşlar,

Private Sub UserForm_Initialize()
Sheets("DENEME").ChartObjects(1).Activate
ActiveChart.Export ("C:\MyChart.jpg")
Image1.PictureSizeMode = fmPicturedrdığıSizeModeStretch
Image1.Picture = LoadPicture("C:\MyChart.jpg")
Kill ("C:\MyChart.jpg")
End Sub
koduyla grafiği userforma aktarıyorum ancak .ChartObjects(1).Activate bölümünü .ChartObjects("Aylık_İcmal").activate olarak değiştirmek istiyorum. Yani grafiği adlandırmak istiyorum. Bunu nasıl yapabilirim (yada yapabilirmiyim)
yardımlarınız için teşekkürler


(30 dan fazla grafiğim olduğu için karışıyor)

 

[qwertylion]

güncel hala sorunumu çözemedim; zira eklemem yada değiştirmemgereken grafik olduğu zaman işin işnden çıkılmıyor.

en azından mümkün olup olmadığını söyleyebilirmisiniz?

 

[Ferhat Pazarçevirdi]

Sayfa üzerindeki bir grafik objesini isimlendirmek için;

1. Shift tuşuna basılı iken, mouse ile grafiği seçin.,
2. Ad Kutusu'na istediğiniz ismi yazın.
Not : Ad Kutusu; Formül çubuğu ile aynı satırda bulunan ve soldaki ilk kutucuktur.

Grafiği isimlendirdikten sonra; (Örneğin:Aylık_İcmal ismini verdiyseniz)

Sheets("DENEME").ChartObjects("Aylık_İcmal").Activate

komutunun çalıştığını görürsünüz.


...

 

[qwertylion]

Teşekkür ederim hocam sorunsuz çalıştı