Objeto Diagram

Vários objetos Diagram DiagramNodes

Representa um diagrama.

Usar o objeto Diagram

Use a propriedade Diagram do objeto Shape ou da coleção ShapeRange para retornar um objeto Diagram. O exemplo a seguir adiciona um diagrama radial à planilha ativa.

Sub NewDiagram()

    Dim wksActiveSheet As Worksheet
    Dim shDiagram As Shape

    Set wksActiveSheet = ActiveSheet
    Set shDiagram = wksActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramRadial, _
        Left:=20, Top:=40, _
        Width:=400, Height:=200)

    ' Fill the diagram to make it visible to the user
    shDiagram.Fill.Visible = msoTrue

End Sub

Você pode também converter o diagrama atual em um diagrama diferente usando o método Convert. Observação Se o diagrama atual for um organograma (msoDiagramOrgChart), ocorrerá um erro em tempo de execução. Neste exemplo, um diagrama radial é convertido em um diagrama de destino.

Sub NewDiagram()

    Dim wksActiveSheet As Worksheet
    Dim shDiagram As Shape

    Set wksActiveSheet = ActiveSheet
    Set shDiagram = wksActiveSheet.Shapes.AddDiagram( _
        Type:=msoDiagramRadial, _
        Left:=20, Top:=40, _
        Width:=400, Height:=200)

    ' Fill the diagram to make it visible to the user
    shDiagram.Fill.Visible = msoTrue

    ' Convert the diagram.
    shDiagram.Diagram.Convert Type:=msoDiagramTarget

End Sub

Ao trabalhar com o objeto Diagram, existem vários tipos de diagramas à sua escolha. Consulte o método AddDiagram para visualizar uma lista de tipos de diagramas disponíveis.