ThreeDFormat.ExtrusionColor property (Publisher)
Returns a ColorFormat object representing the color of the shape's extrusion.
Syntax
expression.ExtrusionColor
expression A variable that represents a ThreeDFormat object.
Return value
ColorFormat
Example
This example adds an oval to the active publication, and then specifies that the oval be extruded to a depth of 50 points and that the extrusion be purple.
Dim shpNew As Shape
' Set a reference to a new oval.
Set shpNew = ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeOval, _
Left:=90, Top:=90, Width:=90, Height:=40)
' Format the 3D properties of the oval.
With shpNew.ThreeD
.Visible = True
.Depth = 50
.ExtrusionColor.RGB = RGB(255, 100, 255)
End With
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for