Show Comments in chart....

  • Thread starter Thread starter Shhhh
  • Start date Start date
S

Shhhh

Hello all...

I have a chart where I am taking a column of data and creating a chart...
along that column certain cells have Comments inserted with the little red
arrow in corner to designate a comment is in that cell.

Is it possible to have either the entire comment or just an arrow or some
sort of symbol placed on a chart?


Thank you,
Shhhh
 
Hello,

http://boisgontierjacques.free.fr/fichiers/graphe/GrapheCommentaire3.xls

Sub commentaire()
ActiveSheet.ChartObjects(1).Activate
On Error Resume Next
ActiveChart.SeriesCollection(1).ApplyDataLabels
Type:=xlDataLabelsShowLabel
On Error GoTo 0
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, 2).Comment.Text
Next i
End Sub


JB
http://boisgontierjacques.free.fr/
 
Back
Top