ThreeDFormat.SetThreeDFormat Method (Publisher)

Sets the preset extrusion format. Each preset extrusion format contains a set of preset values for the 3-D properties of the extrusion.

Syntax

expression. SetThreeDFormat(PresetThreeDFormat)

expression A variable that represents a ThreeDFormat object.

Parameters

Name Required/Optional Data type Description
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.

Remarks

This method sets the PresetThreeDFormat property to the format specified by the PresetThreeDFormat argument.

The PresetThreeDFormat parameter can be one of the MsoPresetThreeDFormat constants declared in the Microsoft Office type library and shown in the following table.

msoThreeD1
msoThreeD3
msoThreeD4
msoThreeD5
msoThreeD6
msoThreeD7
msoThreeD8
msoThreeD9
msoThreeD10
msoThreeD11
msoThreeD12
msoThreeD13
msoThreeD14
msoThreeD15
msoThreeD16
msoThreeD17
msoThreeD18
msoThreeD19
msoThreeD20

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