Метод Shapes. Аддшапе (Project)Shapes.AddShape method (Project)

Добавляет форму указанного типа автофигуры в отчет и возвращает объект Shape , представляющий новую фигуру.Adds a shape of the specified AutoShape type to a report, and returns a Shape object that represents the new shape.

СинтаксисSyntax

выражение.expression. AddShape(Тип, левое, верхнее, Ширина, высота)AddShape (Type, Left, Top, Width, Height)

выражение: переменная, представляющая объект Shapes.expression A variable that represents a Shapes object.

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ТипType ОбязательныйRequired MsoAutoShapeTypeMsoAutoShapeType Указывает тип создаваемой автофигуры.Specifies the type of AutoShape to create.
LeftLeft ОбязательныйRequired SingleSingle Положение левого края автофигуры в точках.The position, in points, of the left edge of the AutoShape.
TopTop ОбязательныйRequired SingleSingle Положение верхнего края автофигуры в точках.The position, in points, of the top edge of the AutoShape.
WidthWidth ОбязательныйRequired SingleSingle Ширина автофигуры в пунктах.The width, in points, of the AutoShape.
HeightHeight ОбязательныйRequired SingleSingle Высота автофигуры в пунктах.The height, in points, of the AutoShape.
TypeType ОбязательныйRequired мсоаутошапетипеMSOAUTOSHAPETYPE
LeftLeft ОбязательнаRequired FLOATFLOAT
TopTop ОбязательныйRequired FLOATFLOAT
WidthWidth ОбязательнаRequired FLOATFLOAT
HeightHeight ОбязательнаRequired FLOATFLOAT
ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription

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

ShapeShape

ПримечанияRemarks

Чтобы изменить тип автофигуры, задайте свойство аутошапетипе .To change the type of an AutoShape, set the AutoShapeType property.

ПримерExample

В приведенном ниже примере создается отчет, который содержит две фигуры в облаке, а вторая облачная фигура изменяется на желтое всплывающее сообщение.The following example creates a report that contains two cloud shapes, and then changes the second cloud shape to a yellow speech balloon.

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

См. такжеSee also

Фигуры объекта Shape аутошапетипе свойство мсоаутошапетипе перечисление (Office)Shapes Object Shape Object AutoShapeType Property MsoAutoShapeType enumeration (Office)

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

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи?Have questions or feedback about Office VBA or this documentation? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.