ThreeDFormat.ExtrusionColor property (PowerPoint)
Returns a ColorFormat object that represents the color of the shape's extrusion. Read-only.
expression A variable that represents an ThreeDFormat object.
This example adds an oval to myDocument, and then specifies that the oval be extruded to a depth of 50 points and that the extrusion be purple.
Set myDocument = ActivePresentation.Slides(1) Set myShape = myDocument.Shapes _ .AddShape(msoShapeOval, 90, 90, 90, 40) With myShape.ThreeD .Visible = True .Depth = 50 'RGB value for purple .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.