ShapeRange.Apply メソッド (Project)

PickUp メソッドを使用して書式設定情報がコピーされた図形範囲に書式設定を適用します。

構文

式。適用

式 'ShapeRange' オブジェクトを表す変数。

戻り値

Nothing

例

次の例では、3 つの円柱状の図形を作成し、最初の図形を赤に色付けし、2 番目と 3 番目の図形を図形範囲に追加し、最初の図形の書式設定をコピーしてから、図形範囲に書式を適用します。

Sub ApplyShapeFormat()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shp3 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Apply Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 10, 30, 100, 100)
    shp1.Name = "Shape 1"
    shp1.Fill.ForeColor.RGB = &H1010FF  ' Red color.
    
    ' Blue default color.
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 30, 140, 100, 100)
    
    ' Blue default color.
    Set shp3 = theReport.Shapes.AddShape(msoShapeCan, 140, 140, 100, 100)
    
    Set sRange = theReport.Shapes.Range(Array(2, 3))
    
    theReport.Shapes("Shape 1").PickUp
    sRange.Apply
End Sub

関連項目

ShapeRange オブジェクトPickUp メソッドShape.Apply メソッド

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

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