MsoPresetThreeDFormat can be one of these MsoPresetThreeDFormat constants. |
msoPresetThreeDFormatMixed |
msoThreeD1 |
msoThreeD10 |
msoThreeD11 |
msoThreeD12 |
msoThreeD13 |
msoThreeD14 |
msoThreeD15 |
msoThreeD16 |
msoThreeD17 |
msoThreeD18 |
msoThreeD19 |
msoThreeD2 |
msoThreeD20 |
msoThreeD3 |
msoThreeD4 |
msoThreeD5 |
msoThreeD6 |
msoThreeD7 |
msoThreeD8 |
msoThreeD9 |
expression.PresetThreeDFormat
expression Required. An expression that returns a ThreeDFormat object.
Remarks
The values for this property correspond to the options (numbered from left to right, top to bottom) displayed when you click the 3-D button on the Drawing toolbar.
Use the SetThreeDFormat method to set the preset extrusion format.
Example
This example sets the extrusion format for shape one on myDocument
to 3-D Style 12 if the shape initially has a custom extrusion format.
Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then
.SetThreeDFormat msoThreeD12
End If
End With