Propiedad Shape.AutoShapeType (Word)

Devuelve o establece el tipo de forma para el objeto Shape especificado que debe representar una autoforma que no sea una línea o un dibujo de forma libre. MsoAutoShapeType de lectura y escritura.

Sintaxis

expresión. AutoShapeType

expresión necesaria. Variable que representa un objeto Shape.

Observaciones

Cuando se cambia el tipo de una forma, ésta mantiene su tamaño, color y otros atributos.

Ejemplo

En este ejemplo se reemplazan todas las estrellas de 16 puntas por estrellas de 32 puntas en el documento activo.

Sub ReplaceAutoShape() 
 Dim docNew As Document 
 Dim shpStar As Shape 
 Set docNew = ActiveDocument 
 For Each shpStar In docNew.Shapes 
 If shpStar.AutoShapeType = msoShape16pointStar Then 
 shpStar.AutoShapeType = msoShape32pointStar 
 End If 
 Next 
End Sub

Vea también

Objeto Shape

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.