- Katılım
- 24 Kasım 2007
- Mesajlar
- 769
- Excel Vers. ve Dili
- Office 365 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 30-01-2024
Merhaba
Sentez sayfasındaki A-B-C-D-E-F-G-H isimli grafiklerin resimlerini çekerek userform üzerine ekleyen bir makrom var. Userform üzerindeki combobox ilede sürekli resimlerin değişmesini sağlıyorum. Fakat makro bi çalışıyor, bi çalışmıyor,
Dosyayı ilk açtığımda çalışmıyor. Sonra grafiklerin boyutlarını değiştirirsem veya yazılarını değiştirirsem, ne bileyim başlıklarını değiştirirsem, bu kez userforma resim olarak geliyor. Sorun nerde şimdi ?
Sentez sayfasındaki A-B-C-D-E-F-G-H isimli grafiklerin resimlerini çekerek userform üzerine ekleyen bir makrom var. Userform üzerindeki combobox ilede sürekli resimlerin değişmesini sağlıyorum. Fakat makro bi çalışıyor, bi çalışmıyor,
Dosyayı ilk açtığımda çalışmıyor. Sonra grafiklerin boyutlarını değiştirirsem veya yazılarını değiştirirsem, ne bileyim başlıklarını değiştirirsem, bu kez userforma resim olarak geliyor. Sorun nerde şimdi ?
Kod:
Private Sub ComboBox1_Change()
Dim Fname As String
Fname = Environ("Temp") & "\sil.gif"
Set grafik = Sheets("sentez").ChartObjects(ComboBox1.ListIndex + 1).Chart
grafik.Export Fname
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image1.Picture = LoadPicture(Fname)
Kill Fname
Set grafik = Nothing: Fname = vbNullString
End Sub
Ekli dosyalar
-
486.3 KB Görüntüleme: 15