스택 오버플로의 다음 스레드에서 찾은 VBA를 기반으로 위의 질문에 부분적으로 답변하고 싶었습니다 . 파워 포인트 프레젠테이션의 모든 객체 이름을 나열하는 VBA

이 솔루션을 사용하면 텍스트 파일 보고서를 통해 Power Point 프레젠테이션에 사용 된 모든 모양을 기술적으로 볼 수 있습니다.

Sub ListAllShapes()

    Dim curSlide As Slide
    Dim curShape As Shape
    Dim lFile As Long
    Dim sPath As String

    sPath = ActivePresentation.Path

    lFile = FreeFile

    Open sPath & "\All Shapes.txt" For Append As #lFile

    For Each curSlide In ActivePresentation.Slides
        Print #lFile, "SLIDE " & curSlide.SlideNumber
        For Each curShape In curSlide.Shapes
                Print #lFile, "    " & curShape.Name
        Next curShape
    Next curSlide

    Close #lFile

End Sub

다음과 같은 텍스트 보고서가 생성됩니다.

SLIDE 1
    Rectangle 2
    Rectangle 4
    Rectangle 4
    TextBox 10
    Rectangle 4
SLIDE 2
    TextBox 7
    Rectangle 2
    Rectangle 4
    Rectangle 4
    Line 37
    Picture 1
    Picture 2
SLIDE 3
    Rectangle 2
    Rectangle 4
    Rectangle 7
    TextBox 7
    Line 28
    Picture 3
    Picture 4, etc...

내 특정 유스 케이스의 경우 슬라이드 당 특정 모양의 목록 만 원했습니다. 선택 창을 사용하여 그림이나 테이블이 포함 된 각 그림의 이름을 적절한 접두사로 지정한 다음이를 실행하여 달성했습니다.

Sub ListFiguresAndTables()

    Dim curSlide As Slide
    Dim curShape As Shape
    Dim lFile As Long
    Dim sPath As String

    sPath = ActivePresentation.Path

    lFile = FreeFile

    Open sPath & "\Figures and Tables.txt" For Append As #lFile

    For Each curSlide In ActivePresentation.Slides
        Print #lFile, "SLIDE " & curSlide.SlideNumber
        For Each curShape In curSlide.Shapes
            If Left(curShape.Name, 4) = "Fig." Or Left(curShape.Name, 5) = "Table" Then
                Print #lFile, "    " & curShape.Name
            End If
        Next curShape
    Next curSlide

    Close #lFile

End Sub

불행히도, 매크로를 사용하여 이러한 객체를 오름차순으로 인쇄 할 수있는 유일한 방법은 선택 창을 사용하여 모양을 반대 (내림차순) 순서로 먼저 정렬하는 것입니다.

SLIDE 1
    Fig. 1
    Fig. 2
    Fig. 3
    Table 1
SLIDE 2
    Fig. 4
    Fig. 5
    Fig. 6
SLIDE 3
    Table 2
    Table 3 (etc.)

답변