- Katılım
- 12 Nisan 2008
- Mesajlar
- 199
- Excel Vers. ve Dili
- 2003 TÜRKÇE
- Altın Üyelik Bitiş Tarihi
- 03.02.2019
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)
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)