Watermark centered in PageLay-out

S

Sige

Hi there,

I would like to put a "watermark" on my Excel sheets.
I got some nice examples on the sites of:

Aaron Blood
http://www.xl-logic.com/pages/formulas.html
Ron de Bruin
http://www.rondebruin.nl/files/Watermark.zip

I was wondering whether it is possible to place the watermark centered
of a Page.
=>If you look at your Excel in Page-break preview it ain't possible to
put the watermarks there where you see the apges?

Best Regards Sige

Ron's Code:
Option Explicit

Sub WaterMarkerVP()
Dim Mud As Integer, Dum As Object
Mud = 200
Application.ScreenUpdating = False
Dim Page As Integer
For Page = 1 To 14
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, _
"Financial Planning", "Algerian", _
30#, msoFalse, msoFalse, 121.5, 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
.ShapeRange.IncrementTop Mud
End With
Mud = Mud + 650
Next Page
Range("I18").Select
End Sub

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

Tom Ogilvy

the code just puts a shape on a page. You can position it anywhere you would
like.
 
S

Sige

Hi Tom,

I know ... but it would be nice to have it always centered of my page.

Landscape or Horizontal view never "centralizes" the Shape with Ron's
Code.

Is this possible?
Sige
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top