Shapes.AddShape метод (Project)

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

Синтаксис

выражение. AddShape (Тип,Слева,Верхний,Ширина,Высота)

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

Параметры

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

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

Shape

Примечания

Чтобы изменить тип автофигуры, задайте свойство 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 и обратная связь.