A Microsoft Office (Excel, Word) forum. OfficeFrustration

If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below.

Go Back   Home » OfficeFrustration forum » Microsoft Excel » General Discussion
Site Map Home Register Authors List Search Today's Posts Mark Forums Read  

how do i watermark an excel spreadsheet?



 
 
Thread Tools Display Modes
  #1  
Old May 28th, 2010, 06:28 AM posted to microsoft.public.excel.misc
rsl
external usenet poster
 
Posts: 1
Default how do i watermark an excel spreadsheet?

office 2000, would like to have watermark behind text in spreadsheet, to
appear centre page, almost full size of page.
  #2  
Old May 28th, 2010, 07:26 AM posted to microsoft.public.excel.misc
grizzly6969
external usenet poster
 
Posts: 80
Default how do i watermark an excel spreadsheet?

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.

  #3  
Old May 28th, 2010, 08:05 AM posted to microsoft.public.excel.misc
L. Howard Kittle
external usenet poster
 
Posts: 516
Default how do i watermark an excel spreadsheet?

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" wrote in message
news
office 2000, would like to have watermark behind text in spreadsheet, to
appear centre page, almost full size of page.



 




Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Forum Jump


All times are GMT +1. The time now is 12:46 AM.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 OfficeFrustration.
The comments are property of their posters.