Compartir a través de

Shape (objeto)

  • Artículo

Importante

Este artículo se ha traducido con traducción automática; vea la declinación de responsabilidades. Para su referencia, puede encontrar la versión en inglés de este artículo aquí.

Representa un objeto de la capa de dibujo, como una autoforma, una forma libre, un objeto OLE o una imagen.

Notas

Nota

Existen tres objetos que representan formas: la colección de Shapes, que representa todas las formas de un documento; ShapeRange colección que representa un subconjunto especificado de las formas de un documento (por ejemplo, un objeto ShapeRange podría representar las formas uno y cuatro del documento o todas las formas seleccionadas en el documento); el objeto Shape, que representa una sola forma de un documento. Si desea trabajar con varias formas al mismo tiempo o con formas dentro de la selección, utilice una colección de ShapeRange. Información general sobre cómo trabajar con una sola forma o con más de una forma a la vez, consulte How to: Work with Shapes (Drawing Objects) .

En los siguientes ejemplos se describe cómo:

  • Devolver la forma de una diapositiva, indizada por nombre o por número.

  • Devolver la forma que se acaba de crear en una diapositiva.

  • Devolver la forma de una selección.

  • Devolver el título de la diapositiva y otros marcadores de posición en una diapositiva.

  • Devolver las formas unidas a los puntos finales de un conector.

  • Devolver la forma predeterminada de una presentación.

  • Devolver una forma libre creada recientemente.

  • Devolver una forma de un grupo.

  • Devolver un grupo de formas creado recientemente.

Ejemplo

Use Shapes (index), donde index es el nombre o número de índice de la forma, para devolver un objeto Shape que represente una forma de una diapositiva. En el siguiente ejemplo, se voltean horizontalmente la forma uno y la forma denominada "Rectangle 1" (Rectángulo 1) de myDocument.

Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes(1).Flip msoFlipHorizontal
myDocument.Shapes("Rectangle 1").Flip msoFlipHorizontal

Ejemplo

A cada forma se le asigna un nombre predeterminado cuando se agrega a la colección Shapes. Si desea dar a la forma un nombre más descriptivo, use la propiedad Name. En el siguiente ejemplo, se agrega un rectángulo a myDocument, se le asigna el nombre "Red Square" (Cuadrado rojo) y, a continuación, se establece el color de primer plano y el estilo de línea.

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, _
        Top:=144, Left:=144, Width:=72, Height:=72)
    .Name = "Red Square"
    .Fill.ForeColor.RGB = RGB(255, 0, 0)
    .Line.DashStyle = msoLineDashDot
End With

Ejemplo

Para agregar una forma a una diapositiva y devolver un objeto Shape que represente la forma que se acaba de crear, use uno de los siguientes métodos de la colección Shapes: AddCallout , AddComment , AddConnector , AddCurve , AddLabel , AddLine , AddMediaObject , AddOLEObject , AddPicture , AddPlaceholder , AddPolyline , AddShape , AddTable , AddTextbox , AddTextEffect , AddTitle.

Ejemplo

Use Selection.ShapeRange (index), donde index es el nombre o número de índice de la forma, para devolver un objeto Shape que represente una forma de la selección. En el siguiente ejemplo, se establece el relleno de la primera forma de la selección de la ventana activa, suponiendo que haya al menos una forma en la selección.

ActiveWindow.Selection.ShapeRange(1).Fill _
    .ForeColor.RGB = RGB(255, 0, 0)

Ejemplo

Use Shapes.Title para devolver un objeto Shape que represente un título de diapositiva existente. Use Shapes.AddTitle para agregar un título a una diapositiva que no tiene ninguno y devolver un objeto Shape que represente el título que se acaba de crear. Use Shapes.Placeholders (index), donde index es el número de índice del marcador de posición, para devolver un objeto Shape que represente un marcador de posición. Si no se ha cambiado el orden de las capas de las formas de la diapositiva, las tres instrucciones siguientes son equivalentes, suponiendo que la diapositiva uno tenga título.

ActivePresentation.Slides(1).Shapes.Title _
    .TextFrame.TextRange.Font.Italic = True
ActivePresentation.Slides(1).Shapes.Placeholders(1) _
    .TextFrame.TextRange.Font.Italic = True
ActivePresentation.Slides(1).Shapes(1).TextFrame _
    .TextRange.Font.Italic = True

Ejemplo

Para devolver un objeto Shape que representa una de las formas adjuntadas por un conector, utilice la BeginConnectedShape o EndConnectedShape propiedad.

Ejemplo

Para devolver un objeto Shape que representa la forma predeterminada para una presentación, utilice la DefaultShape propiedad.

Ejemplo

Utilice la BuildFreeform y AddNodes métodos para definir la geometría de una nueva forma libre y utilizar el ConvertToShape método para crear la forma libre y devolver el objeto Shape que lo representa.

Ejemplo

Use GroupItems (index), donde index es el nombre o número de índice de la forma que está en el grupo, para devolver un objeto Shape que represente una única forma de una forma agrupada.

Ejemplo

Utilice la Group o Regroup método para agrupar un intervalo de formas y devolver un objeto Shape único que representa el grupo recién formado. Después de que se ha formado un grupo, puede trabajar con el grupo de la misma manera que con cualquier otra forma.

Nota

Declinación de responsabilidades de traducción automática: Este artículo se ha traducido con un sistema informático sin intervención humana. Microsoft ofrece estas traducciones automáticas para que los hablantes de otros idiomas distintos del inglés puedan disfrutar del contenido sobre los productos, los servicios y las tecnologías de Microsoft. Puesto que este artículo se ha traducido con traducción automática, es posible que contenga errores de vocabulario, sintaxis o gramática.