MAcro-Excel Watermark

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.
techtookAsked:
Who is Participating?
 
adraughnConnect With a Mentor 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
   
0
 
MalicUKCommented:
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.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.