ThreeDFormat Object

Description

Represents a shape's three-dimensional formatting.

Using The ThreeDFormat Object

Use the ThreeD property to return a ThreeDFormat object. The following example adds an oval to myDocument and then specifies that the oval be extruded to a depth of 50 points and that the extrusion be purple.

Set myDocument = ActivePresentation.Slides(1)
Set myShape = myDocument.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)
With myShape.ThreeD
    .Visible = True
    .Depth = 50
    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' RGB value for purple
End With

Remarks

You cannot apply three-dimensional formatting to some kinds of shapes, such as beveled shapes or multiple-disjoint paths. Most of the properties and methods of the ThreeDFormat object for such a shape will fail.

Properties

Application property, Creator property, Depth property, ExtrusionColor property, ExtrusionColorType property, Parent property, Perspective property, PresetExtrusionDirection property, PresetLightingDirection property, PresetLightingSoftness property, PresetMaterial property, PresetThreeDFormat property, Rotation property Example, RotationY property, Visible property.

Methods

IncrementRotation method Example, IncrementRotationY method, ResetRotation method, SetExtrusionDirection method, SetThreeDFormat method.