Cómo crear un gráfico de Excel w/OLE automatización desde Visual Basic

IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.

Haga clic aquí para ver el artículo original (en inglés): 142387
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Resumen
Este artículo muestra cómo puede utilizar automatización en un programa de Visual Basic para crear un libro de Excel que contiene un gráfico incrustado en una hoja de cálculo.
Más información

Pasos para crear programas de ejemplo

  1. Inicie un proyecto nuevo de Visual Basic. Se creará Form1 de manera predeterminada.
  2. Agregue un botón de comando (Command1) a Form1.
  3. Agregue el código siguiente al procedimiento 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. Presione la tecla F5 para ejecutar el programa y haga clic en el botón de comando.
Resultados: Microsoft Excel se inicia y se crea un nuevo libro. Datos aleatorios se agregan a las celdas A1:J2 y un gráfico está incrustado en la primera hoja de cálculo. El gráfico incrustado utiliza los datos aleatorios para su origen.

Advertencia: este artículo se tradujo automáticamente

Propiedades

Id. de artículo: 142387 - Última revisión: 12/04/2015 12:58:19 - Revisión: 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 KbMtes
Comentarios
ERROR: at System.Diagnostics.Process.Kill() at Microsoft.Support.SEOInfrastructureService.PhantomJS.PhantomJSRunner.WaitForExit(Process process, Int32 waitTime, StringBuilder dataBuilder, Boolean isTotalProcessTimeout)