VBA Excel - Obtendo informações sobre os pontos no gráfico usando o PointClass - Retrieve Information About Chart Points Using Excel.PointClass

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

Este exemplo mostra como obter informações sobre os pontos de um gráfico do MS Excel, como o nome, posições de topo e à esquerda, a largura e a altura.

Vamos aprender a trabalhar com os novos membros da classe Point. Agora podemos obter informações sobre os pontos em um gráfico, incluindo:

  - Nome

  - Início

  - Esquerda

  - Largura

  - Altura

Pontos em um gráfico são numerados a partir da esquerda para a direita na série. Dada a informação sobre o ponto, podemos escrever um código para colocar outras informações sobre o gráfico, ou interagir com estes pontos.

Sub TestPointClass() 

    ' First, create a simple chart that contains points. 

    Range("A1:B1").Value = Array("Region", "Sales") 

    Range("A2:B2").Value = Array("North", 100) 

    Range("A3:B3").Value = Array("South", 200) 

    Range("A4:B4").Value = Array("East", 300) 

    Range("A5:B5").Value = Array("West", 400) 

    

    Dim cht As Chart 

    Set cht = Shapes.AddChart.Chart 

    cht.ChartType = xlLineMarkers 

    cht.SetSourceData Source:=Range("A1:B5") 

    With cht.SeriesCollection(1) 

        .Points(1).MarkerStyle = xlMarkerStyleDiamond 

        .Points(2).MarkerStyle = xlMarkerStyleCircle 

        .Points(3).MarkerStyle = xlMarkerStyleDash 

        .Points(4).MarkerStyle = xlMarkerStyleSquare 

        

        Dim i As Integer 

        For i = 1 To 4 

            DisplayPointProperties .Points(i) 

        Next i 

    End With 

    

End Sub 

Sub DisplayPointProperties(pt As Point) 

    ' Display information about the selected 

    ' point in the Immediate window: 

    Debug.Print "========" 

    Debug.Print "Name:   " & pt.Name 

    Debug.Print "Left:   " & pt.Left 

    Debug.Print "Top :   " & pt.Top 

    Debug.Print "Width:  " & pt.Width 

    Debug.Print "Height: " & pt.Height 

End Sub

Tags: VBA, Excel, Retrieve, Information, Chart, PointClass