ShapeRange.Id Property - PowerPoint

Returns a Long that identifies the shape or range of shapes. Read-only.

Syntax

expression.Id

expression A variable that represents a ShapeRange object.

Return Value
Long

Example

This example adds a new shape to the active presentation, then fills the shape according to the value of the ID property.

Visual Basic for Applications

Visual Basic for Applications
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

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

See also: