Método Shapes.AddCallout (Project)

Crea una llamada de línea sin borde en un informe. Devuelve un objeto Shape que representa la nueva llamada.

Sintaxis

expresión. AddCallout (Type,Left,Top,Width,Height)

expresión Variable que representa un objeto Shapes.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Type	Obligatorio	MsoCalloutType	Tipo de llamada.
Left	Obligatorio	Single	Posición, en puntos, del borde izquierdo del cuadro delimitador de la llamada.
Top	Obligatorio	Single	Posición, en puntos, del borde superior del cuadro delimitador de la llamada.
Width	Obligatorio	Single	Ancho, en puntos, del cuadro delimitador de la llamada.
Height	Obligatorio	Single	Alto, en puntos, del cuadro delimitador de la llamada.
Tipo	Obligatorio	MSOCALLOUTTYPE
Left	Obligatorio	FLOAT
Top	Obligatorio	FLOAT
Width	Obligatorio	FLOAT
Height	Obligatorio	FLOAT

Valor devuelto

Shape

Observaciones

El parámetro Type puede ser una de las siguientes constantes MsoCalloutType :

msoCalloutOne: línea de llamada de segmento único que puede ser horizontal o vertical.
msoCalloutTwo: línea de llamada de un solo segmento que gira libremente.
msoCalloutMixed: valor devuelto que indica una combinación de los demás estados.
msoCalloutThree: línea de dos segmentos, donde los extremos del segmento se pueden arrastrar a posiciones diferentes.
msoCalloutFour: línea de tres segmentos.

Puede insertar una mayor variedad de llamadas, como globos y nubes, mediante el método AddShape .

Ejemplo

En el ejemplo siguiente se agrega una llamada con una línea de llamada de dos segmentos, se establece el ángulo del segmento final en 60 grados desde la vertical y se agrega texto a la llamada.

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

Vea también

Método AddShapedel objeto Shape del objetoShapes

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.