PowerPoint 2007 - 자리 표시자를 제목 자리 표시 자로 변경할 수 있습니까?

Question

마스터보기에서 찾을 수있는 "제목"자리 표시자를 추가하는 것을 잊어 버린 여러 PowerPoint 템플릿을 만든 후에 발견했습니다. 대신 텍스트 상자 자리 표시자를 추가 했으므로 정상적으로 작동합니다. 그러나 일부 사람들은 개요 모드를 사용하고 각 슬라이드의 제목이 거기에 표시됩니다. 그리고 Title의 체크 박스가 선택되어 있지 않으면 각 슬라이드는 Outline 모드에서 볼 때 제목이 없습니다.

주어진 자리 표시자를 제목 자리 표시 자로 변경할 수 있다면 생각하고 있었습니까?

Answer 1

아마도 VBA를 사용합니다. Visual Basic에서 붙여 넣기. 타겟 된 자리 표시 자/텍스트 상자 (텍스트)를 선택하십시오. 그런 다음 실행하십시오.

Sub convertToTitle() 
    Dim osld As Slide 
    Dim SlideIndex As Long 
    Dim oshp As Shape 
    Dim oTxR As TextRange 
    SlideIndex = ActiveWindow.View.Slide.SlideIndex 
    Set osld = ActivePresentation.Slides(SlideIndex) 
    Set oshp = ActiveWindow.Selection.ShapeRange(1) 
    Set osld = oshp.Parent 
    Set oTxR = oshp.TextFrame.TextRange 
    With ActivePresentation 
     ActivePresentation.Slides(SlideIndex).CustomLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(2) 
     'use layout = 2 because it has both Title & Content 
     'but you can use any layout as long as it has Title in it 
     osld.Shapes.Placeholders.Item(1).TextFrame.TextRange = oTxR.Characters 
     oshp.Delete 
    End With 
End Sub 

바일 라, 제목 자리 표시 자로 변경됩니다. 그러나 모든 슬라이드에 대해 실행해야합니다.