Compartilhar via

Shapes.AddCallout method (Project) (Método Shapes.AddCallout [Projeto])

  • Artigo

Cria uma nota de aviso de linha sem limites num relatório. Devolve um objeto Forma que representa a nova nota de aviso.

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 margem esquerda da caixa delimitadora da nota de aviso.
Top Obrigatório Single A posição, em pontos, da margem superior da caixa delimitadora da nota de aviso.
Width Obrigatório Single A largura, em pontos, da caixa delimitadora da nota de aviso.
Height Obrigatório Single A altura, em pontos, da caixa delimitadora da nota de aviso.
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 nota de aviso de segmento único que pode ser horizontal ou vertical.
msoCalloutTwo: uma linha de nota de aviso de segmento único que roda livremente.
msoCalloutMixed: um valor devolvido que indica uma combinação dos outros estados.
msoCalloutThree: uma linha de dois segmentos, onde as extremidades do segmento podem ser arrastadas para posições diferentes.
msoCalloutFour: uma linha de três segmentos.

Pode inserir uma maior variedade de notas de aviso, como balões e nuvens, com o método AddShape .

Exemplo

O exemplo seguinte adiciona uma nota de aviso com uma linha de nota de aviso de dois segmentos, define o ângulo do segmento final para 60 graus a partir da vertical e adiciona texto à nota de aviso.

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

Shapes ObjectShape Object MethodAddShape Method (Método AddShape)

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.