Visual studio 2010 如何在VBA for PowerPoint 2010中定义标题文本和字幕文本
我使用以下代码(VBA for PowerPoint 2010)在演示文稿末尾创建幻灯片并插入标题文本:Visual studio 2010 如何在VBA for PowerPoint 2010中定义标题文本和字幕文本,visual-studio-2010,vba,powerpoint,powerpoint-2010,Visual Studio 2010,Vba,Powerpoint,Powerpoint 2010,我使用以下代码(VBA for PowerPoint 2010)在演示文稿末尾创建幻灯片并插入标题文本: longSlideCount = ActivePresentation.Slides.Count With ActivePresentation.Slides Set slideObject = .Add(longSlideCount + 1, ppLayoutTitleOnly) End With slideObject.Shapes.Title.TextFrame.TextR
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"
我想知道如何:
- 插入“字幕”文本(较小字体,在主标题文本正下方的新行上)
- 更改主标题文本和副标题文本的字体和大小
提前感谢 根据您希望幻灯片的外观,您可以通过多种方式完成。最简单的方法可能是使用
ppLayoutTitle
而不是一直使用ppLayoutTitle
。它有两个文本框,而不是一个,因此您可以使用以下内容更新文本:
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