Excel and Watermarks

Originally Posted by HT1

How do you mark an excel sheet or workbook as being a draft? I am trying to acheive the effect you get when you use the watermark function in MS Word.

Hi,

the code to do this is

Option Explicit

Sub WaterMarkerHL()
Dim Mud As Integer, Dum As Object
Mud = -80
Application.ScreenUpdating = False
Dim Page As Integer
  For Page = 1 To 14
    ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, _
        "Waterymark", "Algerian", _
        40#, msoFalse, msoFalse, 269, 105#).Select
        Selection.Name = "Dum"
    With Selection
      .ShapeRange.Fill.Visible = msoTrue
      .ShapeRange.Fill.Solid
      .ShapeRange.Fill.ForeColor.SchemeColor = 22
      .ShapeRange.Fill.Transparency = 0.5
      .ShapeRange.Line.Visible = msoFalse
      .ShapeRange.IncrementRotation -26.22
      .ShapeRange.IncrementLeft Mud
      .ShapeRange.IncrementTop 100
    End With
        Mud = Mud + 624.5
 Next Page
Range("L8").Select
End Sub

Sub WaterMarkerGone()
Application.ScreenUpdating = False
Dim Page As Integer
 For Page = 1 To 14
     ActiveSheet.Shapes("Dum").Select
        Selection.Cut
 Next Page
End Sub

Hope this helps.
---