Word VBA教程:ExtrusionColorType属性

返回或设置一个属性值,该值表明延伸区域的颜色是否基于原图形的填充(延伸区域的正面)色,并随着图形填充色的改变而自动变化,或者延伸区域的颜色是否与图形填充色的无关。MsoExtrusionColorType,可读写。

MsoExtrusionColorType 可以是下列 MsoExtrusionColorType 常量之一:
msoExtrusionColorAutomatic 延伸区域颜色基于图形填充色。
msoExtrusionColorTypeMixed
msoExtrusionColorCustom 延伸区域颜色与图形填充色无关。

expression.ExtrusionColorType

expression   必需。该表达式返回“应用于”列表中的一个对象。

VBA示例

如果活动文档中的第一个图形的延伸区域颜色是自动设置的,则本示例将此延伸区域的颜色设置为自定义的黄色。


Dim docActive As Document
Set docActive = ActiveDocument
With docActive.Shapes(1).ThreeD
    If .ExtrusionColorType = msoExtrusionColorAutomatic Then
        .ExtrusionColor.RGB = RGB(240, 235, 16)
    End If
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号