将 PPT 保存为 PNG，无需“导出”VBA

Posted 2023-05-07

【中文标题】将 PPT 保存为 PNG，无需“导出”VBA

【英文标题】：Save PPT as PNG without "Export" VBA

【发布时间】：2017-09-25 20:51:54

【问题描述】：

有没有办法使用不使用 Slides(#).Export 的 VBA 将单个幻灯片保存为 PNG 图像？我正在尝试将图像直接保存到 SharePoint，但如果我将保存位置设置在我的机器之外的任何位置，导出会导致错误。我知道可以将图像直接保存到 SharePoint，因为我可以单击另存为菜单，但我无法使用 VBA 进行复制。

Application.FileDialog(msoFileDialogSaveAs _
    ).InitialFileName = "https://home.thesite.com/sample"
intChoice = Application.FileDialog(msoFileDialogSaveAs).Show
    If intChoice <> 0 Then

        sImagePath = Application.FileDialog(msoFileDialogSaveAs _
        ).SelectedItems(1)

    Else
        MsgBox "Action Cancelled"
        Exit Sub

    End If

 CurSlide = ActiveWindow.Selection.SlideRange.SlideIndex
 ActivePresentation.Slides(CurSlide).Export sImagePath, "PNG"

【问题讨论】：

会导出本地然后使用Shell 将其复制到最终目的地不起作用吗？

【参考方案1】：

事实证明，如果链接被修改，导出将起作用，而不是

 "https://home.thesite.com/sample" 

它的

 "\\home.thesite.com@SSL\DavWWWRoot\sample"