如果为 True,则指定的字体设为阴影格式。属性值可以取 True、False 或 wdUndefined。Long 类型,可读写。
expression.Shadow
expression 必需。该表达式返回一个 Font 对象。
应用于 Shape 和 ShapeRange 对象的 Shadow 属性。
本示例在新文档中演示两种不同的边框样式。
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
本示例对所选内容应用阴影和加粗格式。
If Selection.Type = wdSelectionNormal Then
With Selection.Font
.Shadow = True
.Bold = True
End With
Else
MsgBox "You need to select some text."
End If
本示例向活动文档中添加一个带阴影格式的箭头。
Set myShape = ActiveDocument.Shapes _
.AddShape(Type:=msoShapeRightArrow, _
Left:=90, Top:=79, Width:=64, Height:=43)
myShape.Shadow.Type = msoShadow5