Question

有没有办法将单个幻灯片保存为不使用幻灯片（＃）的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"

Answer 1

如果链接被修改而不是

，则导出将起作用

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

它的

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

将PPT保存为PNG而不“导出”VBA

1 个答案: