We help IT Professionals succeed at work.

MAcro-Excel Watermark

Medium Priority
717 Views
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.
Comment
Watch Question

Commented:
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.

Cheers,
MalicUK.
Commented:
Try this:

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

   ' Begin the loop.
   For x = 1 To intCnt

    Worksheets(x).Select
    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
    Range("A1").Select

   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.

OR

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.