Adding color to footer (in VBA)

It gets emailed to some and printed to others - Putting it
at top and 
repeating the rows is the exact solution I came up with. I
couldn't just 
add a row at the end of the print range - sometimes the
print range is 
just 1 page, sometimes it is 3 pages - we wanted it to
appear on all of 
the pages. 

BUT I was looking at the excel 2007 beta last night and
someday I will be 
able to what I want - you can use color in the footers in
that version!

Thanks for your help.



On Tue, 27 Jun 2006 15:02:11 -0700, Lemmons, Wyatt 
<wyatt.lemmonsBOEING.COM> wrote:

>Not clear,  Are you emailing the excel file or the
printed report ?
>
>The prior requires all recipients to have access to the
same network
>folder.
>
>The later should not be an issue. 
>
>Option:  Does it HAVE to be a footer ?  If you use the
header area,  you
>can embed the desired colored text via the rows to
repeat at the top.
>
>Try and be creative ...
>
>thank you,
>Wyatt Lemmons, HSG
>(425) 830-5962  4x10 Wrk Sch ( Fri OFF ) &
Telecommute: Wed
>
>-----Original Message-----
>From: Linda Kammerer [mailto:lkammererCOX.NET] 
>Sent: Tuesday, June 27, 2006 1:41 PM
>To: EXCEL-GPEACH.EASE.LSOFT.COM
>Subject: Re: Adding color to footer (in VBA)
>
>Thanks, but since this report gets emailed out, I won't
have any way to 
>
>control where the image is...
>
>Oh well...
>
>
>On Mon, 26 Jun 2006 14:07:17 -0700, Lemmons, Wyatt 
><wyatt.lemmonsBOEING.COM> wrote:
>
>> Save an image of what ya want your footer to read
first and then use
>>something like:
>>
>>   
ActiveSheet.PageSetup.RightFooterPicture.Filename = _
>>        "C:\ahdm01.jpg"
>>
>>To get it into yer footer ...
>>
>>Perhaps adapting the code below, you can get your
text to the image in
>>the desired folder ...  ( i.e. make a chart with no
data with a linked
>>text to a worksheet cell )
>>
>>Sub export_all_charts() 
>>For Each WkSht In ActiveWorkbook.Worksheets 
>> For Each chrt In WkSht.ChartObjects 
>>  fName = ActiveWorkbook.Path & "\"

>>  fName = fName & Format(Date,
"mmddyy") & "_" 
>>  fName = fName & Left(ActiveWorkbook.Name,
Len(ActiveWorkbook.Nam
>e) -
>>4) 
>>  fName = fName & "_" &
WkSht.Name & "_" & chrt.Index 
>& ".gif" 
>>  chrt.Chart.Export fName, "GIF" 
>> Next chrt 
>>Next WkSht 
>>End Sub
>>
>>
>>thank you,
>>Wyatt Lemmons, HSG
>>(425) 830-5962  4x10 Wrk Sch ( Fri OFF ) &
Telecommute: Wed
>>
>>-----Original Message-----
>>From: Linda Kammerer [mailto:lkammererCOX.NET] 
>>Sent: Monday, June 26, 2006 1:43 PM
>>To: EXCEL-GPEACH.EASE.LSOFT.COM
>>Subject: Adding color to footer (in VBA)
>>
>>I have a workbook with multiple worksheets. Each is
printed via a macro
>
>
>>
>>that sets the print range and adds text to the
footer.
>>I've been asked if I could add another line to the
footer and to color
>>it
>> 
>>in RED to make it stand out.
>>
>>Any ideas?
>>
>>The current code:
>>Range("C3:Ci76").Select
>>    ActiveSheet.PageSetup.PrintArea =
"$C$3:$ci$76"
>>    ActiveSheet.PageSetup.LeftFooter = "Please
Note:Quarter to Date 
>
>>includes Weeks 15  - 26 for 2006 and Weeks 14  - 26
for 2005 which 
>>represents Q2"
>>    ActiveWindow.SelectedSheets.PrintOut Copies:=1,
Collate:=True
>>    Range("g6").Select
>>
>>
>>Thanks for your help - I'd be lost without this
list!!!!
>>
>>----------------------------------------------------
-------------------
>-
>
>>--
>>The EXCEL-G list is hosted on a Windows NT(TM)
machine running L-Soft
>>international's LISTSERV(R) software.  For
subscription/signoff info
>>and archives, see htt
p://peach.ease.lsoft.com/archives/excel-g.html .
>>                             COPYRIGHT INFO:
>>http://peach.ease.lsoft.com/scripts/wa.exe?S
HOWTPL=COPYRIGHT&L=E
>XCEL-G
>>
>>----------------------------------------------------
-------------------
>-
>--
>>The EXCEL-G list is hosted on a Windows NT(TM)
machine running L-Soft
>>international's LISTSERV(R) software.  For
subscription/signoff info
>>and archives, see htt
p://peach.ease.lsoft.com/archives/excel-g.html .
>>                             COPYRIGHT INFO:
>>http://peach.ease.lsoft.com/scripts/wa.exe?S
HOWTPL=COPYRIGHT&L=E
>XCEL-G
>>========================
>=========================
>=======================
>
>--------------------------------------------------------
----------------
>--
>The EXCEL-G list is hosted on a Windows NT(TM) machine
running L-Soft
>international's LISTSERV(R) software.  For
subscription/signoff info
>and archives, see htt
p://peach.ease.lsoft.com/archives/excel-g.html .
>                             COPYRIGHT INFO:
>http://peach.ease.lsoft.com/scripts/wa
.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G
>
>--------------------------------------------------------
------------------
>The EXCEL-G list is hosted on a Windows NT(TM) machine
running L-Soft
>international's LISTSERV(R) software.  For
subscription/signoff info
>and archives, see htt
p://peach.ease.lsoft.com/archives/excel-g.html .
>                             COPYRIGHT INFO:
>http://peach.ease.lsoft.com/scripts/wa
.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G
>========================================================
================

------------------------------------------------------------
--------------
The EXCEL-G list is hosted on a Windows NT(TM) machine
running L-Soft
international's LISTSERV(R) software.  For
subscription/signoff info
and archives, see htt
p://peach.ease.lsoft.com/archives/excel-g.html .
                             COPYRIGHT INFO:
http://peach.ease.lsoft.com/scripts/wa
.exe?SHOWTPL=COPYRIGHT&L=EXCEL-G