Код VBA для сохранения слайдов PPT в виде файлов PNG при игнорировании скрытых слайдов

Question

У меня есть PPT, который может иметь любое количество слайдов, любой из которых может быть скрыт при необходимости. У меня есть макрос, написанный для сохранения презентации в виде изображений PNG, но он будет сохранять каждый слайд (включая скрытые) как отдельные изображения. Я хочу сохранить все, кроме скрытых слайдов. Кто-нибудь знает способ экспорта или SaveAs, который пропустит скрытые слайды? Когда я экспортирую его в PDF, он автоматически игнорирует скрытые слайды, но это не относится к файлам png.

Код, который сохраняет все слайды, в том числе скрытые:

ActiveWindow.Presentation.SaveAs filenamepng, ppSaveAsPNG 'Save the.png files for each slide.

Я вижу, что есть варианты не "распечатывать" скрытые слайды, но я не вижу аналогичных опций для сохранения изображений в формате png. Спасибо за любую помощь, вы можете дать мне!

Answer 1

Благодаря комментарию SteveRindsberg я смог придумать следующий код, который решил проблему.

Dim sld As Slide
Dim shp As Shape

    i = 1

For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
    On Error Resume Next
        If ActivePresentation.Slides(i).SlideShowTransition.Hidden = msoFalse And shapeName(ActivePresentation.Slides(i), "NameofShapeonSlide") Then
            ActivePresentation.Slides(i).Export filenamepng & "SlideName" & i & ".png", "PNG"

        End If
    i = i + 1
    Next
Next