Kbase P23999: How to insert an image in MS Excel
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
24/06/2009 |
|
Status: Unverified
GOAL:
How to insert an image in MS Excel
FACT(s) (Environment):
Windows
Progress 8.2x
Progress 8.3x
Progress 9.x
OpenEdge 10.x
FIX:
The following code inserts an image in MS Excel:
DEFINE VARIABLE vchExcel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchWorksheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchWorkbook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchPageSetup AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE vchPicture AS COM-HANDLE NO-UNDO.
CREATE "Excel.Application":U vchExcel.
vchExcel:VISIBLE = TRUE.
vchWorkbook = vchExcel:Workbooks:Add().
vchWorksheet = vchWorkbook:Worksheets(1).
vchPicture = vchWorksheet:Pictures:INSERT("SAMPLE.JPG":U,).
vchPageSetup = vchWorksheet:PageSetup.
/* xlLandscape = 2 */
vchPageSetup:Orientation = 2.
IF VALID-HANDLE(vchPageSetup) THEN
RELEASE OBJECT vchPageSetup.
IF VALID-HANDLE(vchPicture) THEN
RELEASE OBJECT vchPicture.
IF VALID-HANDLE(vchWorkSheet) THEN
RELEASE OBJECT vchWorkSheet.
IF VALID-HANDLE(vchWorkBook) THEN
RELEASE OBJECT vchWorkBook.
IF VALID-HANDLE(vchExcel) THEN
RELEASE OBJECT vchExcel.