Método Shapes.AddCallout (Project)

Cria um texto explicativo de linha sem borda em um relatório. Retorna um objeto Shape que representa o novo texto explicativo.

Sintaxe

expression. AddCallout (Tipo,Esquerda,Parte 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 o texto explicativo.
Top Obrigatório Single A posição, em pontos, da borda superior da caixa delimitadora para o texto explicativo.
Width Obrigatório Single A largura, em pontos, da caixa delimitadora do balão.
Height Obrigatório Single A altura, em pontos, da caixa delimitadora do balão.
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 texto explicativo de segmento único que pode ser horizontal ou vertical.
msoCalloutTwo: uma linha de texto explicativo 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 variedade maior de textos explicativos, como balões e nuvens, usando o método AddShape .

Exemplo

O exemplo a seguir adiciona um texto explicativo com uma linha de texto explicativo de dois segmentos, define o ângulo do segmento final como 60 graus em relação à vertical e adiciona texto ao texto explicativo.

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

Formas ObjetoForma MétodoAddShape de Objeto

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.

  • Last updated on