Table of contents
TOC
Inhaltsverzeichnis reduzieren
Inhaltsverzeichnis erweitern

ShapeRange.Apply-Methode (Project)ShapeRange.Apply Method (Project)

office 365 dev account|Zuletzt aktualisiert: 02.10.2017
|
1 Mitwirkender

Wendet die Formatierung auf einen Formenbereich, wobei die Informationen über die Formatierung mithilfe der PickUp -Methode kopiert wurde.Applies formatting to a shape range, where the formatting information has been copied by using the PickUp method.

SyntaxSyntax

Ausdruck. Anwendenexpression. Apply

Ausdruck Eine Variable, die ein ShapeRange -Objekt darstellt.expression A variable that represents a ShapeRange object.

RückgabewertReturn value

NichtsNothing

BeispielExample

Im folgenden Beispiel wird drei zylindrische Formen erstellt, weist die erste Form die Farbe Rot, einen Formbereich der zweiten und dritten Form hinzugefügt, kopiert die Formatierung der ersten Form und klicken Sie dann die Formatierung der Formenbereich.The following example creates three cylindrical shapes, colors the first shape red, adds the second and third shapes to a shape range, copies the formatting of the first shape, and then applies the formatting to the shape range.

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

Siehe auchSee also

Weitere RessourcenOther resources

ShapeRange-ObjektPickUp-MethodeShape.Apply-MethodeShapeRange ObjectPickUp MethodShape.Apply Method

© 2018 Microsoft