Share via

ThreeD Property

  • Article

This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Returns a ThreeDFormat object.

expression.ThreeD

expression   Required. An expression that returns one of the objects in the Applies To list.

Remarks

Use the ThreeD property to return a ThreeDFormat object whose properties are used to format the 3-D appearance of the specified shape.

Example

This example sets the depth, extrusion color, extrusion direction, and lighting direction for the 3-D effects applied to shape one in the active publication.

  Dim tdfTemp As ThreeDFormat

Set tdfTemp = _
    ActiveDocument.Pages(1).Shapes(1).ThreeD

With tdfTemp
    .Visible = True
    .Depth = 50
    .ExtrusionColor.RGB = RGB(255, 100, 255)
    .SetExtrusionDirection _
        PresetExtrusionDirection:=msoExtrusionTop
    .PresetLightingDirection = msoLightingLeft
End With