PowerPoint VBA教程:TextureName属性

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

该属性为只读。使用UserTextured方法设置填充的纹理文件。

VBA示例

本示例向myDocument 中添加一个椭圆。如果myDocument 的第一个形状使用用户定义的纹理填充,则新椭圆使用和第一个形状相同的填充。如果第一个形状使用其他任何类型的填充,则新椭圆使用绿色大理石填充。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    Set newFill = .AddShape(msoShapeOval, 0, 0, 200, 90).Fill
    With .Item(1).Fill
        If .Type = msoFillTextured And _
                .TextureType = msoTextureUserDefined Then
            newFill.UserTextured .TextureName
        Else
            newFill.PresetTextured msoTextureGreenMarble
        End If
    End With
End With

上页:PowerPoint VBA教程:TextUnitEffect属性 下页:PowerPoint VBA教程:TextureType属性

PowerPoint VBA教程:TextureName属性

PowerPoint VBA教程:TextureType属性 PowerPoint VBA教程:ThreeD属性
PowerPoint VBA教程:Time属性 PowerPoint VBA教程:TimeLine属性
PowerPoint VBA教程:Timing属性 PowerPoint VBA教程:TintAndShade属性
PowerPoint VBA教程:Title属性 PowerPoint VBA教程:TitleMaster属性
PowerPoint VBA教程:To属性 PowerPoint VBA教程:Top属性
PowerPoint VBA教程:ToX属性 PowerPoint VBA教程:ToY属性
PowerPoint VBA教程:Tracking属性 PowerPoint VBA教程:Transparency属性
PowerPoint VBA教程:TransparencyColor属性 PowerPoint VBA教程:TransparentBackground属性
PowerPoint VBA教程:TriggerDelayTime属性 PowerPoint VBA教程:TriggerShape属性
PowerPoint VBA教程:TriggerType属性 PowerPoint VBA教程:Type属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号