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