Excel 如何在运行userform时将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.

当我运行您的代码时，

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

---

你有机会复习下面的答案吗？如果对您有效，请标记为已接受。如果没有，请告诉我有什么问题，我可以帮助修改。