Page 1 of 1
Excel Alignment
Posted: Wed Oct 07, 2020 11:37 pm
by TimStone
When creating an Excel object, I want to align some columns to the center. This is a common selection within Excel.
What do I send to Excel when creating a spreadsheet to make this happen. I see info on colors, width, content ... but nothing on alignment.
Thank you.
Re: Excel Alignment
Posted: Thu Oct 08, 2020 7:56 am
by MaxP
Hi Tim,
to align some columns to the center try this
Code: Select all
#include "Fivewin.ch"
#define EXC_LEFT 1
#define EXC_RIGHT 4
#define EXC_CENTER 7
FUNCTION MAIN()
LOCAL oExcel, oWorkBooks, oSheet, oCell
TRY
oExcel := TOleAuto():New( "Excel.Application" )
CATCH
oExcel := NIL
END
IF oExcel <> NIL
oWorkBooks := oExcel:WorkBooks
IF oWorkBooks <> NIL
oWorkBooks:Add()
oSheet := oExcel:ActiveSheet
oSheet:Columns( "B" ):Cells:HorizontalAlignment = EXC_CENTER
oCell := oSheet:Cells( 2, 2 )
oCell:Value := "One"
oCell := oSheet:Cells( 4, 2 )
oCell:Value := "Two"
oExcel:Visible := .T.
ENDIF
ENDIF
RETURN NIL
Best regards,
Massimo
Re: Excel Alignment
Posted: Fri Oct 09, 2020 9:39 pm
by TimStone
Massimo,
Thank you. I actually did it at the cell level, but the HorizontalAlignment := 7 was all I needed to get it format the way I wanted.
You help is greatly appreciated. There is a sample on the Wiki with some of the values, but alignment is not included.
Tim