Метод Shapes. Аддкаллаут (Project)Shapes.AddCallout method (Project)

Создает выноску линии без обрамления в отчете.Creates a borderless line callout in a report. Возвращает объект Shape , представляющий новую выноску.Returns a Shape object that represents the new callout.

СинтаксисSyntax

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

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

ПараметрыParameters

ИмяName Обязательный или необязательныйRequired/Optional Тип данныхData type ОписаниеDescription
ТипType ОбязательныйRequired MsoCalloutTypeMsoCalloutType Тип выноски.The type of callout.
LeftLeft ОбязательныйRequired SingleSingle Положение левого края ограничивающего прямоугольника для выноски (в пунктах).The position, in points, of the left edge of the bounding box for the callout.
TopTop ОбязательныйRequired SingleSingle Положение верхнего края ограничивающего прямоугольника для выноски (в пунктах).The position, in points, of the top edge of the bounding box for the callout.
WidthWidth ОбязательныйRequired SingleSingle Ширина (в пунктах) ограничительной рамки для выноски.The width, in points, of the bounding box for the callout.
HeightHeight ОбязательныйRequired SingleSingle Высота ограничительной рамки для выноски (в пунктах).The height, in points, of the bounding box for the callout.
TypeType ОбязательныйRequired мсокаллауттипеMSOCALLOUTTYPE
LeftLeft ОбязательнаRequired FLOATFLOAT
TopTop ОбязательныйRequired FLOATFLOAT
WidthWidth ОбязательнаRequired FLOATFLOAT
HeightHeight ОбязательнаRequired FLOATFLOAT

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

ShapeShape

ПримечанияRemarks

Параметр Type может быть одной из следующих констант мсокаллауттипе :The Type parameter can be one of the following MsoCalloutType constants:

мсокаллаутоне: линия выноски с одним сегментом, которая может быть горизонтальной или вертикальной.msoCalloutOne: A single-segment callout line that can be horizontal or vertical.
мсокаллауттво: линия выноски с одним сегментом, которая поворачивается свободно.msoCalloutTwo: A single-segment callout line that rotates freely.
мсокаллаутмиксед: возвращаемое значение, которое указывает комбинацию других состояний.msoCalloutMixed: A return value that indicates a combination of the other states.
мсокаллаутсри: строка из двух сегментов, в которой концы сегмента можно перетаскивать в разные позиции.msoCalloutThree: A two-segment line, where the segment ends can be dragged to different positions.
мсокаллаутфаур: строка из трех сегментов.msoCalloutFour: A three-segment line.

С помощью метода аддшапе можно вставить более разнообразные выноски, такие как выноски и облака.You can insert a greater variety of callouts, such as balloons and clouds, by using the AddShape method.

ПримерExample

В приведенном ниже примере показано, как добавить выноску с двумя сегментами линии выноски, задающий угол в 60 градусов относительно вертикального и добавляющего текст в выноску.The following example adds a callout with a two-segment callout line, sets the angle of the end segment to 60 degrees from the vertical, and adds text to the callout.

Sub AddCallout()
    Dim oReports As Reports
    Dim oReport As Report
    Dim calloutShape As shape
    Dim reportName As String
    
    reportName = "Report 1"
    Set oReports = ActiveProject.Reports

    If oReports.IsPresent(reportName) Then
        ' Make the report the active view.
        oReports(reportName).Apply
        
        Set oReport = oReports(reportName)
        
        Set calloutShape = oReport.Shapes.AddCallout(Type:=msoCalloutTwo, _
                                        left:=200, top:=5, width:=100, height:=50)
        With calloutShape
            .Callout.Type = msoCalloutThree
            .Callout.Angle = msoCalloutAngle60
            .BackgroundStyle = msoBackgroundStylePreset10
            .TextFrame2.TextRange.Text = "This is a test"
        End With
    Else
         MsgBox Prompt:="The requested report, '" & reportName _
            & "', does not exist.", Title:="Report error"
    End If
End Sub

См. такжеSee also

Shapes ObjectShape Object AddShape Method Метод аддшапе объекта Shape объекта Shape Shapes Object Shape Object AddShape Method

Поддержка и обратная связь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.