Word VBA教程:GradientVariant属性

返回指定的填充过渡的变形类型,对大多数过渡填充来说,其返回值为 1 到 4 之间的整数。如果过渡类型为 msoGradientFromCenter,则此属性返回 1 或 2。此属性值对应“填充效果”对话框中“过渡”选项卡上的过渡变形(从左到右,从上到下计算)。Long 类型,只读。

此属性为只读。可用OneColorGradientTwoColorGradient方法设置填充的过渡变形。

VBA示例

本示例将一个矩形添至活动文档,并将其填充过渡变量设为与名为“rect1”的图形相同。只有在 rect1 有过渡填充时,本示例才有效。


Dim lngGradient As Long
With ActiveDocument.Shapes
    lngGradient = .Item("rect1").Fill.GradientVariant
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient msoGradientHorizontal, _
            lngGradient, 1
    End With
End With

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号