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
.
.
Leer las respuestas