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 un objeto ColorFormat que representa el color de extrusión de la forma. Solo lectura.
Sintaxis
expresión. ExtrusionColor
expresión Variable que representa un objeto "ThreeDFormat".
Ejemplo
En este ejemplo, se agrega una elipse al documento activo y, a continuación, se especifica que la profundidad de extrusión de la elipse será de 50 puntos y que la extrusión será de color púrpura.
Dim docActive As Document
Dim shapeNew As Shape
Set docActive = ActiveDocument
Set shapeNew = docActive.Shapes.AddShape(msoShapeOval, _
90, 90, 90, 40)
With shapeNew.ThreeD
.Visible = True
.Depth = 50
' RGB value for purple
.ExtrusionColor.RGB = RGB(255, 100, 255)
End With
Vea también
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.