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