如何在運行userform時設置我的GIF可見性？ （VBA）

Question

當我單擊桌面上的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