Como automatizar um objeto MSGraph incorporado com o Visual Basic

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 244589
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Este artigo mostra como criar e automatizar um gráfico no Microsoft Word a partir do Visual Basic.
Mais Informações
Você pode criar um gráfico em um documento do Microsoft Office usando automação a partir do Visual Basic. O código a seguir cria um novo documento no Microsoft Word, incorpora e formata um gráfico e, em seguida, adiciona dados ao gráfico.

  1. Inicie um novo projeto Standard Exe no Visual Basic. O Form1 é criado por padrão.
  2. No menu Project , clique em referências . Defina referências no projeto para o Microsoft Word Object biblioteca e a biblioteca de objetos Microsoft Graph.
  3. Cole o código seguinte no evento Form_Load procedimento:
       Dim oWordApp As Word.Application   Dim oWordDoc As Word.Document   Dim oShape As Word.Shape   Dim oGraphChart As Graph.Chart   'Create a new document in Word.   Set oWordApp = CreateObject("Word.Application")   oWordApp.Visible = True   Set oWordDoc = oWordApp.Documents.Add   'Add some text to the document.   oWordDoc.Content.Text = "This is my new chart:"   'Embed a chart on the document.   Set oShape = oWordDoc.Shapes.AddOLEObject( _       Left:=100, Top:=100, Width:=350, Height:=200, _       ClassType:="MSGraph.Chart", DisplayAsIcon:=False)   Set oGraphChart = oShape.OLEFormat.object   With oGraphChart           'Format the embedded chart.       .ChartArea.Font.Size = 8       .Application.Update       .ChartType = xl3DBarClustered       .HasTitle = True       .ChartTitle.Text = "Sales per Product"       .ChartTitle.Font.Size = 12       .Axes(xlValue).HasTitle = True       .Axes(xlValue).AxisTitle.Caption = "Dollars ($)"       .ChartArea.AutoScaleFont = False               'Add data for the chart to the DataSheet in MSGraph.       With .Application.DataSheet           .Cells.Clear           'Add the chart row labels.           .Cells(2, 1).Value = "Widgets"           .Cells(3, 1).Value = "Gadgets"           .Cells(4, 1).Value = "Gizmos"           'Add the chart column labels.           .Cells(1, 2).Value = "1999"           .Cells(1, 3).Value = "2000"           'Add data to the chart.           Dim r As Integer, c As Integer           For r = 2 To 4               For c = 2 To 3                   .Cells(r, c).Value = Rnd() * 100000               Next           Next       End With           .Application.Update 'Update the changes       .Application.Quit   'and deactivate the chart.       End With   'Clean up.   Set oGraphChart = Nothing   Set oShape = Nothing   Set oWordDoc = Nothing   Set oWordApp = Nothing					
  4. Salve o projeto.
  5. Pressione F5 para executar o projeto. É criado um novo documento do Word que contém um gráfico incorporado preenchido com dados.

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 244589 - Última Revisão: 12/05/2015 16:22:30 - Revisão: 4.5

Microsoft Graph 2002, Microsoft Graph 2000, Microsoft Graph 97, Microsoft Office Word 2003, Microsoft Word 2002 Standard Edition, Microsoft Word 2000 Standard Edition, Microsoft Word 97 Standard Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition

  • kbnosurvey kbarchive kbmt kbautomation kbhowto kbsample KB244589 KbMtpt
Comentários