SetThreeDFormat Method
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
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 one of the objects in the Applies To list.
MsoPresetThreeDFormat
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 |
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 = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeOval, _
30, 30, 50, 25).ThreeD
.Visible = True
.SetThreeDFormat msoThreeD12
End With