Método Shapes.AddShape (Project)

Adiciona uma forma do tipo de AutoForma especificado a um relatório e retorna um objeto Shape que representa a nova forma.

Sintaxe

expression. AddShape (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 MsoAutoShapeType Especifica o tipo de AutoForma a ser criada.
Left Obrigatório Single A posição, em pontos, da borda esquerda da AutoForma.
Top Obrigatório Single A posição, em pontos, da borda superior da AutoForma.
Width Obrigatório Single A largura, em pontos, da AutoForma.
Height Obrigatório Single A altura, em pontos, da AutoForma.
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 uma AutoForma, defina a propriedade AutoShapeType .

Exemplo

O exemplo a seguir 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 fala 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

Formas ObjetoForma ObjetoPropriedade AutoShapeTypeEnumeração MsoAutoShapeType (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.

  • Last updated on