PowerPoint VBA教程:Shapes属性

返回一个Shapes集合,该集合代表被放置或插入到指定幻灯片、幻灯片母版、或幻灯片组的所有元素。该集合可以包含绘图、OLE对象、图片、文本对象、页眉、页脚、幻灯片编号、以及日期和时间对象,这些对象位于幻灯片或备注页中的幻灯片映像上。只读。

有关返回集合中单个元素的详细信息,请参阅返回集合中的对象

VBA示例

本示例添加一个宽 100 磅、高 50 磅的矩形,它的左上角距当前演示文稿第一张幻灯片的左边 5 磅、上边 25 磅。


Set firstSlide = ActivePresentation.Slides(1)
firstSlide.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

本示例设置当前演示文稿第一张幻灯片的第三个形状的填充纹理。


Set newRect = ActivePresentation.Slides(1).Shapes(3)
newRect.Fill.PresetTextured msoTextureOak

假设当前演示文稿第一张幻灯片包含一个标题,以下示例的第二行和第三行设置该演示文稿第一张幻灯片的标题文本。


Set firstSl = ActivePresentation.Slides(1)
firstSl.Shapes.Title.TextFrame.TextRange.Text = "Some title text"
firstSl.Shapes(1).TextFrame.TextRange.Text = "Other title text"

假设当前演示文稿第二张幻灯片中的第二个形状包含文本框架,以下示例向该幻灯片添加一系列的段落。请注意:Chr(13) 用于在该文本中插入段落标记。


Set tShape = ActivePresentation.Slides(2).Shapes(2)
tShape.TextFrame.TextRange.Text = "First Item" & Chr(13) & _
    "Second Item" & Chr(13) & "Third Item"

对于大多数幻灯片版式,第一个形状为文本占位符。以下示例与上例完成相同功能。


Set testShape = ActivePresentation.Slides(2).Shapes.Placeholders(2)
testShape.TextFrame.TextRange.Text = "First Item" & _
    Chr(13) & "Second Item" & Chr(13) & "Third Item"

上页:PowerPoint VBA教程:ShapeRange属性 下页:PowerPoint VBA教程:ShowandReturn属性

PowerPoint VBA教程:Shapes属性

PowerPoint VBA教程:ShowandReturn属性 PowerPoint VBA教程:ShowScrollbar属性
PowerPoint VBA教程:ShowSlideAnimation属性 PowerPoint VBA教程:ShowStartupDialog属性
PowerPoint VBA教程:ShowType属性 PowerPoint VBA教程:ShowWindowsInTaskbar属性
PowerPoint VBA教程:ShowWithAnimation属性 PowerPoint VBA教程:ShowWithNarration属性
PowerPoint VBA教程:Signatures属性 PowerPoint VBA教程:Size属性
PowerPoint VBA教程:Slide属性 PowerPoint VBA教程:SlideElapsedTime属性
PowerPoint VBA教程:SlideHeight属性 PowerPoint VBA教程:SlideID属性
PowerPoint VBA教程:SlideIDs属性 PowerPoint VBA教程:SlideIndex属性
PowerPoint VBA教程:SlideMaster属性 PowerPoint VBA教程:SlideNumber属性
PowerPoint VBA教程:SlideOrientation属性 PowerPoint VBA教程:SlideRange属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号