【发布时间】:2020-12-04 20:26:37
【问题描述】:
我正在学习在用户窗体中制作图表,但遇到错误消息时遇到问题
“运行时错误 1004 应用程序定义或对象定义错误”
一开始是成功的,但后来我新建了一个宏,复制粘贴,出现错误'1004'。
我的代码如下:
Private Sub UpdateChart()
Dim PA_Chart As Object
Dim NamaFL As String
Application.ScreenUpdating = False
Set PA_Chart = Sheets("DummyChart").ChartObjects(ChartKe).Chart
PA_Chart.Parent.Width = 300
PA_Chart.Parent.Height = 150
On Error Resume Next
'menyimpan Chart sebagai Gif
NamaFL = ThisWorkbook.Path & "\" & "WPAGraph.gif"
PA_Chart.Export Filename:=NamaFL, FilterName:="GIF"
'Menampilkan Chart Pada Image1
Me.Image1.Picture = LoadPicture(NamaFL)
Application.ScreenUpdating = True
End Sub
【问题讨论】: