Como inserir caixas de texto com o código VBA no Excel

Passo 1

Clique em "Iniciar", "Microsoft Visual Basic for Applications".

Passo 2

Escreva o seguinte código na janela aberta:

Sub Macro1 ()

Macro Macro1

Dim chtTemp como gráfico

Dim objTemp As Object

Definir chtTemp = ActiveSheet.ChartObjects (1) .Chart

Definir objTemp = chtTemp.Shapes.AddTextbox

(msoTextOrientationHorizontal, 1, 1, 150, 20)

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

ActiveCell.Select

End Sub

Passo 3

Clique em "Arquivo", "Salvar" para adicionar o script VBA ao seu aplicativo de planilha.