Userform Üzerine Resim

[vivident]

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 ?

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

 

[vivident]

Konu hakkında yardımınıza ihtiyaçım var. Dosya ilk açıldığında userform üzerine combobox ile grafik resmi getirmeye çalıştığımda "Run time error 481" hatası alıyorum.

Temp dosyasını temizledim. Fakat bi yararı olmadı.

 

[vardar07]

Konu hakkında yardımınıza ihtiyaçım var. Dosya ilk açıldığında userform üzerine combobox ile grafik resmi getirmeye çalıştığımda "Run time error 481" hatası alıyorum.

Temp dosyasını temizledim. Fakat bi yararı olmadı.

Merhaba. İmkanınız varsa başka bir bilgisayarda denermisiniz çünki dosyanızı denediğimde hiç hata vermedi. Yada office kaldırıp tekrar kurun veya onarması varsa onar deyin.

Not: Ben Office 2007 Enterprise kullanıyorum sorun görünmüyor.

 

[vivident]

Başka bir pc'de denedim. Evdeki pc'de ve işyerindeki pc'de office 2010 yüklü. İkisinde de problem yaşıyorum. Office 2007 kullanan arkadaşlara dosyayı gönderdim, problem yok diyorlar.

 

[Merhum İdris SERDAR]

.

Form kodlarını aşağıdaki şekilde yazarak, deneyin.

Private Sub ComboBox1_Change()

Dim Fname As String
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.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

.

 

[vivident]

.

Form kodlarını aşağıdaki şekilde yazarak, deneyin.

Private Sub ComboBox1_Change()

Dim Fname As String
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.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

.

Hata devam ediyor. Olmadı malesef

 

[Merhum İdris SERDAR]

Hata devam ediyor. Olmadı malesef

.

Bende çalışıyor.

Dosyanız ekte.

.

 

[vivident]

Gönderdiğiniz dosyayı masaüstüne çıkarttım. Deniyorum "Run time error 481" hatası veriyor. Sizde sanıyorum excel 2013 kullanıyorsunuz

Rica ediyorum 2010 kullanan bir arkadaş şu dosyayı deneyebilir mi ? Sadece çalışıyor, çalışmıyor desin. Valla sıyırıcam kafayı yaaa.

 

[Merhum İdris SERDAR]

Gönderdiğiniz dosyayı masaüstüne çıkarttım. Deniyorum "Run time error 481" hatası veriyor. Sizde sanıyorum excel 2013 kullanıyorsunuz

Rica ediyorum 2010 kullanan bir arkadaş şu dosyayı deneyebilir mi ? Sadece çalışıyor, çalışmıyor desin. Valla sıyırıcam kafayı yaaa.

.

Yukarıdaki dosyayı güncelledim. Tekrar dener misiniz?

.

 

[vivident]

Arkadaşlar hatanın videosunu çektim. Anlatmak istediğim olay bu

Dosyayı açıyorum. Comboboxdan "A" grafiğini seçiyorum ve hata alıyorum. Grafiğin bulunduğu sayfayı açıyorum. Grafiğin üzerine bir kez tıklıyorum. Sonra tekrar userforma dönüp "A" grafiğini seçiyorum ve grafiğin resmi userform üzerine geliyor

 

[vivident]

Yurttaş bey ilk çalışmada ve sonrakilerde hata almadım. Fakat ne seçersem seçeyim hep aynı grafik geliyor.

 

[Merhum İdris SERDAR]

Yurttaş bey ilk çalışmada ve sonrakilerde hata almadım. Fakat ne seçersem seçeyim hep aynı grafik geliyor.

.

Bir de bunu deneyin.


.

 

[vivident]

Olmuş vallahi, nasıl yaptınız, neredeymiş problem, lütfen anlatabilirmisiniz, çok merak ediyorum

 

[Merhum İdris SERDAR]

.....
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 ?

Buradan hareketle bazı kodlar ekledim.

.