constant that represents 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. Read-only.
| 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 one of the objects in the Applies To list.
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 Style button on the Formatting toolbar.
Use the SetThreeDFormat method to set the preset extrusion format.
Example
This example sets the extrusion format for the first shape on the first page of the active publication to 3-D Style 12 if the shape initially has a custom extrusion format. For this example to work, the specified shape must be a 3-D shape.
Sub SetPreset3D()
With ActiveDocument.Pages(1).Shapes(1).ThreeD
If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then
.SetThreeDFormat msoThreeD12
End If
End With
End Sub