ShapeRange.Id-Eigenschaft (PowerPoint)
Gibt eine lange, die die Form oder einen Bereich von Formen identifiziert. Schreibgeschützt.
Syntax
Ausdruck. Id
Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.
Rückgabewert
Long
Beispiel
In diesem Beispiel wird der aktiven Präsentation eine neue Form hinzugefügt und anschließend füllt die Form entsprechend dem Wert der Id -Eigenschaft.
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
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.