Watermarks?
Marty Wicks
I'd like to be able to create a watermark that sits behind my
spreadsheets. I'd like to be able to do the same thing that Word can
do with it's Format Picture options and have the
picture/clipart/whatever sit behind the worksheet so that the entire
worksheet is visible. (Much the same way that the Page numbers are
shown when you enter the Page Break preview). So far I've only been
able to add graphics that overlay my sheet.
Can this be done? Any help appreciated.
Cheers,
Marty Wicks
spli...@my-deja.com
on ms excel.ive just done the beginners course but there is an advanced
courses on there as well www.itrevealed.co.uk
I hope this will help you.
Sent via Deja.com
http://www.deja.com/
Jimmy L. Day
see what the final result was. As I recall, one of the most sensible
suggestions was to simply print out some watermarked sheets, reload them
in the printer, then print out your xl spreadsheets on them.
squid
Click the sheet to which you want to add a background pattern.
On the Format menu, point to Sheet, and then click Background.
Select the graphics file to use for the background pattern.
The selected graphic is repeated to fill the sheet. You can apply solid
color shading to cells that contain data.
Notes
If the Background command is not available, make sure you have only one
sheet selected.
Background patterns do not print and are not retained in individual
worksheets or items that you save as Web pages. However, if you publish an
entire workbook as a Web page, the background is retained
You may want to use a photo editor first to size your pic so it will be a
watermark (can do this within excel, but when picture is the background..
only when you edit the inserted picture)
"Marty Wicks" <marty...@ozemail.com.au> wrote in message
news:3a585c86...@news.ozemail.com.au...
Robert Rosenberg
Sub PrintDataWithBackground()
Dim rngPrint As Range
Dim shp As Shape
Set rngPrint = Range(ActiveSheet.PageSetup.PrintArea)
With rngPrint
.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With .Parent
.Paste Destination:=rngPrint
Set shp = .Shapes(Sheet1.Shapes.Count)
.Parent.Windows(1).SelectedSheets.PrintPreview
shp.Delete
End With
End With
End Sub
--
_______________
Robert Rosenberg
R-COR Consulting
Microsoft MVP - Excel
http://www.r-cor.com
Please post all replies to this newsgroup.
"squid" <he...@mail.com> wrote in message
news:Ty166.194097$j6.24...@news1.rdc1.va.home.com...
EarlK
Neat. Clever. Damn thing works, too. Almost up there with that routine that
makes the name box larger.
Thanks for not waiting for 20 of us to jump in and say "You can't print
backgrounds in worksheets!!!" and THEN posting this! (:
Regards from Virginia Beach,
EarlK
ea...@livenet.net
-------------------------------------------------------------
"Robert Rosenberg" <bla...@email.msn.com> wrote in message
news:eS7WyBNeAHA.2188@tkmsftngp02...
Marty Wicks
Thanks a million.. You've made my day! :)
Cheers,
Marty Wicks
Robert Rosenberg
version...here's the corrected and updated version...
Sub PrintDataWithBackground()
Dim rngPrint As Range
Dim shp As Shape
Dim szAddress As String
If TypeOf ActiveSheet Is Worksheet Then
With ActiveSheet
If Len(.PageSetup.PrintArea) Then szAddress =
.PageSetup.PrintArea Else szAddress = .UsedRange.Address
End With
Set rngPrint = Range(szAddress)
With rngPrint
.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
With .Parent
.Paste Destination:=rngPrint
Set shp = .Shapes(ActiveSheet.Shapes.Count)
.Parent.Windows(1).SelectedSheets.PrintPreview
shp.Delete
End With
End With
End If
End Sub
--
_______________
Robert Rosenberg
R-COR Consulting
Microsoft MVP - Excel
http://www.r-cor.com
Please post all replies to this newsgroup.
"Robert Rosenberg" <bla...@email.msn.com> wrote in message
news:eS7WyBNeAHA.2188@tkmsftngp02...
Marty Wicks
Thanks again,
Marty Wicks