Computer Programming Concepts and Visual Basic David I. Schneider

390 Computer Programming Concepts and Visual Basic
9. Click on the form to exit Excel.
The values you created in Excel are now displayed in the OLE rectangle without
any Excel embellishments. If needed, you can resize the OLE rectangle to
show any hidden material.
10. Run the program.
11. Double-click on the OLE rectangle to reinvoke Excel.
12. Change the value in one of the cells and then click on any other cell.
Notice that the change is reflected in the bar chart.
13. Click the End icon to end the program.
Notice that the changes to the data and graph have been lost. They are permanently
gone.
14. Add a command button to the form and caption it Save Sheet.
15. Double-click on the command button to open the Command1_Click event procedure
code window.
16. With Excel 97, enter the following program lines into this code window. (With
Excel 95, delete “worksheet(“sheet1”)”.)
Dim objExcel As Object
Set objExcel = OLE1.Object
objExcel.worksheet(“sheet1”).SaveAs “MySheet.xls”
Set objExcel = Nothing
The first two lines of this code make the contents of OLE1 into an OLE
Automation object.
17. Run the program, double-click on the OLE rectangle to invoke Excel, change
the contents of one of the cells, and click on another cell.
18. Click on the Save Sheet command button.
19. Click the End icon to end the program.
Again the changes to the data and graph have been lost. However, the saved file
now can be used to recover the changes if you so desire. To do so, go to the
SourceDoc property of OLE1, click on the ellipsis, type MYSHEET.XLS into
the text box, click on the OK button, and click on Yes in the “Delete Current
Embedded Object?” message box.
■ A LINKING WALKTHROUGH USING WORD
1. Before starting Visual Basic, invoke Word, type in a few sentences, and save the
document. In this walkthrough we assume that the document you have created
now resides on drive A and is named MYWORK.DOC.
2. Invoke Visual Basic.
3. Click the OLE icon in the Toolbox and use the single-click-draw technique to
create a large rectangle on the form.
4. Click on the “Create from File” option button, type A:\MYWORK.DOC into
the text box, click the Link check box, and click on the OK button.
The document saved in MYWORK. DOC is displayed in the OLE rectangle.
5. Run the program and double-click the OLE rectangle. The complete Word program
is invoked and the document in MYWORK.DOC is displayed.
6. Make some changes to the document, and then press Alt/File/Save and
Alt/File/Exit to save your changes and exit Word. The modified document is
displayed in the OLE rectangle on the Visual Basic form.
7. End the program and display the form if it is hidden.