如何设置我的GIF可见，当我运行用户表单？ （VBA）

我的图表只更新并显示在我正在运行的用户窗体上，当我单击我的桌面上的temp.gif文件。 当我运行代码时，如何让它自动显示？

这是我的代码：

Private Sub Image1_Click() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet") 'ws.ChartObjects("Chart 2").Chart.Activate Set CurrentChart = ws.ChartObjects("Chart 2").Chart Fname = ThisWorkbook.Path & "\temp.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" Image1.Picture = LoadPicture(Fname) End Sub 

诚恳，

Peyko。

Answer 1

当我运行你的代码时， Image1没有任何反应。 直到我添加了更多的代码，我才能够显示图像，试试这个：

 Private Sub Image1_Click() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet") 'ws.ChartObjects("Chart 2").Chart.Activate Set CurrentChart = ws.ChartObjects("Chart 2").Chart Fname = ThisWorkbook.Path & "\temp.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" With Image1 .Picture = LoadPicture(Fname) .PictureSizeMode = 1 'Stretch .PictureAlignment = 2 'Center .PictureTiling = False .SpecialEffect = 2 'Sunken End With End Sub