Cara menyisipkan kotak teks dengan kode VBA di Excel

Klik "Mulai, " "Microsoft Visual Basic for Applications."

Tulis kode berikut di jendela yang terbuka:

Sub-Macro1 ()

'Macro1 Makro

Dim chtTemp Sebagai Bagan

Dim objTemp As Object

Set chtTemp = ActiveSheet.ChartObjects (1) .Chart

Set objTemp = chtTemp.Shapes.AddTextbox

(msoTextOrientationHorizontal, 1, 1, 150, 20)

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

ActiveCell. Pilih

Akhir Sub

Klik "File", "Save" untuk menambahkan skrip VBA ke aplikasi spreadsheet Anda.