次の方法で共有


Shape.PickUp メソッド (Project)

図形の書式をコピーします。

構文

ピックアップ

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

戻り値

Nothing

注釈

Apply メソッドを使用して、コピーした書式を別の図形に適用します。

次の例では、2 つの円柱状の図形を作成し、最初の図形を赤に色付けし、最初の図形の書式をコピーして 2 番目の図形に適用します。

Sub ApplyShapeFormat()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 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.
    
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 30, 140, 100, 100)
    shp2.Name = "Shape 2"               ' Blue default color.
    
    With theReport
        .Shapes("Shape 1").PickUp
        .Shapes("Shape 2").Apply
    End With
End Sub

関連項目

Shape オブジェクト適用メソッドShapeRange.Pickup メソッド

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

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