Метод Shape.Apply (Project)

Статья
04/07/2023

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

Синтаксис

expression. Применить

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

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

Nothing

Пример

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

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

См. также

Метод PickUp объекта ShapeRange.Apply

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

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

Поделиться через