保存PPT到不同的文件夾各種文件類型使用VBA

Question

我正在尋找一些VBA代碼，我可以運行做到以下幾點：

我有一個PowerPoint幻燈片（僅限1張）需要被保存到3不同位置的3種不同的文件類型：

保存爲file1.pdf到C：\文件夾1 保存爲file2.ppt到C：\文件夾2 保存爲file3.png到C：\ folder3

這是可能？

任何幫助將不勝感激。

Rob。

Answer 1

試試這個：

Private Sub ExportFiles() 
    Dim lWidthInPixels As Long 
    Dim lHeightInPixels As Long 

    lWidthInPixels = 1024 
    lHeightInPixels = 768 

    'pdf 
    ActivePresentation.ExportAsFixedFormat "c:\folder1\file1.pdf", _ 
    ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoCTrue, ppPrintHandoutHorizontalFirst, _ 
    ppPrintOutputSlides, msoFalse, , ppPrintAll, , False, False, False, False, False 

    'ppt 
    Application.ActivePresentation.SaveCopyAs "c:\folder2\file2" 

    'png 
    Application.ActiveWindow.View.Slide.Export "c:\folder3\file3.png", "png", lWidthInPixels, lHeightInPixels 

End Sub