Jak wstawiać pola tekstowe za pomocą kodu VBA w programie Excel

Krok 1

Kliknij "Start", "Microsoft Visual Basic for Applications".

Krok 2

Wpisz następujący kod w otwartym oknie:

Sub Macro1 ()

"Makro makro"

Dim chtTemp As Chart

Dim objTemp As Object

Ustaw chtTemp = ActiveSheet.ChartObjects (1) .Chart

Ustaw objTemp = chtTemp.Shapes.AddTextbox

(msoTextOrientationHorizontal, 1, 1, 150, 20)

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

ActiveCell.Select

End Sub

Krok 3

Kliknij "Plik", "Zapisz", aby dodać skrypt VBA do arkusza kalkulacyjnego.