Shape.Select メソッド (Project)

図形を選びます。

構文

式。選択(置換)

式: Shape オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Replace 省略可能 バリアント型 (Variant) true を指定すると、現在の選択範囲が新しい選択範囲に置き換えられます。 False は 、現在の選択に新しい選択を追加します。 既定値は True です。
Replace 省略可能 バリアント型 (Variant)

戻り値

Nothing

例

次の例では、3 つの図形を作成し、それぞれの図形を選択します。 2 番目と 3 番目の選択が最初の選択に加算されるため、3 つの図形がすべて選択されます (図 1 を参照)。

Sub SelectShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    
    reportName = "Select Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeActionButtonHelp, 20, 50, 20, 30)
    Set shp2 = theReport.Shapes.AddShape(msoShapeBalloon, 100, 50, 30, 50)
    Set shp3 = theReport.Shapes.AddShape(msoShapeWave, 140, 50, 30, 50)
            
    shp1.Select
    shp2.Select False
    shp3.Select False
End Sub

図 1. Select メソッドを使用して選択範囲に追加する

Select メソッドを使用して選択範囲を追加

関連項目

Shape オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on