Propiedad ScratchArea.Shapes (Publisher)

Devuelve una colección Shapes que representa todos los objetos Shape de la publicación especificada. Esta colección puede contener dibujos, formas, objetos OLE, controles ActiveX, objetos de texto y llamadas.

Sintaxis

expresión. Formas

expresión Variable que representa un objeto ScratchArea .

Observaciones

Para obtener información sobre cómo devolver un único miembro de una colección, vea Devolver un objeto de una colección.

Ejemplo

En el siguiente ejemplo se agrega un rectángulo a la primera página de la publicación activa.

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

En este ejemplo se establece la textura de relleno de todas las formas de la publicación activa. En este ejemplo se supone que hay al menos una forma en la publicación activa.

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

En este ejemplo se agrega una sombra a la primera forma de la publicación activa. En este ejemplo se supone que hay al menos una forma en la publicación activa.

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

En este ejemplo se muestra un recuento de todas las formas de la primera página de la publicación activa. En este ejemplo se supone que hay al menos una forma en la publicación activa.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.