Soru for next dongusu hak.

[bycakir]

merhaba arkadaşlar

aşagıdaki kodda image1 i for nex dongusunew sokamıyorum yardımcı olurmusunuz?

heets("kaynak").Select
ActiveSheet.ChartObjects.Select
Application.CommandBars("Format Object").Visible = False
Sheets("kaynak").Select
rsm = Image1.Picture
For i = 1 To 5
Dsya = Environ("Temp") & "\sil.gif"

    Set grafik = Sheets("kaynak").ChartObjects(i).Chart
        grafik.Export Dsya
        Image1.PictureSizeMode = fmPictureSizeModeStretch
        Image1 = LoadPicture(Dsya)
        Kill Dsya
       Set grafik = Nothing: Dsya = ""
    
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    i = i + 1
Next i

 

[Ömer]

Merhaba,

grafik.Export Dsya

satırından sonra aşağıdaki satırı ekleyerek deneyiniz.

Image1.Picture = LoadPicture("")