PowerPoint VBA教程:TintAndShade属性

返回 Single 类型值,该值代表使指定形状的颜色是变亮,还是变暗。可读写。

expression.TintAndShade

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

说明

TintAndShade属性值的输入范围为 -1(最暗)到 1 (最亮),0(零)表示中性。

VBA示例

本示例在当前文档中新建一个形状,并设置填充颜色,然后使彩色底纹变亮。


Sub PrinterPlate()
    Dim shpHeart As Shape
    Set shpHeart = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeHeart, Left:=150, _
        Top:=150, Width:=250, Height:=250)
    With shpHeart.Fill.ForeColor
        .CMYK = 16111872
        .TintAndShade = 0.3
        .OverPrint = msoTrue
        .Ink(Index:=1) = 0
        .Ink(Index:=2) = 1
        .Ink(Index:=3) = 1
        .Ink(Index:=4) = 0
    End With
End Sub

上页:PowerPoint VBA教程:Timing属性 下页:PowerPoint VBA教程:Title属性

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属性
PowerPoint VBA教程:Underline属性 PowerPoint VBA教程:UpdateLinksOnSave属性
PowerPoint VBA教程:UseFormat属性 PowerPoint VBA教程:UseLongFileNames属性
PowerPoint VBA教程:UseTextColor属性 PowerPoint VBA教程:UseTextFont属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号