mhdingbi
XLDnaute Nouveau
Bonjour à tous,
J'avais un problème à vous soumettre. J'ai créé des labels graphiques sur VBA pour une ligne que j'ai créée pour délimiter les droites sur l'axe Y. Maintenant je veux positionner ce Label entre le point où j'ai affecté ce label (C'est à dire le point(2)) et le point précédent (le point(1)) car ce label présente le pourcentage délimiter par les deux points (Une image est jointe). Maintenant voici le code.
Je veux que la propriété .Top récupère la propriété .Top du Point(1) et le combine avec le .Top du Point(2) et se positionner entre les deux.
Remarque: j'ai pas créer de Label pour le premier point.
J'avais un problème à vous soumettre. J'ai créé des labels graphiques sur VBA pour une ligne que j'ai créée pour délimiter les droites sur l'axe Y. Maintenant je veux positionner ce Label entre le point où j'ai affecté ce label (C'est à dire le point(2)) et le point précédent (le point(1)) car ce label présente le pourcentage délimiter par les deux points (Une image est jointe). Maintenant voici le code.
VB:
For i = 20 To 20 + NombreDeClasse - 1
Set SerieDonnnees = GraphiqueGranulometrie.FullSeriesCollection(i)
With SerieDonnnees.Points(2)
.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False, AutoText:=True, HasLeaderLines:=False
.DataLabel.Text = AideGranulométrie.Range("AideGranulométrie.PourcentageGraviers" & i - 20).Text
.DataLabel.Position = xlLabelPositionLeft
.DataLabel.Top = .DataLabel.Top + 70
'.DataLabel.Left = .DataLabel.Left - 50
With .DataLabel.Font
.Color = SerieDonnnees.Border.Color
.Size = 15
.Name = "Segoe UI Semibold"
.Bold = True
End With
End With
Next i
Je veux que la propriété .Top récupère la propriété .Top du Point(1) et le combine avec le .Top du Point(2) et se positionner entre les deux.
Remarque: j'ai pas créer de Label pour le premier point.
Dernière édition: