Na suíte Microsoft Office , Visual Basic for Applications (VBA) é o shell de programação que dá aos usuários avançados a capacidade de criar documentos complexos e automatizados. Uma das tarefas mais complexas que você pode fazer no Excel usando VBA é criar um gráfico e incorporá-lo na mesma planilha em que você está trabalhando. Use o objeto " ChartObject " em VBA para criar e inserir um gráfico em uma planilha do Excel. Instruções
1

Abra o Excel 2010 e mostrar a guia Desenvolvedor , se ele não estiver aparecendo. Clique em " Arquivo" e depois em " Opções ". Clique em " Customize Ribbon " no painel Categorias. Selecione "Developer" na lista de guias principais e , em seguida, clique em " OK".
2

Clique na aba "Developer" , que agora deve ser exibido na Faixa de Opções . Clique em " Visual Basic " para abrir o editor do Visual Basic.
3

Clique duas vezes sobre a planilha na qual você deseja inserir o gráfico da dor Projeto. Todas as planilhas que estão atualmente em seu projeto está listado no painel . O código para a planilha será aberta na janela Código . Se você ainda não tiver adicionado o código para a planilha a janela de código ficará em branco.
4

Clique em " Inserir" e , em seguida, "Procedimento ". Digite um nome para o procedimento na janela de nome, deixar todas as outras opções do mesmo e , em seguida, clique em " OK". Para o exemplo deste artigo , o nome do procedimento " embedChart ".
5

Adicione o código que irá incorporar um gráfico na planilha . Clique entre o " Public Sub ... " e declarações " End Sub" que estão agora na janela Código . Você irá adicionar o código para o procedimento , entre as duas declarações . A Microsoft desenvolveu o código que irá criar um gráfico e incorporá-lo na planilha atual. Copie este código em seu procedimento ou escrever a sua própria .

"Sub embedChart ()

Dim chtNew Como Chart

Definir chtNew = Charts.Add

Definir chtNew = chtNew.Location (Onde : = xlLocationAsObject , Name: = "Sheet1" ) .

Com chtNew

ChartType = xl3DPie

'Definir a fonte gama de dados para o gráfico

SetSourceData Fonte : . . = Sheets ( " Sheet1" ) Range. ("A1 : H2 " ) , PlotBy : . = _

xlRows

HasTitle =
verdadeira

. ChartTitle.Text = " My Pie Chart "

End With End Sub

"
6

Clique em" Save " na barra de ferramentas do editor de Visual Basic e fechar. Vá para a planilha que você incorporado o gráfico e verifique se ele está mostrando .