Returns or sets a MsoPresetLightingSoftness constant that represents the intensity of the extrusion lighting. Read/write.
| MsoPresetLightingSoftness can be one of these MsoPresetLightingSoftness constants. |
| msoLightingBright |
| msoLightingDim |
| msoLightingNormal |
| msoPresetLightingSoftnessMixed |
expression.PresetLightingSoftness
expression Required. An expression that returns one of the objects in the Applies To list.
This example sets the extrusion for the first shape on the first page of the active publication to be lit brightly from the left. For this example to work, the specified shape must be a 3-D shape.
Sub SetExtrusionLightingBrighness()
With ActiveDocument.Pages(1).Shapes(1).ThreeD
.Visible = True
.PresetLightingSoftness = msoLightingBright
.PresetLightingDirection = msoLightingLeft
End With
End Sub