DRAFT watercolour or 'watercolor' for you Americans.

Make what?

Backgound that says "DRAFT" light gray and in big letters horizontal.

If it is a "WaterMark" template you are talking about, I copied this code to look at a while ago, never tried it myself.

It's a bit 'funky' for my liking as I don't often use code in my spreadsheets, but it works.

Thanks

try this site

this site tell you how to do it

http://office.microsoft.com/en-us/assistance/HP012138021033.aspx

I like the WordArt version better than inserting a Picture [Like MicroSoft indicates] and I use the code above, with a slight modification:


Sub mAddWatermark()
'Standard module code, like: Module1!
' Inserts a wordart "watermark" onto the current sheet at the
' upper left corner of the selected cell.
Dim myWMText As String

myWMText = InputBox("Enter watermark text:", "Build Watermark!", "DRAFT")

If myWMText = "" Then Exit Sub

With ActiveSheet.Shapes.AddTextEffect(msoTextEffect9, myWMText, _
"Arial Black", 36#, msoFalse, msoFalse, 10, 10)

.Name = "myWatermark"
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 2, msoFalse, msoScaleFromBottomRight
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 26
.Fill.Transparency = 0.5
.Shadow.Transparency = 0.5
.Line.Visible = msoFalse
.Top = Selection.Top
.Left = Selection.Left
End With
End Sub


Sub mEraseWatermark()
'Standard module code, like: Module1!
' Removes the wordart "watermark" created by "mAddWatermark."

ActiveSheet.Shapes("myWatermark").Select
Selection.Delete
End Sub

question

SAy you have multi workbooks, plus some workbooks when printed are on 2 pages, do you have to put it on all pages?

or is there some code that would put it on every page of every workbook?

Insert water mark on each printed page of the active sheet.



Sub SetPageBreaksByRowCount()
'Break on every 52 lines.
Dim rng As Range, pageRows#, totalRows#, n#

pageRows = 52 'insert a page break every nn lines

totalRows = Worksheets("Sheet1").Range("A65536").End(xlUp).Row
Worksheets("Sheet1").Rows(totalRows).PageBreak = xlPageBreakNone
n = 1

Do Until n > totalRows
n = n + pageRows
ActiveSheet.HPageBreaks.Add Before:=Rows

If n - 26 > 26 Then
ActiveSheet.Cells(n - 26, 4).Select

With ActiveSheet.Shapes.AddTextEffect(msoTextEffect9, "DRAFT", _
"Arial Black", 36#, msoFalse, msoFalse, 10, 10)

.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 2, msoFalse, msoScaleFromBottomRight
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 26
.Fill.Transparency = 0.5
.Shadow.Transparency = 0.5
.Line.Visible = msoFalse
.Top = Selection.Top
.Left = Selection.Left
End With
End If

Loop
End Sub