Cum se introduc casete text cu codul VBA în Excel

Pasul 1

Faceți clic pe "Start", "Microsoft Visual Basic for Applications".

Pasul 2

Scrieți următorul cod în fereastra deschisă:

Sub Macro1 ()

Macro1 Macro

Dimensiune ca diagramă

Dim obiect ca obiect

Setați chtTemp = ActiveSheet.ChartObjects (1) .Chart

Setați objTemp = chtTemp.Shapes.AddTextbox

(msoTextOrientationHorizontal, 1, 1, 150, 20)

objTemp.Select Selection.Formula = "= '" & chtTemp.Parent.Parent.Name & "'! A1"

ActiveCell.Select

End Sub

Pasul 3

Faceți clic pe "Fișier", "Salvați" pentru a adăuga scriptul VBA în aplicația de calcul tabelar.