home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap24 / excelapp.bas next >
Encoding:
BASIC Source File  |  1995-08-23  |  3.1 KB  |  62 lines
  1. Function CreateWorkBook()
  2.     Dim objApp As Object
  3.     Dim objWorkBook As Object
  4.     Dim objSpreadSheet As Object
  5.     Screen.MousePointer = 11
  6.     Set objApp = CreateObject("Excel.Application")
  7.     Set objWorkBook = objApp.WorkBooks.Add
  8.     Set objSpreadSheet1 = objApp.ActiveWorkbook.ActiveSheet
  9.     Set objSpreadSheet1Range = objSpreadSheet1.Range(objSpreadSheet1.Cells(1, 1), objSpreadSheet1.Cells(36, 16))
  10.     objSpreadSheet1Range.Interior.Color = RGB(0, 255, 255)
  11.     Set objSpreadSheet1Range = objSpreadSheet1.Range(objSpreadSheet1.Cells(3, 4), objSpreadSheet1.Cells(14, 5)) 'row/column
  12.     objSpreadSheet1Range.Interior.Color = RGB(125, 125, 125)
  13.     Set objSpreadSheet1Range = objSpreadSheet1.Range(objSpreadSheet1.Cells(1, 2), objSpreadSheet1.Cells(1, 2))
  14.     objSpreadSheet1Range.Font.Size = 12
  15.     objSpreadSheet1Range.Font.Bold = True
  16.     objSpreadSheet1Range.Characters.Caption = "Visual Basic 4 Unleashed - Chapter 2 - Microsoft Office Application developed from within Visual Basic"
  17.     For X = 33 To 153 Step 30
  18.         objSpreadSheet1.Buttons.Add 153, X, 80, 24
  19.         objSpreadSheet1.Buttons.Font.Bold = False
  20.         objSpreadSheet1.Buttons.Font.Size = 8
  21.     Next X
  22.     objSpreadSheet1.Buttons(1).TEXT = "SelectA1"
  23.     objSpreadSheet1.Buttons(1).OnAction = "SelectA1"
  24.     objSpreadSheet1.Buttons(2).TEXT = "SetCells"
  25.     objSpreadSheet1.Buttons(2).OnAction = "SetCellValueAndFormat"
  26.     objSpreadSheet1.Buttons(3).TEXT = "ClearCells"
  27.     objSpreadSheet1.Buttons(3).OnAction = "ClearCellValueAndFormat"
  28.     objSpreadSheet1.Buttons(4).TEXT = "SelectCells"
  29.     objSpreadSheet1.Buttons(4).OnAction = "SelectCells10X10"
  30.     objSpreadSheet1.Buttons(5).TEXT = "SetActiveCell"
  31.     objSpreadSheet1.Buttons(5).OnAction = "SetActiveCell"
  32.     Set objModule1 = objWorkBook.Modules.Add(, objSpreadSheet1, 1)
  33.     objModule1.Activate
  34.     objModule1.InsertFile filename:="c:\temp\temp3\module1.txt"
  35.     'Chart
  36.     Set objSpreadSheet1Range = objSpreadSheet1.Range(objSpreadSheet1.Cells(3, 2), objSpreadSheet1.Cells(3, 2))
  37.     objSpreadSheet1Range.Characters.Caption = "Chart Data:"
  38.     For X = 4 To 13
  39.         Set objSpreadSheet1Range = objSpreadSheet1.Range(objSpreadSheet1.Cells(X, 2), objSpreadSheet1.Cells(X, 2))
  40.         sValue = X * 5
  41.         objSpreadSheet1Range.Characters.Caption = sValue
  42.     Next X
  43.     Set objSpreadSheet1Range = objSpreadSheet1.Range(objSpreadSheet1.Cells(4, 2), objSpreadSheet1.Cells(13, 2))
  44.     objSpreadSheet1.OLEObjects.Add filename:="c:\winword\moving.doc"
  45.     objSpreadSheet1.OLEObjects(1).Height = 200
  46.     objSpreadSheet1.OLEObjects(1).Width = 250
  47.     objSpreadSheet1.OLEObjects(1).TOP = 30
  48.     objSpreadSheet1.OLEObjects(1).Left = 300
  49.     'objSpreadSheet1.OLEObjects.Add classtype:="MSGraph"
  50.     Set Chart1 = objWorkBook.Charts.Add(, objSpreadSheet1, 1)
  51.     Chart1.ChartWizard Source:=objSpreadSheet1Range
  52.     objApp.Visible = True
  53.     Chart1.Visible = True
  54.     objSpreadSheet1.Activate
  55.     Set objApp = Nothing
  56.     Set objWorkBook = Nothing
  57.     Set objSpreadSheet1 = Nothing
  58.     Set objSpreadSheet1Range = Nothing
  59.     Set Chart1 = Nothing
  60.     Screen.MousePointer = 0
  61. End Function
  62.