Word VBA教程:Ink属性

该属性返回或设置一个 Single 类型的数值,表示指定颜料的浸润程度。可读写。

expression.Ink(Index)

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

Index  Long 类型,必需。颜料的颜色数。

说明

Ink属性的数值可以是 0 到 1 之间的任意数值。0 表示没有颜料;1 表示完全浸润。例如,0.5 将使指定的颜料浸润程度为 50%。

VBA示例

本示例在活动文档中创建一个新图形,设置其填充颜色,并指定四种 CMYK 颜色中两种颜色的浸润程度。


Sub TintShade()
    Dim shpHeart As Shape
    Set shpHeart = ActiveDocument.Shapes.AddShape( _
        Type:=msoShapeHeart, Left:=150, _
        Top:=150, Width:=250, Height:=250)
    With shpHeart.Fill.ForeColor
        .SetCMYK Cyan:=0, Magenta:=125, Yellow:=12, Black:=25
        .TintAndShade = 0.3
        .OverPrint = msoTrue
        .Ink(Index:=1) = 0.3
        .Ink(Index:=2) = 0.7
    End With
End Sub

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号