Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Kliknite na tlačidlo " Štart " , " Microsoft Visual Basic for Applications " 
 2 
 Zadajte nasledujúci kód v otvorenom okne : . 
 
 Sub macro1 ( ) 
 
 ' Macro1 Macro 
 
 Dim chtTemp ako graf 
 
 Dim objTemp As Object 
 
 Set chtTemp = ActiveSheet.ChartObjects ( 1 ) . graf 
 
 Nastaviť objTemp = chtTemp.Shapes.AddTextbox 
 
 ( msoTextOrientationHorizontal , 1 , 1 , 150 , 20 ) 
 
 objTemp.Select 
 
 Selection.Formula = " = ' " & chtTemp.Parent.Parent.Name & " ! " A1 " 
 
 ActiveCell.Select 
 
 End Sub 
 3 
 Kliknite na " Súbor , " " Uložiť " pre pridanie skriptu VBA do tabuľkového procesora .