PresetLightingDirection Property

Microsoft Excel Visual Basic

PresetLightingDirection Property

       

Returns or sets the position of the light source relative to the extrusion. Read/write MsoPresetLightingDirection.

MsoPresetLightingDirection can be one of these MsoPresetLightingDirection constants.
msoLightingBottom
msoLightingBottomLeft
msoLightingBottomRight
msoLightingLeft
msoLightingNone
msoLightingRight
msoLightingTop
msoLightingTopLeft
msoLightingTopRight
msoPresetLightingDirectionMixed

expression.PresetLightingDirection

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

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 = Worksheets(1)
With myDocument.Shapes(1).ThreeD
    .Visible = True
    .SetExtrusionDirection msoExtrusionTop
    .PresetLightingDirection = msoLightingLeft
End With