Excel Watermark DRAFT COPY

[Tina]

Is it possible to "print" a watermark/background such as "DRAFT" on the sheet
of the workbook - to notify readers the worksheet they are reviewing is a
DRAFT only.?

Thanks Tina

 

[Frank Kabel]

Hi
see:
http://www.xldynamic.com/source/xld.xlFAQ0005.html

 

[CarlosAntenna]

Here is a macro I recorded to add a watermark to one of my sheets. It
doesn't print on every page as a true watermark would, but then my report is
only one page. Look at it, modify it, use it if you can or just trash it.
It uses Word Art to make a transparent image on the sheet. You can edit the
text or other properties. The one property that makes it a watermark is the
transparency.

Carlos

Sub GreyWatermark()
'
' GreyWatermark Macro
' Macro recorded
' Keyboard Shortcut: Ctrl+Shift+G
'
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "Partial", "Arial
Black", _
72#, msoFalse, msoFalse, 237.75, 154.5).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Transparency = 0.5
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 102#
Selection.ShapeRange.Width = 260.25
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementRotation -26.1
Selection.ShapeRange.ScaleWidth 1.29, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.33, msoFalse, msoScaleFromTopLeft
End Sub