Deane,
Here are the commands that you ned to set the colors and patterns( added
that one thought you might like it):
$Sheet->Columns("A:B")->Interior->{ColorIndex} = $Auto;
$Sheet->Columns("A:B")->Interior->{Pattern} = $xlLightUp;
$Sheet->Columns("A:B")->Interior->{PatternColorIndex} = $DarkGreen;
$Sheet->Range("A1")->Interior->{Pattern} = $Auto;
$Sheet->Range("A1}")->Font->{ColorIndex} = $Red;
I got tired of looking up the color codes so I set them up as variable, not
pretty put functional
$Auto = 0;
$Black = 1;
$White = 2;
$Red = 3;
$DarkGreen = 4;
$Blue = 5;
$Yellow = 6;
$Pink = 7;
$Turquiose = 8;
$DarkRed = 9;
$ForestGreen = 10;
$DarkYellow = 11;
$DarkBlue = 12;
$Violet = 13;
$Teal = 14;
$Grey_25 = 15;
$Grey_50 = 16;
$PaleBlue = 17;
$Plum = 18;
$PaleYellow = 19;
$LightBlue = 20;
$Purple = 21;
$DarkCoral = 22;
$MotorolaBlue = 23;
$ChalkBlue = 24;
$RoyalBlue = 25;
$Color_001 = 32;
$Color_002 = 34;
$Color_003 = 37;
$Lavender = 38;
$Color_005 = 39;
$Color_006 = 40;
$SkyBlue = 33;
$BrightPink = 35;
$LightYellow = 36;
$Lime = 43;
$Gold = 44;
$LightOrange = 45;
$Rose = 46;
$Green = 50;
$xlSolid = 1;
$xlGray75 = 2;
$xlGray50 = 3;
$xlGray25 = 4;
$xlHorizontal = 5;
$xlVertical = 6;
$xlDown = 7;
$xlUp = 8;
$xlCross = 9;
$xlGray12 = 10;
$xlLightHorizontal = 11;
$xlLightVertical = 12;
$xlLightUp = 13;
$xlLightDown = 14;
Hope it helps
Matt Ross
________________________________________
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Friday, December 30, 2005 8:39 AM
To: [email protected]
Subject: Excel in Win32::OLE?
Just because it's nearly New Year's, an easy one... Where can I find
documentation on using Excel in Perl through Win32::OLE that's more
Excel-oriented?
The page I found shows an example setting a cell's value, which I get, but
not formatting. I need to set certain cell background and text colors (for
header column & row), cells with *new* info need to get gold-colored
borders, column width & row height, and so on.
Also I need to know if it's possible to read--and then use--a cell's value.
And if it's possible to hide a row AND use that row's content. This last
would be for column aging--the hidden row's cells would contain dates
indicating the last time that column was updated, and would need to be
changed.
Thanks, and Happy New Year!
Deane
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
