M
MKeane
Can anyone tell me how to add a watermark to a document in
Excel? Thanks for any tips you can provide.
Excel? Thanks for any tips you can provide.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an alternative browser.
You should upgrade or use an alternative browser.
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
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
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
R
Ron de Bruin
This sub is in the examples on my website from
L. Howard Kittle
L. Howard Kittle
J
jvoortman
you are probably the one who helped me out before, and
gave me this .......thanks again!!
gave me this .......thanks again!!