Watermark centered in PageLay-out
 

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

Watermark centered in PageLay-out
 

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

--
Regards,
Tom Ogilvy


"Sige" wrote in message
ups.com...
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

Watermark centered in PageLay-out
 

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