Page.Shapes 属性 (Publisher)

返回一个 Shapes 集合，该集合表示指定出版物中的所有 图形 对象。 该集合可以包含绘图、 图形、 图片、 OLE 对象、 ActiveX 控件、 文本对象和标注。

语法

表达式。形状

表达 一个代表 Page 对象的变量。

备注

有关返回集合的单个成员的信息，请参阅 从集合中返回对象。

示例

以下示例将一个矩形添加到当前出版物中的第一页。

Sub AddNewRectangle() 
 ActiveDocument.Pages(1).Shapes.AddShape Type:=msoShapeRectangle, _ 
 Left:=5, Top:=25, Width:=100, Height:=50 
End Sub

以下示例设置当前出版物中所有形状的填充纹理。 此示例假定当前出版物中至少有一个形状。

Sub SetNewTextureForAllShapes() 
 Dim shp As Shape 
 For Each shp In ActiveDocument.Pages(1).Shapes 
 shp.Fill.PresetTextured PresetTexture:=msoTextureOak 
 Next shp 
End Sub

以下示例向当前出版物的第一个形状添加阴影。 此示例假定当前出版物中至少有一个形状。

Sub SetShadowForFirstShape() 
 ActiveDocument.Pages(1).Shapes(1).Shadow.Type = msoShadow6 
End Sub

以下示例显示当前出版物的第一页上所有形状的数量。 此示例假定当前出版物中至少有一个形状。

Sub CountShapesOnFirstPage() 
 MsgBox "You have " & ActiveDocument.Pages(1) _ 
 .Shapes.Count & " shapes on the first page." 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。