vba macro to insert wordart "watermark"

A

ajf3

New Member
Joined
Apr 18, 2002
Messages
3
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!
 

Excel Facts

Control Word Wrap
Press Alt+Enter to move to a new row in a cell. Lets you control where the words wrap.
Sort by date Sort by votes
Hi Ajf3,

I think the reason why no responses is because, at least through Excel 2000, there is no "watermark" capability. Are you referring to a new feature in Excel XP? Or are you perhaps referring to a feature that is sort of like a watermark, such as a semi-transparent graphic that resides on top of the worksheet?

There is a feature in Excel 2000 to have a background graphic, but this is not a watermark (i.e., it is displayed with full contrast).

If you are referring to any of these, they can be placed on the worksheets using a macro.
 
Upvote 0
Hi,

Thanks - you're right - I didn't word that correctly. I'm wondering if there's a macro out there that would :

1. Prompt me for a word
2. Insert said word as a wordart pseduo-watermark centered on the _printed_ page that will contain the cell currently in focus.

I have seen macros out there that approach this somewhat, but none deal with only the current page - you have to hard configure them to go 6 pages over horizontally based upon the pixel size of each page, or 10 pages vertically, etc...

Thanks - and sorry for the poor wording.
 
Upvote 0
Hi again ajf3,

Give this code a try. I think it does what you want:


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
End With

End Sub
 
Upvote 0
Re: vba macro to insert wordart "watermark"

Damon Ostrander said:
Hi again ajf3,

Give this code a try. I think it does what you want:


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
End With

End Sub
Click to expand...


hi!

ab0ut y0ur c0de, h0w can y0u d0 it in excel 2007?

thanks =)
 
Upvote 0
Re: vba macro to insert wordart "watermark"

It took me several years to get around to it, but I finally checked the code in Excel 2007, and it worked fine for me.

Damon
 
Upvote 0
Re: vba macro to insert wordart "watermark"

Hello!

Thanks! It worked perfectly!
I can manually delete the watermark, but want to automate that also
So I need another macro that removes the watermark, but I fail to figure out how to.

Anyone?
Regards
 
Upvote 0
You must log in or register to reply here.

Similar threads

C
  • Solved
Insert new columns, with headers - Macro/VBA help
Replies
5
Views
109
MARK858
MARK858
C
  • Solved
Macro/VBA for lookups
Replies
9
Views
160
mumps
mumps
J
  • Question Question
Using Sheets().Select in a Worksheet_Activate() macro
2
Replies
10
Views
471
jdun
J
C
  • Solved
VBA macro: insert row if condition is met and apply formulae
Replies
3
Views
346
CXsjr
C
L
  • Question Question
Step 2: VBA Macro to Sum
Replies
7
Views
489
offthelip
O

Forum statistics

Threads
1,224,590
Messages
6,179,754
Members
452,940
Latest member
rootytrip

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top