Расположение для сохранения и имя при экспорте PPT Slide в формате PDF в режиме слайд-шоу - PullRequest
Новая
       13

Расположение для сохранения и имя при экспорте PPT Slide в формате PDF в режиме слайд-шоу

1 голос
/ 23 апреля 2019

Я хочу сохранить только 1 конкретный слайд в формате .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)

Спасибо.

1 Ответ

2 голосов
/ 24 апреля 2019 
Application.FileDialog(msoFileDialogSaveAs).Show
Dim Location As String
Location = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)

Вы можете использовать приведенный выше код, чтобы получить путь и имя, по желанию пользователя.

Этот код позволит вам экспортировать: ActivePresentation.ExportAsFixedFormat

...