Método Shapes.AddShape (Project)

Adiciona uma forma do tipo AutoShape especificado a um relatório e retorna um objeto Shape 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, da borda esquerda do AutoShape.
Top	Obrigatório	Single	A posição, em pontos, da borda superior do AutoShape.
Width	Obrigatório	Single	A largura, em pontos, do AutoShape.
Height	Obrigatório	Single	A altura, em pontos, do AutoShape.
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 AutoShape, 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

Propriedade Shapes ObjectAutoShapeTypeMsoAutoShapeType enumeração (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.