ThreeDFormat.SetThreeDFormat method (Publisher)

Article
09/13/2021

Sets the preset extrusion format. Each preset extrusion format contains a set of preset values for the 3D 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 choose the 3D button on the Drawing toolbar. Can be one of the MsoPresetThreeDFormat constants declared in the Microsoft Office type library.

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 3D 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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.

Share via