Water marks

JC

unread,

May 27, 2003, 11:32:51 AM5/27/03

to

Is there a way to insert text watermarks in Excel?

JC

unread,

May 27, 2003, 11:38:15 AM5/27/03

to

Ron de Bruin

unread,

May 27, 2003, 11:43:30 AM5/27/03

to

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

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl

"JC" <Joey.Co...@bep.treas.gov> wrote in message news:320101c32465$3bd88bd0$a601...@phx.gbl...

Ron

unread,

May 27, 2003, 11:58:33 AM5/27/03

to

You can try your printer settings for a watermark

or

Insert onto the worksheet an image where you would
normally have the data.
Select the image and send it to the back, make yhe image
transparent
reduce the images brightness so that it is as you need it

Alternately
Print onto your paper the item for the background
put the paper back into the printer and print what you want

Ron

>-----Original Message-----
>Is there a way to insert text watermarks in Excel?

>.
>

JC

unread,

May 27, 2003, 12:03:14 PM5/27/03

to

I will look at the zip file. Word Art in not in Excel so
that is not going to work for me. Thanks!

>.
>

Jimmy L. Day

unread,

May 27, 2003, 12:11:22 PM5/27/03

to

Word Art is part of the Drawing toolbar.

--
Greeting from the Mississippi Gulf Coast!
http://myweb.cableone.net/twodays

"JC" <Joey.Co...@bep.treas.gov> wrote in message

news:347301c32469$7ac60670$a101...@phx.gbl...

jvoortman

unread,

May 27, 2003, 2:06:49 PM5/27/03

to

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

>.
>

Orlando Magalhães Filho

unread,

May 31, 2003, 12:40:45 AM5/31/03

to

Hi JC,

If you're using Excel XP, save the text on Windows Paint as bmp and look for
"Watermarks using Excel XP" at this site:
http://cpap.com.br/orlando

HTH

---

(So that you get best and rapid solution and all may benefit from the
discussion, please reply within the newsgroup, not in email)

"JC" <Joey.Co...@bep.treas.gov> escreveu na mensagem
news:320101c32465$3bd88bd0$a601...@phx.gbl...