home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch15code / olechart.frm < prev    next >
Text File  |  1995-08-12  |  2KB  |  78 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3768
  5.    ClientLeft      =   1092
  6.    ClientTop       =   1512
  7.    ClientWidth     =   6780
  8.    Height          =   4092
  9.    Left            =   1044
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3768
  12.    ScaleWidth      =   6780
  13.    Top             =   1236
  14.    Width           =   6876
  15.    Begin VB.CommandButton cmdSum 
  16.       Caption         =   "Sum Column"
  17.       Height          =   855
  18.       Left            =   4560
  19.       TabIndex        =   2
  20.       Top             =   2640
  21.       Width           =   2055
  22.    End
  23.    Begin VB.CommandButton cmdChart 
  24.       Caption         =   "Chart Array"
  25.       Height          =   855
  26.       Left            =   120
  27.       TabIndex        =   1
  28.       Top             =   2640
  29.       Width           =   2175
  30.    End
  31.    Begin VB.OLE oleSheet 
  32.       Class           =   "Excel.Sheet.5"
  33.       Height          =   2292
  34.       Left            =   4560
  35.       OleObjectBlob   =   "OLECHART.frx":0000
  36.       TabIndex        =   3
  37.       Top             =   240
  38.       Width           =   1932
  39.    End
  40.    Begin VB.OLE oleChart 
  41.       Class           =   "Excel.Chart.5"
  42.       Height          =   2292
  43.       Left            =   120
  44.       OleObjectBlob   =   "OLECHART.frx":2818
  45.       TabIndex        =   0
  46.       Top             =   240
  47.       Width           =   4332
  48.    End
  49. End
  50. Attribute VB_Name = "Form1"
  51. Attribute VB_Creatable = False
  52. Attribute VB_Exposed = False
  53.  
  54. Private Sub cmdChart_Click()
  55.     Dim objExcel As Object
  56.     oleChart.DoVerb
  57.     Set objExcel = oleChart.object.Application
  58.     objExcel.Run "ChartArray", Array(99, 2, 3, 4, 5)
  59.     oleChart.Close
  60. End Sub
  61.  
  62. Private Sub cmdSum_Click()
  63.     Dim objExcel As Object, lTotal As Long
  64.     ' Activate the embedded worksheet before running the VBA procedure.
  65.     oleSheet.DoVerb
  66.     ' Get a reference to the Excel Application object.
  67.     Set objExcel = oleSheet.object.Application
  68.     ' Run the VBA procedure SumColumn on the first column
  69.     lTotal = objExcel.Run("SumColumn", 1)
  70.     ' Close the OLE object.
  71.     oleSheet.Close
  72.     ' Display the result.
  73.     MsgBox lTotal
  74. End Sub
  75.  
  76.  
  77.  
  78.