Shape.Apply メソッド (Project)
PickUp メソッドを使用して書式設定情報がコピーされた図形に書式設定を適用します。
構文
式。適用
式Shape オブジェクトを表す変数。
戻り値
Nothing
例
次の例では、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 オブジェクトPickUp メソッドShapeRange.Apply メソッド
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。