SetThreeDFormat Method

Applies To

ThreeDFormat object.

Description

Sets the preset extrusion format. Each preset extrusion format contains a set of preset values for the various properties of the extrusion.

Syntax

expression.SetThreeDFormat(PresetThreeDFormat)

expression Required. An expression that returns a ThreeDFormat object.

PresetThreeDFormat Required Long. 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. Can be one of the following MsoPresetThreeDFormat constants: msoThreeD1, msoThreeD10, msoThreeD11, msoThreeD12, msoThreeD13, msoThreeD14, msoThreeD15, msoThreeD16, msoThreeD17, msoThreeD18, msoThreeD19, msoThreeD2, msoThreeD20, msoThreeD3, msoThreeD4, msoThreeD5, msoThreeD6, msoThreeD7, msoThreeD8, or msoThreeD9. Note that specifying msoPresetThreeDFormatMixed for this argument causes an error.

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