vba macro to insert wordart "watermark"

[ajf3]

Hi all,

What I want to do is find a macro that will prompt for a word and insert a word art representation of that word as a "watermark" - centered on the current page (as in printed page # x that contains the cell with focus).

I've done a little reasearch on this and have found some vba scripts which do it for predefined #'s of pages in a worksheet - ie, hardcode it to do all 14 pages when you know there are 14 horizontal pages, etc.

Is there a way to simply do it to the printed page which will contain the cell currently in focus?

Thanks!

 

[Damon Ostrander]

Re: vba macro to insert wordart "watermark"

Hi slirfeldt,

Here is a way to easily remove the watermark. I added a line to the original macro that adds the watermark to give it a name. Then the delete macro can easily find it to delete it. Here is the updated code for both macros:

Sub AddWatermark()

' Inserts a wordart "watermark" onto the current sheet with its
' upper left corner positioned on the upper left corner of the
' selected cell.

   Dim StrIn As String
   StrIn = InputBox("Enter watermark 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
      .Name = "MyWatermark"
   End With

End Sub

Sub DelWatermark()
   ActiveSheet.Shapes("MyWatermark").Delete
End Sub

Damon

 

[knowledge_seeker]

Re: vba macro to insert wordart "watermark"

Hello! is there any macro coding which converts three cells text into three separate wordarts in a separate ms word file?