Entrez le code suivant dans la fenêtre ouverte:
Sub Macro1 ()
'Macro Macro1
Dim chtTemp Comme le graphique
Dim objTemp As Object
Réglez chtTemp = ActiveSheet.ChartObjects (1) .chart
Réglez objTemp = chtTemp.Shapes.AddTextbox
(msoTextOrientationHorizontal, 1, 1, 150, 20)
objTemp.Select
Selection.Formula = "=" chtTemp.Parent.Parent.Name "'! A1"
ActiveCell.Select
End Sub