Shadow Property Example

This example demonstrates two different border styles in a new document.

Set myRange = Documents.Add.Content
With myRange
   .InsertAfter "Demonstration of border with shadow. "
   .InsertParagraphAfter
   .InsertParagraphAfter
   .InsertAfter "Demonstration of border without shadow."
End With
With ActiveDocument
    .Paragraphs(1).Borders.Shadow = True
    .Paragraphs(3).Borders.Enable = True
End With

This example applies shadow and bold formatting to the selection.

If Selection.Type = wdSelectionNormal Then 
    With Selection.Font
        .Shadow = True
        .Bold = True
    End With
Else
    MsgBox "You need to select some text."
End If

This example adds an arrow with shadow formatting to the active document.

Set myShape = ActiveDocument.Shapes _
    .AddShape(Type:=msoShapeRightArrow, _
    Left:=90, Top:=79, Width:=64, Height:=43)
myShape.Shadow.Type = msoShadow5