Objeto Shapes (PowerPoint)
Colección de todos los objetos Shape de la diapositiva especificada.
Comentarios
Cada objeto Shape representa un objeto de la capa de dibujo, tal como una autoforma, una forma libre, un objeto OLE o una imagen.
Nota:
Si desea trabajar con un subconjunto de las formas de un documento, por ejemplo, para hacer algo únicamente con las autoformas del documento o sólo las formas seleccionadas, debe construir un objeto ShapeRange colección que contiene las formas que desea trabajar. Para obtener una visión general de cómo trabajar con una sola forma o con varias formas al mismo tiempo, vea Cómo: trabajar con formas (objetos de dibujo).
Ejemplo:
Use la propiedad Shapes para obtener la colección Shapes. En el ejemplo siguiente, se seleccionan todas las formas de la presentación activa.
ActivePresentation.Slides(1).Shapes.SelectAll
Nota:
Si desea hacer algo (como eliminar o establecer una propiedad) en todas las formas de un documento al mismo tiempo, use el método Rangesin argumento para crear un objeto ShapeRange que contenga todas las formas de la colección Shapes y, a continuación, aplique la propiedad o el método adecuados al objeto ShapeRange .
Use el método AddCallout, AddComment, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTable, AddTextbox, AddTextEffect o AddTitlepara crear una nueva forma y agregarla a la colección Shapes . Use el método BuildFreeform junto con el método ConvertToShape para crear una nueva forma libre y agregarla a la colección. El ejemplo siguiente agrega un rectángulo a la presentación activa.
ActivePresentation.Slides(1).Shapes.AddShape Type:=msoShapeRectangle, _
Left:=50, Top:=50, Width:=100, Height:=200
Use Shapes (index), donde index es el nombre o número de índice de la forma, para devolver un solo objeto Shape . En el ejemplo siguiente, se establece el relleno con una sombra preestablecida para la forma uno de la presentación activa.
ActivePresentation.Slides(1).Shapes(1).Fill _
.PresetGradient Style:=msoGradientHorizontal, Variant:=1, _
PresetGradientType:=msoGradientBrass
Use Shapes.Range (index), donde index es el nombre o número de índice de la forma o una matriz de nombres de formas o números de índice, para devolver una colección ShapeRange que representa un subconjunto de la colección Shapes . En el ejemplo siguiente, se establece la trama de relleno de las formas uno y tres de la presentación activa.
ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Fill _
.Patterned Pattern:=msoPatternHorizontalBrick
Use Shapes.Placeholders (index), donde index es el número de marcador de posición, para devolver un objeto Shape que representa un marcador de posición. Si la diapositiva especificada tiene título, use Shapes.Placeholders (1) o Shapes.Title para obtener el marcador de posición de título. En el ejemplo siguiente, se agrega una diapositiva a la presentación activa y, a continuación, se agrega texto al título y al subtítulo (el subtítulo es el segundo marcador de posición de una diapositiva con este diseño).
With ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle).Shapes
.Title.TextFrame.TextRange = "This is the title text"
.Placeholders(2).TextFrame.TextRange = "This is subtitle text"
End With
Métodos
Propiedades
| Nombre |
|---|
| Aplicación |
| Count |
| Creator |
| HasTitle |
| Parent |
| Placeholders |
| Title |
Vea también
Referencia del modelo de objetos de PowerPoint
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.
Comentarios
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea: https://aka.ms/ContentUserFeedback.
Enviar y ver comentarios de