elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Graficas excel
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Graficas excel  (Leído 2,964 veces)
under!!!

Desconectado Desconectado

Mensajes: 44


Ver Perfil
Graficas excel
« en: 2 Noviembre 2007, 07:18 am »

Hola y antes que nada gracias por su ayuda.
Mi pregunta es estoy realizando un programam en vb que te realice calculoas matematicas como permutaciones combinacion probabilidad y cosas por el estilo, pero me gustaria crear graficos en excel.

Mi pregunta es como puedo hacer una grafica en excel ya teniendo los datos en vb.

De ante mano gracias


En línea

under!!!

Desconectado Desconectado

Mensajes: 44


Ver Perfil
Re: Graficas excel
« Respuesta #1 en: 2 Noviembre 2007, 07:41 am »

bueno yo encontre este codigo
Código
  1. Dim apexcel As Variant
  2. Set apexcel = CreateObject("excel.application")
  3. ' hace que excel se vea
  4. apexcel.Visible = True
  5. 'agrega un nuevo libro
  6. apexcel.workbooks.Add
  7. 'poner titulos
  8. apexcel.cells(1, 1).formula = "TITULO DE LA APLICACION"
  9. apexcel.cells(1, 1).Font.Size = 18
  10. apexcel.cells(2, 2).formula = "debe"
  11. apexcel.cells(2, 3).formula = "haber"
  12. apexcel.cells(2, 4).formula = "saldo"
  13. apexcel.cells(3, 2).formula = 200
  14. apexcel.cells(3, 3).formula = 100
  15. ' aplica formula<br>
  16. apexcel.cells(3, 4).formula = "=b3-c3"
  17. ' hace una seleccion de celdas y pone bordes de color
  18. apexcel.range("b3:d3").borders.Color = RGB(255, 0, 0)
  19. Set apexcel = Nothing

Con este codigo ya puede mandar datos a excel pero como doy la instruccion para generar el grafico.

Espero y me puedan ayudar, GRACIAS


En línea

under!!!

Desconectado Desconectado

Mensajes: 44


Ver Perfil
Re: Graficas excel
« Respuesta #2 en: 2 Noviembre 2007, 07:54 am »

Muchas gracias ya encontre la respuesta lo pongo aqui para quien entre a ver el tema

Código
  1. Private Sub Command1_Click()
  2. Dim oXL As Object        ' Excel application
  3.    Dim oBook As Object      ' Excel workbook
  4.    Dim oSheet As Object     ' Excel Worksheet
  5.    Dim oChart As Object     ' Excel Chart
  6.  
  7.    Dim iRow As Integer      ' Index variable for the current Row
  8.    Dim iCol As Integer      ' Index variable for the current Row
  9.  
  10.    Const cNumCols = 10      ' Number of points in each Series
  11.    Const cNumRows = 2       ' Number of Series
  12.  
  13.  
  14.    ReDim aTemp(1 To cNumRows, 1 To cNumCols)
  15.  
  16.    'Start Excel and create a new workbook
  17.    Set oXL = CreateObject("Excel.application")
  18.    Set oBook = oXL.Workbooks.Add
  19.    Set oSheet = oBook.Worksheets.Item(1)
  20.  
  21.    ' Insert Random data into Cells for the two Series:
  22.    Randomize Now()
  23.    For iRow = 1 To cNumRows
  24.       For iCol = 1 To cNumCols
  25.          aTemp(iRow, iCol) = Int(Rnd * 50) + 1
  26.       Next iCol
  27.    Next iRow
  28.    oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp
  29.  
  30.    'Add a chart object to the first worksheet
  31.    Set oChart = oSheet.ChartObjects.Add(50, 40, 300, 200).Chart
  32.    oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)
  33.  
  34.    ' Make Excel Visible:
  35.    oXL.Visible = True
  36.  
  37.    oXL.UserControl = True
  38. End Sub
  39.  
  40.  

Aun no le entiendo bien al codigo pero funciona a la perfeccion
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines