如何通过Powerpoint使用VBA将URL图像保存到文件夹中？

Question

我需要使用Powerpoint或VBA将URL的图像保存到windows计算机上的文件夹中。这样做的目的是，我试图将Tableau仪表板的图片嵌入到我的powerpoint中，但由于某种原因，当我插入它时，图片无法显示出来。使用VBA应该可以，因为我可以使用VBA将图像保存到文件夹中，然后使用VBA将其从文件夹插入到powerpoint中。

现在，这是我在EXCEL中尝试将图片从Tableau保存到windows文件夹的代码。Excel VBA或Powerpoint VBA都可用于此目的：

    Public Declare Function URLDownloadToFile Lib "urlmon" Alias _
   "URLDownloadToFileA" (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long

Public Sub GURoL(url As String, FileName As String)
Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, url, FileName, 0, 0)
    If lngRetVal <> 0 Then
    MsgBox "GURol godo: Can't download from " & url & " to " & FileName
    End If
End Sub

Sub Download_Procedure()

'Saves an image to folder, needs to have jpg tho it looks like
'https://stackoverflow.com/questions/51858575/web-download-image-and-save-to-folder/51859060#51859060

Call GURoL("https://us-west-1.online.tableau.com/TableauaddressExample.png", _
           "G:\My Drive\FolderExample.png") '<change your dest. path
End Sub

所以我使用上面的代码来保存图像。然而，它不适用于tableau图像，但它确实适用于google上的其他jpg图像。这很奇怪。

一旦我修复了这个步骤，我就可以使用下面的代码来保存我的powerpoint VBA文件夹中的图像：

    Sub AddSavedImage()
  'Adds a picture from your folder
  'https://www.techrepublic.com/blog/microsoft-office/use-vba-to-insert-a-picture-file-onto-a-powerpoint-slide/
  
  ActiveWindow.Selection.SlideRange.Shapes.AddPicture( _
   FileName:="G:\FolderExample\FileExample.png", _
   LinkToFile:=msoFalse, _
   SaveWithDocument:=msoTrue, Left:=60, Top:=35, _
   Width:=98, Height:=48).Select
End Sub

有人能帮我自动保存tableau URL图像吗？如果我可以自动插入tableau URL图像(我已经找到了)，它会工作，但当我将它插入到ppt中时也会出现错误。

Answer 1

此tableau网站/URL图像需要您登录才能访问它。您可以使用VBA执行此操作。但正如另一位评论者所说，可能域名是错的