Share via

SetThreeDFormat Method [Publisher 2003 VBA Language Reference]

  • Article

Sets the preset extrusion format. Each preset extrusion format contains a set of preset values for the 3-D 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 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

Applies to | ThreeDFormat Object