FiveTech Software tech support forums

Posted: **Sun Oct 27, 2019 4:25 pm**

Hello,

From my FWH-application, I want to draw a rectangle around a certain number of cells.
How can I accomplish that?

Thanks a lot for any help.

Posted: **Sun Oct 27, 2019 5:33 pm**

Michel:

I hope this can help you

Code: Select all

// lines style
#Define xlContinuous 1
#Define xlDash -4115
#Define xlDashDot 4
#Define xlDashDotDot 5
#Define xlDot -4118
#Define xlDouble -4119
#Define xlSlantDashDot 13
#Define xlLineStyleNone -4142

#Define xlEdgeLeft 7
#Define xlEdgeTop 8
#Define xlEdgeBottom 9
#Define xlEdgeRight 10

#define xlThick 4
#define xlMedium -4138
….
….
……
….
….
    oSheet:Cells(nRow,nCol):Borders(xlEdgeLeft):LineStyle := xlContinuous
    oSheet:Cells(nRow,nCol):Borders(xlEdgeLeft):Weight := xlThick
    oSheet:Cells(nRow,nCol):Borders(xlEdgeTop):LineStyle := xlContinuous
    oSheet:Cells(nRow,nCol):Borders(xlEdgeTop):Weight := xlThick
    oSheet:Cells(nRow,nCol):Borders(xlEdgeRight):LineStyle := xlContinuous
    oSheet:Cells(nRow,nCol):Borders(xlEdgeRight):Weight := xlThick
    oSheet:Cells(nRow,nCol):Borders(xlEdgeBottom):LineStyle := xlContinuous
    oSheet:Cells(nRow,nCol):Borders(xlEdgeBottom):Weight := xlThick

That's all.

Regards

Posted: **Sun Oct 27, 2019 6:02 pm**

Waaw,

Great. Thank you so much for your help.

FiveTech Software tech support forums

Rectangle in Excel (Solved)

Rectangle in Excel (Solved)

Re: Rectangle in Excel

Re: Rectangle in Excel