如何定義標題文字和字幕文本VBA爲PowerPoint 2010中

Question

我有以下代碼（VBA對PowerPoint 2010中）來創建在演示結束幻燈片，然後插入標題文本：

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" 

我想知道如何：

• 插入「副標題」文本（較小的字體，在新的一行在緊鄰主標題文字下方）
• 更改字體和主標題文本的大小和字幕文本

在此先感謝！

Answer 1

您可以通過多種方式來完成，具體取決於您希望幻燈片的外觀。最簡單的可能是使用ppLayoutTitle而不是ppLayoutTitleOnly。它有兩個textframes而不是一個，所以你可以通過使用類似下面的更新文本：

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

如果您需要更多的自定義佈局，您可以通過使用添加在底部下面添加一個新的文本框的代碼示例：

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

AddTextbox函數的數字參數設置新文本框的位置和大小。

您可以更新字體爲上述兩個例子同樣的方式（只是改變參考文本）：

oShp.TextFrame.TextRange.Font.Bold = msoTrue