답변:
아니요, PowerPoint에는이를 수행 할 수있는 기능이 없습니다.
정확히 무엇을 달성하려고합니까? 아마도 다른 방법이있을 것입니다.
스택 오버플로의 다음 스레드에서 찾은 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.)