Excel'de VBA koduyla metin kutuları nasıl eklenir

1. Adım

"Başlat", "Microsoft Visual Basic for Applications" seçeneğini tıklayın.

2. Adım

Açık pencerede aşağıdaki kodu yazın:

Alt Makro1 ()

'Makro1 Makro

Grafik olarak Dim chtTemp

Nesne olarak Nesne

ChtTemp = ActiveSheet.ChartObjects (1) .Chart öğesini ayarlayın.

ObjTemp = chtTemp.Shapes.AddTextbox öğesini ayarlayın

(msoTextOrientationHorizontal, 1, 1, 150, 20)

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

ActiveCell.Select

Son Sub

3. adım

Elektronik tablo uygulamanıza VBA komut dosyasını eklemek için "Dosya", "Kaydet" i tıklayın.