2010

Question

I 프리젠 테이션의 마지막 슬라이드를 만들고 제목 텍스트 삽입하려면 다음 코드 (2010 파워 포인트에 대한 VBA)가 :

longSlideCount = ActivePresentation.Slides.Count 

With ActivePresentation.Slides 
    Set slideObject = .Add(longSlideCount + 1, ppLayoutTitleOnly) 
End With 

slideObject.Shapes.Title.TextFrame.TextRange.Text = "This is the Main Title Text" 

I을 알고 싶습니다 방법 :

• 삽입 '자막'텍스트 (즉시 메인 타이틀 텍스트 아래에 새 줄에 작은 글꼴)
• 변경 글꼴과 메인 타이틀 텍스트의 크기와 자막 텍스트

미리 감사드립니다.

Answer 1

슬라이드를 어떻게 보이게 할 것인지에 따라 여러 가지 방법으로 할 수 있습니다. 가장 쉬운 방법은 ppLayoutTitleOnly 대신 ppLayoutTitle을 사용하는 것입니다. 그것은 두 textframes 대신 중 하나를 가지고, 그래서 당신은 다음과 같은 것을 사용하여 텍스트를 업데이트 할 수 있습니다 : 당신은 더 많은 사용자 정의 레이아웃을해야하는 경우

slideObject.Shapes(2).TextFrame.TextRange.Text = "This is the subtitle." 

, 당신은 추가하여 아래에서 다음을 사용하여 새 텍스트 상자를 추가 할 수 있습니다를 코드 예제의 다음 AddTextbox 기능

Set oShp = slideObject.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 300) 
oShp.TextFrame.TextRange.Text = "Row #2: subtitle." 

숫자 매개 변수는 새 텍스트 상자의 위치와 크기를 설정합니다.

당신은 글꼴을 위의 예제 모두 같은 방법으로 업데이트 할 수 있습니다 (단지 텍스트 상자에 대한 참조를 변경) :

oShp.TextFrame.TextRange.Font.Bold = msoTrue