- Katılım
- 6 Ocak 2007
- Mesajlar
- 80
- Excel Vers. ve Dili
- excell2000
Sub FormdaGrafik()
Dim cht As Chart
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.SetSourceData Source:=Sheets("Sayfa1").Range("l7:l56"), _
PlotBy:=xlRows
cht.Export "test.gif"
With frmChart.imgChart
.Picture = LoadPicture("test.gif")
End With
frmChart.Show
Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Makro ile grafik konusunda hiç bilgim yok.Ancak yukarıdaki makro hata veriyor
nedeni ne olabilir?
Dim cht As Chart
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.SetSourceData Source:=Sheets("Sayfa1").Range("l7:l56"), _
PlotBy:=xlRows
cht.Export "test.gif"
With frmChart.imgChart
.Picture = LoadPicture("test.gif")
End With
frmChart.Show
Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Makro ile grafik konusunda hiç bilgim yok.Ancak yukarıdaki makro hata veriyor
nedeni ne olabilir?