Word VBA教程:Shadow属性

应用于 Borders对象的 Shadow属性。

如果为 True,则指定的边框设置为阴影格式。Boolean 类型,可读写。

expression.Shadow

expression   必需。该表达式返回一个Borders对象。

应用于 Font对象的 Shadow属性。

如果为 True,则指定的字体设为阴影格式。属性值可以取 True、False 或 wdUndefined。Long 类型,可读写。

expression.Shadow

expression   必需。该表达式返回一个Font对象。

应用于 Shape 和 ShapeRange对象的 Shadow属性。

返回一个ShadowFormat对象,该对象代表指定图形的阴影格式。

expression.Shadow

expression   必需。该表达式返回以上一个对象。

VBA示例

当应用于 Borders对象时。

本示例在新文档中演示两种不同的边框样式。


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

当应用于 Font对象时。

本示例对所选内容应用阴影和加粗格式。


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

当应用于 Shape 和 ShapeRange对象时。

本示例向活动文档中添加一个带阴影格式的箭头。


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号