Метод ShapeRange.Apply (Project)

Применяет форматирование к диапазону фигур, где сведения о форматировании были скопированы с помощью метода PickUp .

Синтаксис

expression. Применить

Выражение Переменная, представляющая объект ShapeRange.

Возвращаемое значение

Nothing

Пример

В следующем примере создаются три цилиндрические фигуры, первая — красным цветом, вторая и третья фигуры добавляются в диапазон фигур, копируются форматирование первой фигуры, а затем к диапазону фигур применяется форматирование.

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

См. также

Метод ShapeRangeObject PickUpShape.Apply

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.