SetThreeDFormat Method
Sets the preset extrusion format. Each preset extrusion format contains a set of preset values for the various properties of the extrusion.
expression**.SetThreeDFormat(PresetThreeDFormat)**
*expression * Required. An expression that returns a ThreeDFormat object.
MsoPresetThreeDFormat
| MsoPresetThreeDFormat can be one of these MsoPresetThreeDFormat constants. |
| msoPresetThreeDFormatMixed Specifying this constant causes an error. |
| 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 myDocument and sets its extrusion format to 3D Style 12.
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD
.Visible = True
.SetThreeDFormat msoThreeD12
End With
Applies to | ThreeDFormat Object