返回指定填充方式的自定义纹理文件名称。String 类型,只读。
expression.TextureName
expression 必需。该表达式返回一个 FillFormat 对象。
使用 UserTextured 方法可设置用于填充的纹理文件。
本示例向活动文档添加椭圆。如果文档中第二个图形是以用户自定义纹理填充的,则使用和第二个图形相同的纹理填充新椭圆。如果第二个图形是以其它类型的纹理填充的,则以绿色大理石纹理填充新椭圆。本示例假定活动文档至少已包含两个图形。
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