Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Devuelve o establece una constante MsoAutoShapeType que especifica el tipo de autoforma de un objeto Shape .
Sintaxis
expresión. AutoShapeType
expresión Variable que representa un objeto Shape.
Observaciones
El valor de la propiedad AutoShapeType puede ser una de las constantes MsoAutoShapeType declaradas en la biblioteca de tipos de Microsoft Office.
Las autoformas se corresponden con objetos Shape , aunque la propiedad AutoShapeType para formas que no son del publicador también devuelve un valor. Los objetos de cuadro wordart, OLE, formulario web, tabla e imagen deben devolver msoShapeMixed como su 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 puntos 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.