Cómo hacer gráficos en Excel desde Visual Basic

plantilla Gráficos premium ExcelVer plantilla premium

Visual Basic para Aplicaciones (VBA) permite, entre otras acciones, crear gráficos en Excel. Si quieres aprender cómo hacer gráficos en Excel desde Visual Basic podrás seguir el siguiente tutorial. Además, crearemos un libro de Excel que contendrá el gráfico insertado en una hoja de cálculo.

Insertar y hacer gráficos en Excel desde Visual Basic

Para incrustar un gráfico en Excel desde Visual Basic podremos seguir los siguientes pasos y obtener un gráfico en Excel:

  • Crear un nuevo proyecto en Visual Basic.
  • Se creará un Form1.
  • Añadir un botón de comando al formulario.
  • En el evento click del comando añadiremos el siguiente código:

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)

'Insertar Excel y crear un nuevo libro
Set oXL = CreateObject("Excel.application")
Set oBook = oXL.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)




' Insertar datos al azar en las dos 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

'Añadir gráfico en la primera hoja del libro
Set oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)

' Hacer visible Exccel:
oXL.Visible = True

oXL.UserControl = True

End Sub

 

Bibliografía:

  • Microsoft Excel 2016. Ofimática personal. Editorial ENI. ISBN: 978-2-409-00048-5. Consultada Pág. 485 - 489 y Pág 293
  • Introducción a VBA en Office. Support de Office. Consultado online https://docs.microsoft.com/es-es/office/vba/library-reference/concepts/getting-started-with-vba-in-office
  • ¿Te ha servido de ayuda?
  • SíNo
plantilla Gráficos premium Excel

Plantilla Premium Gráficos Avanzados

Crea gráficos avanzados de una forma sencilla y rápida con esta plantilla Excel que incluye 25  gráficos diferentes que podrás utilizar todas las veces que requieras en tus informes o documentos de Excel. La plantilla de Excel incluye gráficos lineales, de barras, circulares, de áreas, cartesianos, velocímetros, de cotización y tela de araña entre otros que podrás incluir en tus libros de Excel sólo copiando y pegando las tablas y completándolas tus datos. Con esta plantilla de gráficos podrás guardar los gráficos que hayas personalizado como plantillas por separado o utiliza los modelos de la plantilla todas las veces que necesites. No pierdas tiempo aprendiendo a hacerlos, completa los datos e inclúyelos en tus informes y genera el gráfico par aExcel.Saber más

$9,57 Sin impuestosAñadir al carrito