Word VBA教程:TextureName属性

返回指定填充方式的自定义纹理文件名称。String 类型,只读。

expression.TextureName

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

说明

使用UserTextured方法可设置用于填充的纹理文件。

VBA示例

本示例向活动文档添加椭圆。如果文档中第二个图形是以用户自定义纹理填充的,则使用和第二个图形相同的纹理填充新椭圆。如果第二个图形是以其它类型的纹理填充的,则以绿色大理石纹理填充新椭圆。本示例假定活动文档至少已包含两个图形。


With ActiveDocument.Shapes
    Set newFill = .AddShape(msoShapeOval, 0, 0, 200, 90).Fill
    With .Item(2).Fill
        If.TextureType = msoTextureUserDefined Then
            newFill.UserTextured .TextureName
        Else
            newFill.PresetTextured msoTextureGreenMarble
        End If
    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号