PresetThreeDFormat Property
Returns the preset extrusion format. Each preset extrusion format contains a set of preset values for the various properties of the extrusion. If the extrusion has a custom format rather than a preset format, this property returns msoPresetThreeDFormatMixed. 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. Read-only MsoPresetThreeDFormat.
MsoPresetThreeDFormat can be one of these MsoPresetThreeDFormat constants. |
msoThreeD1 |
msoThreeD11 |
msoThreeD13 |
msoThreeD15 |
msoThreeD17 |
msoThreeD19 |
msoThreeD20 |
msoThreeD4 |
msoThreeD6 |
msoThreeD8 |
msoPresetThreeDFormatMixed |
msoThreeD10 |
msoThreeD12 |
msoThreeD14 |
msoThreeD16 |
msoThreeD18 |
msoThreeD2 |
msoThreeD3 |
msoThreeD5 |
msoThreeD7 |
msoThreeD9 |
expression.PresetThreeDFormat
expression Required. An expression that returns one of the objects in the Applies To list.
Remarks
This property is read-only. To set the preset extrusion format, use the SetThreeDFormat method.
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 = Worksheets(1)
With myDocument.Shapes(1).ThreeD
If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then
.SetThreeDFormat msoThreeD12
End If
End With