Letrerito " COnfidencial" en Excell

lo puedes hacer con wordart, modificando la propiedad transparencia (ponle
80%)



"dancarm" escribió en el mensaje
news:%

Hola Grupo:

Me ha surgido una duda con Excel y os la comento haber si podéis

echarme

una mano.

En una hoja de Excel quiero colocar un letrerito en diagonal que diga "
CONFIDENCIAL", debe de salir en todas las hojas a imprimir, ( no quiero
hacerlo sobre la impresora, lo quiero hacer sobre la propia hoja para que
funcione independientemente de la impresora elegida).

He echo pruebas con Wordart y no acabo de dar con ello, además quiero que

el

letrerito quede debajo de la impresión y no al revés, de tal manera que el
texto de la hoja se pueda leer y no me gustaría tener que poner el
letrerito en todas y cada un ade las hojas.

¿ Se puede hacer?


Gracias al grupo


Dancar

Gracias,

Yo uso excell 2000 y soy incapaz de encontrar la opción transparencia para
cuantificarla con un numero.

Saludos,


"crispulo" escribió en el mensaje
news:

lo puedes hacer con wordart, modificando la propiedad transparencia (ponle
80%)



"dancarm" escribió en el mensaje
news:%
>
> Hola Grupo:
>
> Me ha surgido una duda con Excel y os la comento haber si podéis
echarme
> una mano.
>
> En una hoja de Excel quiero colocar un letrerito en diagonal que diga "
> CONFIDENCIAL", debe de salir en todas las hojas a imprimir, ( no quiero
> hacerlo sobre la impresora, lo quiero hacer sobre la propia hoja para

que

> funcione independientemente de la impresora elegida).
>
> He echo pruebas con Wordart y no acabo de dar con ello, además quiero

que

el
> letrerito quede debajo de la impresión y no al revés, de tal manera que

el

> texto de la hoja se pueda leer y no me gustaría tener que poner el
> letrerito en todas y cada un ade las hojas.
>
> ¿ Se puede hacer?
>
>
> Gracias al grupo
>
>
> Dancar
>
>

Lo correcto sería dirigirte a la discusión, en donde esta
la solución a lo que tu pides, pero en esta ocasión
pondré nuevamente lo que pides aquí:

Este código hace exactamente lo que quieres, instálalo y
luego ejecutalo. Es lo mismo que quieres hacer de manera
manual, pero ya automatizado.


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

Saludos
Servando Villalon

Gracias,

Yo uso excell 2000 y soy incapaz de encontrar la opción

transparencia para

cuantificarla con un numero.

Saludos,


"crispulo" escribió en el mensaje
news:

lo puedes hacer con wordart, modificando la propiedad

transparencia (ponle

80%)



"dancarm" escribió en el

mensaje

news:%
>
> Hola Grupo:
>
> Me ha surgido una duda con Excel y os la comento

haber si podéis

echarme
> una mano.
>
> En una hoja de Excel quiero colocar un letrerito en

diagonal que diga "

> CONFIDENCIAL", debe de salir en todas las hojas a

imprimir, ( no quiero

> hacerlo sobre la impresora, lo quiero hacer sobre la

propia hoja para

que

> funcione independientemente de la impresora elegida).
>
> He echo pruebas con Wordart y no acabo de dar con

ello, además quiero

que

el
> letrerito quede debajo de la impresión y no al

revés, de tal manera que

el

> texto de la hoja se pueda leer y no me gustaría

tener que poner el

> letrerito en todas y cada un ade las hojas.
>
> ¿ Se puede hacer?
>
>
> Gracias al grupo
>
>
> Dancar
>
>

.