ShapeRange.Id プロパティ (PowerPoint)
長い 図形または図形範囲を識別する値を返します。 読み取り専用です。
構文
式。 Id
式ShapeRange オブジェクトを表す変数。
戻り値
Long
例
この例では、作業中のプレゼンテーションに新しい図形を追加し、 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
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。