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

With ActivePresentation.Slides(1).Shapes.AddShape(ksoShape5pointStar, 100, 100, 100, 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