expression.SetThreeDFormat(PresetThreeDFormat)
expression Required. An expression that returns one of the objects in the Applies To list.
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 3-D button on the Drawing toolbar.
MsoPresetThreeDFormat can be one of these MsoPresetThreeDFormat constants. |
msoPresetThreeDFormatMixed Not used with this method. |
msoThreeD1 |
msoThreeD2 |
msoThreeD3 |
msoThreeD4 |
msoThreeD5 |
msoThreeD6 |
msoThreeD7 |
msoThreeD8 |
msoThreeD9 |
msoThreeD10 |
msoThreeD11 |
msoThreeD12 |
msoThreeD13 |
msoThreeD14 |
msoThreeD15 |
msoThreeD16 |
msoThreeD17 |
msoThreeD18 |
msoThreeD19 |
msoThreeD20 |
Remarks
This method sets the PresetThreeDFormat property to the format specified by the PresetThreeDFormat argument.
Example
This example adds an oval to the active publication and sets its extrusion format to one of the preset 3-D formats.
With ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeOval, _
Left:=30, Top:=30, Width:=50, Height:=25).ThreeD
.Visible = True
.SetThreeDFormat PresetThreeDFormat:=msoThreeD12
End With