「エクスポート」なしでPNGとしてPPTを保存するVBA

Question

スライド（＃）を使用しないVBAを使用して1つのスライドをPNG画像として保存する方法はありますか？私はSharePointに直接画像を保存しようとしていますが、私のマシンの外に保存場所を作ると、エクスポートによってエラーが発生します。私は、Save asメニューをクリックすることができるので、イメージとして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"