ThreeDFormat.SetThreeDFormat method (PowerPoint)
Sets the preset extrusion format.
Syntax
expression. SetThreeDFormat
( _PresetThreeDFormat_
)
expression A variable that represents a ThreeDFormat object.
Parameters
Name | Required/Optional | Data type | Description |
---|---|---|---|
PresetThreeDFormat | Required | MsoPresetThreeDFormat | Specifies a preset extrusion format that corresponds to one of the options (numbered from left to right, from top to bottom) displayed when you click the 3D Rotation submenu on the Shape Effects menu. |
Remarks
Each preset extrusion format contains a set of preset values for the various properties of the extrusion.
This method sets the PresetThreeDFormat property to the format specified by the PresetThreeDFormat parameter.
The value of the PresetThreeDFormat parameter can be one of these MsoPresetThreeDFormat constants. Specifying msoPresetThreeDFormatMixed causes an error.
msoThreeD1 |
msoThreeD2 |
msoThreeD3 |
msoThreeD4 |
msoThreeD5 |
msoThreeD6 |
msoThreeD7 |
msoThreeD8 |
msoThreeD9 |
msoThreeD10 |
msoThreeD11 |
msoThreeD12 |
msoThreeD13 |
msoThreeD14 |
msoThreeD15 |
msoThreeD16 |
msoThreeD17 |
msoThreeD18 |
msoThreeD19 |
msoThreeD20 |
Example
This example adds an oval to myDocument and sets its extrusion format to 3D Style 12.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD
.Visible = True
.SetThreeDFormat msoThreeD12
End With
See also
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