VBA代碼可將PPT幻燈片另存為PNG文件，而忽略隱藏的幻燈片

Question

我有一個PPT，可以包含任意數量的幻燈片，其中任何一張幻燈片都可以在需要時隱藏。 我寫了一個宏來將演示文稿另存為png圖像，但是它將每張幻燈片（包括隱藏的幻燈片）另存為單獨的圖像。 我希望它保存所有隱藏的幻燈片。 有誰知道導出或另存為的方法可以跳過隱藏的幻燈片？ 當我將其導出為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