graficos en XP

Si se trata de un gráfico situado en una hoja de gráfico, el siguiente código mostraría un comentario al situar el puntero del ratón en la zona superior izquierda:

Private Sub Chart_Activate()
Application.ShowChartTipNames = False

Dim sp As Shape
Set sp = Me.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 50, 100, 20)
With sp
.TextFrame.Characters.Text = "Texto del comentario"
.Visible = msoTrue
End With
Set sp = Nothing
End Sub

Private Sub Chart_Deactivate()
Me.Shapes(1).Delete
Application.ShowChartTipNames = True
End Sub

Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
If x < 100 And y < 100 Then Me.Shapes(1).Visible = msoTrue Else Me.Shapes(1).Visible = msoFalse
End Sub


El código va en el módulo del gráfico (click derecho sobre su etiqueta->Ver código).
Si se tratara de un gráfico incrustado, la cosa se complicaría un poco.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Claudia" escribió en el mensaje news:

necesito insertar un comentario en un grafico, el mismo debe aparecer solo cuando con el mouse me posiciono en un punto determinado del grafico