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 .