Views

...

Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

E-mails

Deixe seu e-mail para receber atualizações...

eBook Promo

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

Inline image 1


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

eBooks VBA na AMAZOM.com.br

LinkWithinBrazilVBAExcelSpecialist

Related Posts Plugin for WordPress, Blogger...

Vitrine