Метод Shapes.AddLine (Project)

Статья
04/07/2023

Добавляет строку в отчет и возвращает объект Shape , представляющий линию.

Синтаксис

выражение. AddLine (Beginx,Beginy,Endx,Endy)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
BeginX	Обязательный	Single	Горизонтальное положение (в точках) начальной точки относительно левого края отчета.
Beginy	Обязательный	Single	Вертикальное положение (в точках) начальной точки относительно верхнего края отчета.
EndX	Обязательный	Single	Горизонтальное положение (в точках) конечной точки относительно левого края отчета.
Endy	Обязательный	Single	Вертикальное положение (в точках) конечной точки относительно верхнего края отчета.
BeginX	Обязательный	FLOAT
Beginy	Обязательный	FLOAT
EndX	Обязательный	FLOAT
Endy	Обязательный	FLOAT
Имя	Обязательный или необязательный	Тип данных	Описание

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

Shape

Замечания

Чтобы отформатировать линию, используйте свойство Shape.Line .

Пример

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

Sub AddBigArrow()
    Dim shapeReport As Report
    Dim reportName As String
    Dim lineShape As shape
    
    ' Add a report.
    reportName = "Line report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    Set lineShape = shapeReport.Shapes.AddLine(20, 50, 320, 100)
    
    With lineShape.Line
        .DashStyle = msoLineDashDot
        .Weight = 3
        .EndArrowheadStyle = msoArrowheadTriangle
        .EndArrowheadWidth = msoArrowheadWidthMedium
        .ForeColor.RGB = &HFF0090
    End With
End Sub

См. также

Свойство линии объекта фигуры

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

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

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