WATERMARK WITHIN EXCEL

N

Nancy Ritchie

I am attempting to add a watermark to an excel spreadsheet
and am unable to send the watermark behind the text. Have
tried Order, setting image to Watermark etc. but it is not
working. Can anyone help?

Thanks,
Nancy
 
C

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.

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
 
Top