Question

在幻灯片显示模式下，我只想将一张特定的幻灯片另存为.PDF（或至少图像）。

我想为用户提供浏览位置并使用默认浏览功能选择名称的选项。我不希望他们写路径。

    Dim ExportPath As String   ' drive:\path to export to
    Dim Pixwidth As Integer    '  size in pixels of exported image
    Dim Pixheight As Integer
    Dim oSlide As Slide

    ' Edit to suit
    Pixwidth = 1920    '  arbitrarily ... set whatever value you like here

    ' Set height proportional to slide height
    Pixheight = 1080

    ExportPath = ActivePresentation.Path & "\"

    Set oSlide = ActivePresentation.SlideShowWindow.View.Slide
    With oSlide
        .Export ExportPath & "Slide" & CStr(.SlideIndex) & ".JPG", "JPG", Pixwidth, Pixheight
    End With

我在网络上找到了代码，它可以很好地工作，但是不允许用户浏览位置并选择名称。

然后，我使用了下面的代码，效果很好：

Dim CurrentSlide As Long
CurrentSlide = ActivePresentation.SlideShowWindow.View.Slide.SlideNumber
With ActivePresentation.PrintOptions
OutputType = ppPrintOutputSlides
End With

ActivePresentation.PrintOut

但是，这并非在所有设备上都有效。在某些情况下，它只是无法识别PrintOut函数，而在另一些情况下，它会被打印在OneNote中。

用户是否可以浏览并另存为.PDF文件（如果没有PDF打印机，则可以使用导出选项代替打印选项）

谢谢。

Answer 1

Application.FileDialog(msoFileDialogSaveAs).Show
Dim Location As String
Location = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)

您可以使用上面的代码来获取用户所需的路径和名称。

此代码将允许您导出：ActivePresentation.ExportAsFixedFormat

在幻灯片显示模式下将PPT幻灯片导出为PDF时要保存和命名的浏览位置

1 个答案: