Imprimir el fondo de la hoja

Pido una disculpa a Roberto por no haberle dado
seguimiento a su petición, pero retomo el tema

Roberto, te pido una disculpa, por haberte dejado colgado
en el foro y no responder a tu petición... te mando una
rutina que crea un fondo de agua.

Esta rutina pondrá en donde tengas tu celda activa el
texto que tu indiques al momento de correr la macro.


Sub MarcadeAgua()
'
'
Dim Marca As String
Marca = InputBox("Cual es el texto para Marca de
Agua", "Marca de agua")
If Marca = "" Then Exit Sub
'
With ActiveSheet.Shapes.AddTextEffect(msoTextEffect1,
Marca, "Arial Black", 36# _
, msoFalse, msoFalse, 10, 10)
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 54
.Fill.Transparency = 0.52
' .Shadow.Transparency = 0.5
.Line.Weight = 0.75
.Line.DashStyle = msoLineSolid
.Line.Style = msoLineSingle
.Line.Transparency = 0#
.Line.Visible = msoFalse
.LockAspectRatio = msoFalse
.Height = 51#
' .Width = 109.5
.Rotation = 315#
.Top = Selection.Top
.Left = Selection.Left
.Placement = xlMove
End With

End Sub

espero te sea de utilidad

Saludos
Servando Villalon


Asunto: Imprimir el fondo de la hoja
De: "roberto" <rlopezl@eresmas.com> Enviado:
10/29/2003 3:10:57 PM




¿Cual es el truco para poderlo conseguir? yo estoy
intentando colocar una imagen como marca al agua y no lo
consigo.

saludos roberto

Yoimi:

El fondo de la hoja no se puede imprimir... si lo que
quieres es poner una marca de agua excel no tiene esa
opción como tal... pero se peuden hacer algunos trucos
para lograr "casi" el mismo efecto.

Saludos
Servando Villalon

Cuando imprimo me omite el dibujo del fondo de la hoja.
¿como puedo imprimirlo?
Gracias
.

.