Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Keep Video Player Centered | Excel Discussion (Misc queries) | |||
Keep chart centered to the page | Charts and Charting in Excel | |||
Cell alignment centered | Excel Programming | |||
Centered and right justified using ticks | Excel Discussion (Misc queries) | |||
Centered Text Not Working in saved htm | Excel Programming |