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

  • Artigo

Adiciona uma forma do tipo de Forma Automática especificada a um relatório e devolve um objeto Forma que representa a nova forma.

Sintaxe

expression. AddShape (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 MsoAutoShapeType Especifica o tipo de AutoForma a ser criada.
Left Obrigatório Single A posição, em pontos, do limite esquerdo da forma automática.
Top Obrigatório Single A posição, em pontos, da margem superior da forma automática.
Width Obrigatório Single A largura, em pontos, da forma automática.
Height Obrigatório Single A altura, em pontos, da forma automática.
Tipo Obrigatório MSOAUTOSHAPETYPE
Left Obrigatório FLOAT
Top Obrigatório FLOAT
Width Obrigatório FLOAT
Height Obrigatório FLOAT
Nome Obrigatório/Opcional Tipo de dados Descrição

Valor de retorno

Formato

Comentários

Para alterar o tipo de forma automática, defina a propriedade AutoShapeType .

Exemplo

O exemplo seguinte cria um relatório que contém duas formas de nuvem e, em seguida, altera a segunda forma de nuvem para um balão de voz amarelo.

Sub TestShapes()
    Dim shapeReport As Report
    Dim reportName As String
    
    ' Add a report.
    reportName = "Shape report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)

    ' Add two clouds.
    Dim cloudShape1 As shape
    Dim cloudShape2 As shape
    Set cloudShape1 = shapeReport.Shapes.AddShape(msoShapeCloud, 20, 20, 100, 60)
    Set cloudShape2 = shapeReport.Shapes.AddShape(msoShapeCloud, 100, 200, 60, 100)
    
    ' Change the blue cloud to a yellow speech balloon.
    cloudShape2.AutoShapeType = msoShapeBalloon
    cloudShape2.Fill.ForeColor.RGB = &H80FFFF
End Sub

Confira também

Shapes ObjectShape ObjectAutoShapeType PropertyMsoAutoShapeType enumeration (Office)

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.