PresetLightingDirection Property

Applies To

ThreeDFormat object.

Description

Returns or sets the position of the light source relative to the extrusion. Can be one of the following MsoPresetLightingDirection constants: msoLightingBottom, msoLightingBottomLeft, msoLightingBottomRight, msoLightingLeft, msoLightingNone, msoLightingRight, msoLightingTop, msoLightingTopLeft, msoLightingTopRight, or msoPresetLightingDirectionMixed. Read/write Long.

Note You won't see the lighting effects you set if the extrusion has a wire frame surface.

Example

This example specifies that the extrusion for shape one on myDocument extend toward the top of the shape and that the lighting for the extrusion come from the left.

Set myDocument = ActiveDocument
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .SetExtrusionDirection msoExtrusionTop
    .PresetLightingDirection = msoLightingLeft
End With