我正在学习在用户窗体中制作图表,但错误消息有问题
“运行时错误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
除了一切看起来不错.ChartObjects(ChartKe)
。ChartKe
在代码的任何地方都找不到。您可以尝试通过实际名称进行引用,例如.ChartObjects("Chart 1")
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句