如何在VBA for PowerPoint 2010中定义 Headers 文本和字幕文本-Java 学习之路

我有以下代码（VBA for PowerPoint 2010）在演示文稿的末尾创建幻灯片并插入 Headers 文本：

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"

我想知道如何：

插入'Subtitle'文本（较小的字体，位于主 Headers 文本正下方的新行上）
更改主 Headers 文本和字幕文本的字体和大小

提前致谢！！！

1 回答

1
您可以通过多种方式执行此操作，具体取决于您希望幻灯片的外观 . 最简单的可能是使用 ppLayoutTitle 而不是 ppLayoutTitleOnly . 它有两个文本框架而不是一个，因此您可以使用以下内容更新文本：
```
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
```
回复于 2024-05-02T11:13:12+08:00

如何在VBA for PowerPoint 2010中定义 Headers 文本和字幕文本

1 回答

相关问题