Como criar o gráfico do Excel w/OLE automação a partir do 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: 142387
Este artigo foi arquivado. É oferecido "como está" e não será mais atualizado.
Sumário
Este artigo ilustra como você pode usar automação em um programa do Visual Basic para criar uma pasta de trabalho Excel que contém um gráfico incorporado em uma planilha.
Mais Informações

Passos para criar programas de exemplo

  1. Inicie um novo projeto no Visual Basic. O Form1 é criado por padrão.
  2. Adicione um botão de comando (Command1) ao Form1.
  3. Adicione o seguinte código ao procedimento de evento Command1_Click:
      Private Sub Command1_Click()       Dim oXL As Object        ' Excel application    Dim oBook As Object      ' Excel workbook    Dim oSheet As Object     ' Excel Worksheet    Dim oChart As Object     ' Excel Chart        Dim iRow As Integer      ' Index variable for the current Row    Dim iCol As Integer      ' Index variable for the current Row        Const cNumCols = 10      ' Number of points in each Series    Const cNumRows = 2       ' Number of Series        ReDim aTemp(1 To cNumRows, 1 To cNumCols)        'Start Excel and create a new workbook    Set oXL = CreateObject("Excel.application")    Set oBook = oXL.Workbooks.Add    Set oSheet = oBook.Worksheets.Item(1)        ' Insert Random data into Cells for the two Series:    Randomize Now()    For iRow = 1 To cNumRows       For iCol = 1 To cNumCols          aTemp(iRow, iCol) = Int(Rnd * 50) + 1       Next iCol    Next iRow    oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp        'Add a chart object to the first worksheet    Set oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart    oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)    ' Make Excel Visible:    oXL.Visible = True    oXL.UserControl = True        End Sub					
  4. Pressione a tecla F5 para executar o programa e clique no botão de comando.
Resultados: Microsoft Excel é iniciado e uma nova pasta de trabalho é criada. Dados aleatórios são adicionados ao A1:J2 células e um gráfico está incorporado na primeira planilha. O gráfico incorporado usa os dados aleatórios para sua fonte.

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 142387 - Última Revisão: 12/04/2015 12:58:24 - Revisão: 4.3

Microsoft Office Excel 2003, Microsoft Excel 2002 Standard Edition, Microsoft Excel 2000 Standard Edition, Microsoft Excel 97 Standard Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 5.0 Enterprise Edition

  • kbnosurvey kbarchive kbmt kbhowto kbprogramming KB142387 KbMtpt
Comentários