Início / coding / Perguntas / 79463992
Accepted
Kram Kramer
Asked: 2025-02-24 23:03:28 +0800 CST

Como extrair todas as propriedades de um gráfico do Excel?

  • 772

Execute o código a seguir para fins de teste.

    Public Sub Macro1()
    
    'Delete all charts
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        If ActiveSheet.Shapes(i).Type = msoChart Then
            ActiveSheet.Shapes(i).Delete
        End If
    Next i
    
    'Add a chart.
    With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=400, Height:=200)
        .Name = "myChart"
    End With
    
    'Add a serie.
    With ActiveSheet.ChartObjects("myChart").Chart.SeriesCollection.NewSeries
        .ChartType = xlLine
        .XValues = Array(10, 20, 30, 40, 50)
        .Values = Array(1, 2, 3, 4, 5)
    End With
    
    'Apply a new chart style template
    ActiveSheet.ChartObjects("myChart").Chart.ClearToMatchStyle
    ActiveSheet.ChartObjects("myChart").Chart.ChartStyle = 233
    
    End Sub

Quero extrair todas as propriedades do gráfico acima.

O link a seguir fornece uma boa resposta, mas não sei como usar a janela VBE Locals .

Como listar propriedades de um objeto gráfico no VBA?

excel

2 respostas

  1. Best Answer

    Para exibir algo na janela local, você precisa ter uma variável local apontando para o que lhe interessa.

    Use um código como este (talvez você tenha que adaptá-lo um pouco)

    Sub showChartInfo()
    Dim ws As Worksheet, co As ChartObject, ch As Chart
    
    Set ws = ThisWorkbook.Sheets(1)
    Set co = ws.ChartObjects(1)
    Set ch = co.Chart
End Sub

    Defina um ponto de interrupção na End Sublinha - e deixe o código ser executado.

    insira a descrição da imagem aqui

    • 2

  2. O tlbinf32.dll permite listar todas as propriedades de um objeto, mas como o próprio nome diz, ele só funciona no Office de 32 bits (eu acho). Veja: https://jkp-ads.com/articles/objectlister.aspx

    • 1

relate perguntas