Watermark in Excel

M

MKeane

Can anyone tell me how to add a watermark to a document in
Excel? Thanks for any tips you can provide.
 
R

Ron de Bruin

Try this MKeane

You can use Word Art, remove the lines, color with 25% gray, click
semi-transparent (or in latest version set the transparency to your desire).
Rotate to desired angle. On the screen, when you type over the mark, it
looks a bit fuzzy but prints out wonderfully

If you have many to do try this:
Here is some code from L. Howard Kittle.

In this Zip file you can find 4 example workbooks with code to insert watermarks in to your pages.

1 : Watermark Horizontal LANDSCAPE
2 : Watermark Horizontal PORTRAIT
3 : Watermark Vertical LANDSCAPE
4 : Watermark Vertical PORTRAIT

You can download it here.
http://www.rondebruin.nl/files/Watermark.zip


And see this sites also

Aaron Blood's website at
http://www.xl-logic.com/pages/formulas.html

An alternative, if you're using Excel 2002, look for "Watermarks using Excel
XP" at this site:
http://cpap.com.br/orlando
 
J

jvoortman

this is what some one gave me a while back when I was
looking. Just change the "Confidential - Do Not Copy" to
whatever you want your watermark to read.

Watermark in excel code

To install ..Alt F11, Insert module ctrl+v, alt q, alt f8

Sub WaterMarker1()
Dim Mud As Integer, Dum As Object
Mud = -90
Application.ScreenUpdating = False
Dim Page As Integer
For Page = 1 To 14
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, _
"Confidential - Do Not Copy", "Algerian", _
30#, msoFalse, msoFalse, 214, 105#).Select
Selection.name = "Dum"
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 22
.ShapeRange.Fill.Transparency = 0.5
.ShapeRange.Line.Visible = msoFalse
.ShapeRange.IncrementRotation -26.22
.ShapeRange.IncrementLeft Mud
.ShapeRange.IncrementTop 200
End With
Mud = Mud + 432
Next Page
Range("I18").Select
End Sub

To uninstall:

Sub WaterMarkerGone1()
Application.ScreenUpdating = False
Dim Page As Integer
For Page = 1 To 14
On Error Resume Next
ActiveSheet.Shapes("Dum").Select
Selection.Cut
Next Page
End Sub
 
J

jvoortman

you are probably the one who helped me out before, and
gave me this .......thanks again!!
 
Top