Método Shapes.AddCallout (Project)

Cria uma chamada de linha sem bordas em um relatório. Retorna um objeto Shape que representa a nova chamada.

Sintaxe

expression. AddCallout(Tipo,Esquerda,Superior,Largura,Altura)

expressão Uma variável que representa um objeto Formas.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Type	Obrigatório	MsoCalloutType	O tipo de texto explicativo.
Left	Obrigatório	Single	A posição, em pontos, da borda esquerda da caixa delimitadora para a chamada.
Top	Obrigatório	Single	A posição, em pontos, da borda superior da caixa delimitadora para a chamada.
Width	Obrigatório	Single	A largura, em pontos, da caixa delimitadora para a chamada.
Height	Obrigatório	Single	A altura, em pontos, da caixa delimitadora para a chamada.
Tipo	Obrigatório	MSOCALLOUTTYPE
Left	Obrigatório	FLOAT
Top	Obrigatório	FLOAT
Width	Obrigatório	FLOAT
Height	Obrigatório	FLOAT

Valor de retorno

Formato

Comentários

O parâmetro Type pode ser uma das seguintes constantes MsoCalloutType :

msoCalloutOne: uma linha de chamada de segmento único que pode ser horizontal ou vertical.
msoCalloutTwo: uma linha de chamada de segmento único que gira livremente.
msoCalloutMixed: um valor retornado que indica uma combinação dos outros estados.
msoCalloutThree: uma linha de dois segmentos, em que as extremidades do segmento podem ser arrastadas para posições diferentes.
msoCalloutFour: uma linha de três segmentos.

Você pode inserir uma maior variedade de chamadas, como balões e nuvens, usando o método AddShape .

Exemplo

O exemplo a seguir adiciona uma chamada com uma linha de chamada de dois segmentos, define o ângulo do segmento final como 60 graus da vertical e adiciona texto à chamada.

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

Confira também

Método AddShapedo ObjetoShape de Formas de Formas

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.