Propiedad Shape.AutoShapeType (Publisher)

Devuelve o establece una constante MsoAutoShapeType que especifica el tipo de autoforma de un objeto Shape .

Sintaxis

más sencilla.AutoShapeType

expresión Variable que representa un objeto Shape.

Comentarios

El valor de la propiedad AutoShapeType puede ser una de las constantes MsoAutoShapeType declaradas en la biblioteca de tipos de Microsoft Office.

Las autoformas corresponden a los objetos Shape , aunque la propiedad AutoShapeType para las formas que no son Publisher también devuelve un valor. Los objetos de WordArt, OLE, control Web Form, tabla y marco de imagen deben devolver msoShapeMixed como valor de propiedad AutoShapeType . Marcos de texto deben devolver msoShapeRectangle para su propiedad AutoShapeType.

Ejemplo

En este ejemplo se convierte el objeto autoforma seleccionado en un rayo si es un corazón y en una estrella de 5 puntas si no lo es. En este ejemplo se ejecute correctamente, debe tener un objeto AutoShape en la publicación activa.

Sub ShapeShift() 
 
 Dim srShift As ShapeRange 
 
 Set srShift = Application.ActiveDocument.Selection.ShapeRange 
 If srShift.AutoShapeType = msoShapeHeart Then 
 srShift.AutoShapeType = msoShapeLightningBolt 
 Else 
 srShift.AutoShapeType = msoShape5pointStar 
 End If 
 
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.