PowerPoint VBA教程:Id属性

返回 Long 类型值,该值标识形状或形状范围。只读。

expression.Id

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

VBA示例

本示例向当前演示文稿添加一个新形状,再根据 ID属性的值填充该形状。


Sub ShapeID()
    With ActivePresentation.Slides(1).Shapes.AddShape _
            (Type:=msoShape5pointStar, Left:=100, _
            Top:=100, Width:=100, Height:=100)
        Select Case .Id
            Case 0 To 500
                .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)
            Case 500 To 1000
                .Fill.ForeColor.RGB = RGB(Red:=255, Green:=255, Blue:=0)
            Case 1000 To 1500
                .Fill.ForeColor.RGB = RGB(Red:=255, Green:=0, Blue:=255)
            Case 1500 To 2000
                .Fill.ForeColor.RGB = RGB(Red:=0, Green:=255, Blue:=0)
            Case 2000 To 2500
                .Fill.ForeColor.RGB = RGB(Red:=0, Green:=255, Blue:=255)
            Case Else
                .Fill.ForeColor.RGB = RGB(Red:=0, Green:=0, Blue:=255)
        End Select
    End With
End Sub

上页:PowerPoint VBA教程:Hyperlinks属性 下页:PowerPoint VBA教程:IncludeNavigation属性

PowerPoint VBA教程:Id属性

PowerPoint VBA教程:IncludeNavigation属性 PowerPoint VBA教程:IndentLevel属性
PowerPoint VBA教程:Index属性 PowerPoint VBA教程:Ink Property
PowerPoint VBA教程:InsetPen属性 PowerPoint VBA教程:InteractiveSequences属性
PowerPoint VBA教程:IsFullScreen属性 PowerPoint VBA教程:IsNamedShow属性
PowerPoint VBA教程:Italic属性 PowerPoint VBA教程:Item属性
PowerPoint VBA教程:KernedPairs属性 PowerPoint VBA教程:LanguageID属性
PowerPoint VBA教程:LanguageSettings属性 PowerPoint VBA教程:LastChild属性
PowerPoint VBA教程:LastSlideViewed属性 PowerPoint VBA教程:Layout属性
PowerPoint VBA教程:LayoutDirection属性 PowerPoint VBA教程:Left属性
PowerPoint VBA教程:LeftMargin属性 PowerPoint VBA教程:Length属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号