commantaire ds un graph

Bonjour
J'ai crée plusieurs graphiques (courbes). Dans certaines cellules j'ai
mis un commantaire.
J' aimerais savoir s'il est possible de les faire apparaître ds les graphes,
a la place des indications "série,pointer;valeur", lorsqu'on positionne
le focus sur la ligne du graph .

Bonsoir,

Sauf erreur de ma part, il n'est pas possible, même avec VBA,
d'intervenir sur le texte des infobulles des graphiques. On peut
seulement choisir de les afficher ou pas.

Cordialement,

--
François L

Bonsoir,
Je ne pense pas que cela soit possible mais peut être que la solution
proposée par Laurent Longre peut t'intéresser :
http://www.excelabo.net/xl/graph.php#infospersos

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 16/11/2005 11:57, :

Bonjour
J'ai crée plusieurs graphiques (courbes). Dans certaines cellules j'ai
mis un commantaire.
J' aimerais savoir s'il est possible de les faire apparaître ds les graphes,
a la place des indications "série,pointer;valeur", lorsqu'on positionne
le focus sur la ligne du graph .

Christian

Bonjour
Ce n'ai pas ce que je cherchais mais c'est intéressent.
merci

Christian

Bonsoir,
Je ne pense pas que cela soit possible mais peut être que la solution
proposée par Laurent Longre peut t'intéresser :
http://www.excelabo.net/xl/graph.php#infospersos

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 16/11/2005 11:57, :

Bonjour
J'ai crée plusieurs graphiques (courbes). Dans certaines cellules j'ai
mis un commantaire.
J' aimerais savoir s'il est possible de les faire apparaître ds les graphes,
a la place des indications "série,pointer;valeur", lorsqu'on positionne
le focus sur la ligne du graph .

Christian

Bonjour,

Voici un exemple de graphique avec commentaire et photos.

http://cjoint.com/?luno4UZdWn

Sub commentaire()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 1 To nb_points
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Interior.ColorIndex = 36
Selection.Font.Size = 7
Selection.Text = Sheets(1).Cells(i + 1, 3)
Next i
End Sub

Sub deplaceCommentaireBas()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
nb_points = ActiveChart.SeriesCollection(1).Points.Count
For i = 1 To nb_points
ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
Selection.Top = Selection.Top + 5
Next i
End Sub
Sub Photos()
ActiveSheet.ChartObjects(1).Activate
nomGraphe = ActiveSheet.ChartObjects(1).Name
nb_points = ActiveChart.SeriesCollection(1).Points.Count
ActiveChart.PlotArea.Select
xp = Selection.Left
yp = Selection.Top
lp = Selection.Width ' largeur plot aréa
hp = Selection.Height
ActiveChart.Axes(xlValue).Select
mx = ActiveChart.Axes(xlValue).MaximumScale
xg = ActiveSheet.Shapes(nomGraphe).Left
yg = ActiveSheet.Shapes(nomGraphe).Top
Range("A1").Select
For i = 1 To nb_points
x = Sheets(1).Cells(i + 1, 1)
ActiveSheet.Shapes(x).Select
Selection.ShapeRange.Left = xg + (lp / nb_points) * i - 35
Selection.ShapeRange.Top = yg + yp + (mx - Cells(i + 1, 2)) * (hp /
mx) - 80
Next i
[A1].Select
End Sub


Cordialement JB