ThreeDFormat.PresetThreeDFormat property (PowerPoint)
Returns the preset extrusion format. Read-only.
Syntax
expression. PresetThreeDFormat
expression A variable that represents a ThreeDFormat object.
Return value
MsoPresetThreeDFormat
Remarks
This property is read-only. To set the preset extrusion format, use the SetThreeDFormat method.
Each preset extrusion format contains a set of preset values for the various properties of the extrusion. The values for this property correspond to the options (numbered from left to right, top to bottom) displayed when you click the 3D Rotation submenu on the Shape Effects menu.
The value of the PresetThreeDFormat property can be one of these MsoPresetThreeDFormat constants. If the value is msoPresetThreeDFormatMixed, the extrusion has a custom format rather than a preset format.
msoPresetThreeDFormatMixed |
msoThreeD1 |
msoThreeD2 |
msoThreeD3 |
msoThreeD4 |
msoThreeD5 |
msoThreeD6 |
msoThreeD7 |
msoThreeD8 |
msoThreeD9 |
msoThreeD10 |
msoThreeD11 |
msoThreeD12 |
msoThreeD13 |
msoThreeD14 |
msoThreeD15 |
msoThreeD16 |
msoThreeD17 |
msoThreeD18 |
msoThreeD19 |
msoThreeD20 |
Example
This example sets the extrusion format for shape one on myDocument to 3D Style 12 if the shape initially has a custom extrusion format.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(1).ThreeD
If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then
.SetThreeDFormat msoThreeD12
End If
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