Prev: lookup with IF criteria
Next: Cond. Formatting, Mod(Row) and cell conditions
From: rsl on 28 May 2010 01:28
office 2000, would like to have watermark behind text in spreadsheet, to
appear centre page, almost full size of page.
From: grizzly6969 on 28 May 2010 02:26
I believe watermarks are put on through your printer
properties / effects
--
grizz


"rsl" wrote:

> office 2000, would like to have watermark behind text in spreadsheet, to
> appear centre page, almost full size of page.
From: L. Howard Kittle on 28 May 2010 03:05
Hi rsl,

Run this in the sheet module and see what has to be tweeked to suit your
needs. Can change the number of sheets as needed as well as the watermark
wording and font size. Change the "For Page = 1 To 1
" to do multiple sheets. ie- = 1 to 5.

Sub WaterMarkerHP() 'Horizontal Portrait
On Error Resume Next
WaterMarkerGone
Dim Mud As Integer, Dum As Object
Mud = -185
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$P$41"
With ActiveSheet.PageSetup
.Orientation = xlPortrait
End With
Dim Page As Integer
For Page = 1 To 1
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, _
"Budgetary Access Pricing", "Arial", _
24, msoFalse, msoFalse, 269, 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 Mud
.ShapeRange.IncrementTop 100
End With
Mud = Mud + 624.5
Next Page
Range("A1").Value = ""
Range("A1").Select
Application.ScreenUpdating = True
End Sub

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

You can also use word art (which the above code is a modified recorded macro
of) to do the same thing on a single sheet, set the transparancy, remove
borders, size the font and tilt to your desire.

HTH
Regards,
Howard

"rsl" <rsl(a)discussions.microsoft.com> wrote in message
news:DC3868E7-0AB3-46A1-A3B3-F05CBC62F8C7(a)microsoft.com...
> office 2000, would like to have watermark behind text in spreadsheet, to
> appear centre page, almost full size of page.


 | 
Pages: 1
Prev: lookup with IF criteria
Next: Cond. Formatting, Mod(Row) and cell conditions