VBA Excel graphique, afficher les données de l'étiquette sur le dernier point seulement

Je veux ajouter des étiquettes de données seulement le point final à ma ligne graphique, pour le moment je suis en utilisant le ci-dessous, qui fonctionne très bien, mais seulement si je connais le point final est.
J'ai fait beaucoup de recherche et trouvé les points(les points.le comte) de l'objet dans l'aide d'excel mais je n'arrive pas à le faire fonctionner pour moi.
S'il vous plaît pouvez-vous suggérer un moyen de n'en montrer que le dernier point sur mon graphique ou (idéalement) tous les graphiques sur une feuille de calcul.

Sub Data_Labels()
'
' Data_Labels Macro

    ActiveSheet.ChartObjects("Menck Chart").Activate
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.Delete
    ActiveSheet.ChartObjects("Menck Chart").Activate
    ActiveChart.SeriesCollection(1).Select
    ActiveChart.SeriesCollection(1).Points(59).Select
    ActiveChart.SeriesCollection(1).Points(59).ApplyDataLabels
    ActiveChart.SeriesCollection(1).DataLabels.Select
    Selection.Format.TextFrame2.TextRange.Font.Size = 9


End Sub
  • Avez-vous essayé un Pour | Chaque instruction?
InformationsquelleAutor user3632580 | 2014-05-13
  1. 3

    Réponse Courte

     Dim NumPoints as Long
 NumPoints = ActiveChart.SeriesCollection(1).Count
 ActiveChart.SeriesCollection(1).Points(NumPoints).ApplyDataLabels

    Réponse Longue

    L'utilisation de ActiveChart est vague, et exige en outre l'étape de sélectionner le tableau d'intérêt. Si vous spécifiez le graphique qui vous intéresse explicitement, votre macro sera beaucoup plus robuste et plus facile à lire. Je recommande également, soit à l'aide d'un With bloc, ou la création de variables intermédiaires, comme la lecture de ActiveChart.SeriesCollection(1).Points sur et qui plus est douloureux et encombre votre code. Essayez le plus tard méthode comme suit:

     Dim chartMenck As Chart, menckPoints as Points, menckDataLabel as DataLabel
 Set chartMenck = Sheet1.ChartObjects("Menck Chart").Chart 
 Set menckPoints  = chartMenck SeriesCollection(1).Points
 menckPoints(menckPoints.Count).ApplyDataLabels
 Set menckDataLabel = menckPoints(menckPoints.Count).DataLabel
 menckDataLabel.Font.Size = 9

    C'est près de la moitié aussi longtemps que l'original et beaucoup plus facile à lire, à mon avis.

    InformationsquelleAutor CodeJockey
  2. 1

    De l'essayer. D'abord elle s'applique datalabels à TOUS les points, puis les supprime à partir de chaque point, sauf le dernier.

    - Je utiliser le Points.Count - 1 de cette façon, le For/Next boucle s'arrête avant que le dernier point.

    Sub Data_Labels()
'
Data_Labels Macro
Dim ws As Worksheet
Dim cht as Chart
Dim srs as Series
Dim pt as Point
Dim p as Integer
Set ws = ActiveSheet
Set cht = ws.ChartObjects("Menck Chart")
Set srs = cht.SeriesCollection(1)
    '## Turn on the data labels
    srs.ApplyDataLabels
    '## Iterate the points in this series
    For p = 1 to srs.Points.Count - 1 
        Set pt = srs.Points(p)
        '## remove the datalabel for this point
        p.Datalabel.Text = ""
    Next
    '## Format the last datalabel to font.size = 9
    srs.Points(srs.Points.Count).DataLabel.Format.TextFrame2.TextRange.Font.Size = 9


End Sub
    InformationsquelleAutor David Zemens