insertar marca de agua

Puedes poner un fondo a toda la hoja (menu formato,
hoja,fondo), pero no puedes (que yo sepa) poner un fondo a
una celda o a un rango de celdas. Esperemos que en proximas
versiones mejoren este tema.

Hola que tal,
Estoy intentado insertar una marca de agua detras de las

celdas pero no soy

capaz.
¿Alguien sabe como se puede hacer?
Muchas Gracias


.

Lo he intentado como dices pero ese fondo no es imprimible.
Gracias
escribió en el mensaje
news:07f801c49656$6f5dd230$
Puedes poner un fondo a toda la hoja (menu formato,
hoja,fondo), pero no puedes (que yo sepa) poner un fondo a
una celda o a un rango de celdas. Esperemos que en proximas
versiones mejoren este tema.

Hola que tal,
Estoy intentado insertar una marca de agua detras de las

celdas pero no soy

capaz.
¿Alguien sabe como se puede hacer?
Muchas Gracias


.

No sé exactamente a qué te refieres, pero si lo que
quieres es colocar una leyenda, por
ejemplo "CONFIDENCIAL" en el fondo de la hoja, lo que
puedes hacer es introducir esa palabra o frase con el
WordArt, y después, en la pestaña 'Colores y líneas',
modificar la transparencia, colocando un 80%.

De esta forma, la impresión te quedará bien.

:-)

Lo he intentado como dices pero ese fondo no es

imprimible.

Gracias
escribió en el

mensaje

news:07f801c49656$6f5dd230$
Puedes poner un fondo a toda la hoja (menu formato,
hoja,fondo), pero no puedes (que yo sepa) poner un fondo

a

una celda o a un rango de celdas. Esperemos que en

proximas

versiones mejoren este tema.

Hola que tal,
Estoy intentado insertar una marca de agua detras de las

celdas pero no soy

capaz.
¿Alguien sabe como se puede hacer?
Muchas Gracias


.

.

Este par de macros te hacen el trabajo de poner la marca de agua y de
eliminarla solo tienes que copiarlos en la configuracion de macros de la
"Hoja", ademas puedes usar botones para activar la marca y para eliminarla.


Option Explicit

Sub MarcaDeAguaVL()
Dim WM As Integer, Mud As Integer
Mud = 100
Application.ScreenUpdating = False
For WM = 1 To 14
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, _
"Confidencial", "Algerian", _
40#, msoFalse, msoFalse, 268, 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 -80
.ShapeRange.IncrementTop Mud

End With
Mud = Mud + 473

Next WM

Range("N10").Select
End Sub

Sub EliminarMarcaDeAgua()
Application.ScreenUpdating = False
Dim Page As Integer
For Page = 1 To 14
'On Error Resume Next
ActiveSheet.Shapes("Dum").Select
Selection.Cut
Next Page
Application.ScreenUpdating = True
End Sub

Fernando


"oscar" wrote in message
news:#

Hola que tal,
Estoy intentado insertar una marca de agua detras de las celdas pero no

soy

capaz.
¿Alguien sabe como se puede hacer?
Muchas Gracias