topic-24515

Posts: 933

Joined: Sun Oct 09, 2005 01:05 PM

Excel Help
Posted: Wed Jul 25, 2012 10:38 PM

Does anyone know how I would write FWH code for the following excel code???

    Range("K27").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.149998474074526
        .PatternTintAndShade = 0
    End With

Thanks,

Jeff Barnes

(FWH 16.11, xHarbour 1.2.3, Bcc730)

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: Excel Help
Posted: Thu Jul 26, 2012 02:09 AM

A snippet of what I'm using

Code (fw): Select all Collapse

#define xlSolid 1
#define xlAutomatic -4105
#define xlThemeColorDark1  1 // Only Office 2007 and above
  .
  .
  oSelection := ::oSheet:Range( "A6:H6" )
  oSelection:Font:FontStyle := "Bold"

  with object oSelection:Interior
       :Pattern = xlSolid
       :PatternColorIndex = xlAutomatic
       :ThemeColor = xlThemeColorLight2
       :TintAndShade = 0.399975585192419
       :PatternTintAndShade = 0
  end

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

Jeff Barnes

Posts: 933

Joined: Sun Oct 09, 2005 01:05 PM

Re: Excel Help
Posted: Thu Aug 02, 2012 05:54 PM

Thanks Hua,

I got it working with the help from your code

Thanks,

Jeff Barnes

(FWH 16.11, xHarbour 1.2.3, Bcc730)

hua

Posts: 1096

Joined: Fri Oct 28, 2005 02:27 AM

Re: Excel Help
Posted: Fri Aug 03, 2012 01:30 AM

You're welcome

Listing the rest of #define that I'm using in case it might be of use to others

Code (fw): Select all Collapse

#define xlHAlignLeft   -4131
#define xlHAlignRight  -4152
#define xlHAlignCenter -4108
#define xlHAlignGeneral 1
#define xlVAlignTop    -4160
#define xlVAlignBottom -4107

#define xlContinuous    1
#define xlDiagonalDown  5
#define xlDiagonalUp    6
#define xlEdgeBottom    9
#define xlEdgeLeft  7
#define xlEdgeRight     10
#define xlEdgeTop   8
#define xlLineStyleNone     -4142
#define xlNone xlLineStyleNone
#define xlDouble    -4119

#define xlInsideHorizontal  12
#define xlInsideVertical    11

#define xlMedium    -4138
#define xlThick     4
#define xlThin  2

#define xlAutomatic -4105

#define xlSolid 1

#define xlThemeColorDark1  1 // Only Office 2007 and above
#define xlThemeColorLight2 4

FWH 11.08/FWH 19.12

BCC5.82/BCC7.3

xHarbour/Harbour

FiveTech Support Forums

Continue the discussion