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.Name) -
>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?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