Kbase P13583: ACTIVEX - How to format excel's borders
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
3/13/2006 |
|
Status: Verified
GOAL:
How to format borders in Microsoft Excel
FIX:
The following code shows how to format borders in Microsoft Excel using ActiveX Automation:
DEFINE VARIABLE chExcel AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorksheet AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chWorkbook AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE chBorder AS COM-HANDLE NO-UNDO.
CREATE "Excel.Application" chExcel.
chExcel:Visible = TRUE.
chWorkbook = chExcel:Workbooks:Add().
chWorksheet = chWorkbook:Worksheets(1).
chBorder = chWorkSheet:Range("B2:D6").
chBorder:Borders(7):LineStyle = 1. /* Left border */
chBorder:Borders(7):Weight = 4. /* Thick border's weight */
chBorder:Borders(8):LineStyle = 1. /* Top border */
chBorder:Borders(8):Weight = 1. /* Hairline border's weight */
chBorder:Borders(9):LineStyle = 1. /* Bottom border */
chBorder:Borders(9):Weight = -4138. /* Medium border's weight */
chBorder:Borders(10):LineStyle = 1. /* Right border */
chBorder:Borders(10):Weight = 2. /* Thin border's weight */
RELEASE OBJECT chBorder.
RELEASE OBJECT chWorkSheet.
RELEASE OBJECT chWorkBook.
RELEASE OBJECT chExcel.