Метод Shapes.AddShape (Project)

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

Синтаксис

выражение. AddShape (Type,Left,Top,Width,Height)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	MsoAutoShapeType	Указывает тип создаваемого автофигуры.
Left	Обязательный	Single	Позиция в точках левого края автофигуры.
Top	Обязательный	Single	Позиция верхнего края автофигуры в точках.
Width	Обязательный	Single	Ширина автофигуры (в точках).
Height	Обязательный	Single	Высота автофигуры (в пунктах).
Тип	Обязательный	MSOAUTOSHAPETYPE
Left	Обязательный	FLOAT
Top	Обязательный	FLOAT
Width	Обязательный	FLOAT
Height	Обязательный	FLOAT
Имя	Обязательный или необязательный	Тип данных	Описание

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

Shape

Замечания

Чтобы изменить тип AutoShape, задайте свойство AutoShapeType .

Пример

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

Sub TestShapes()
    Dim shapeReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Shape report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    ' Change the blue cloud to a yellow speech balloon.
    cloudShape2.AutoShapeType = msoShapeBalloon
    cloudShape2.Fill.ForeColor.RGB = &H80FFFF
End Sub

См. также

Перечисление объекта Фигурыобъекта Фигурыобъекта AutoShapeType,перечисление msoAutoShapeType (Office)

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

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