We help IT Professionals succeed at work.

MAcro-Excel Watermark

Medium Priority
Last Modified: 2013-11-27
I wanted to see if there were any macro's out there that will help me do a watermark in excel. The only ones that I have come across are the ones that put a watermark on the first page and stop there. I wanted to see if there were any more intuitive macro's there which put the watermark on every page in my workbook.
Watch Question

Hi techtook,

Not sure if you have looked into this, but the easiest way of doing watermarks is through your printer settings (if supported). For me if I do Print -> Options, I have a button to set the watermark.

If not, then can you please post the code you have and we may be able to rewrite it for you.

Try this:

Sub CreateWatermark()
Dim intCnt As Integer
Dim x As Integer
    intCnt = ActiveWorkbook.Worksheets.Count

   ' Begin the loop.
   For x = 1 To intCnt

    ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "Draft", "Arial Black", 36# _
                        , msoFalse, msoFalse, 320.25, 130.5).Select
    With Selection.ShapeRange
        .Fill.Visible = msoFalse
        .Fill.Transparency = 0#
        .Line.Weight = 0.75
        .Line.DashStyle = msoLineSolid
        .Line.Style = msoLineSingle
        .Line.Transparency = 0#
        .Line.Visible = msoTrue
        .Line.ForeColor.SchemeColor = 22
        .Line.BackColor.RGB = RGB(255, 255, 255)
        .LockAspectRatio = msoFalse
        .Height = 567#
        .Width = 510#
        .Rotation = 0#
        .ScaleWidth 1.56, msoFalse, msoScaleFromBottomRight
        .ScaleHeight 1.2, msoFalse, msoScaleFromBottomRight
    End With
    ActiveWindow.SmallScroll Down:=0
    ActiveWindow.SmallScroll ToRight:=5
    Selection.ShapeRange.ScaleWidth 0.72, msoFalse, msoScaleFromTopLeft
    ActiveWindow.LargeScroll ToRight:=-1
    Selection.ShapeRange.ZOrder msoSendToBack

   Next x

End Sub

Not the solution you were looking for? Getting a personalized solution is easy.

Ask the Experts
Access more of Experts Exchange with a free account
Thanks for using Experts Exchange.

Create a free account to continue.

Limited access with a free account allows you to:

  • View three pieces of content (articles, solutions, posts, and videos)
  • Ask the experts questions (counted toward content limit)
  • Customize your dashboard and profile

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.


Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.