Sub Add__Watermark()
Dim StrIn As String
StrIn = InputBox("Enter text")
If StrIn = "" Then Exit Sub
With ActiveSheet.Shapes.AddTextEffect(msoTextEffect9, StrIn, _
"Arial Black", 36#, msoFalse, msoFalse, _
10, 10)
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 2, msoFalse, msoScaleFromBottomRight
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 26
.Fill.Transparency = 0.5
.Shadow.Transparency = 0.5
.Line.Visible = msoFalse
'position at cell corner
.Top = Selection.Top
.Left = Selection.Left
End With
End Sub
MARKER WATER MARK