CheckBox para incluir una imagen

Max escribió:

Hola foro:
El problema que tengo es el siguiente:

Tengo un documento en word que tiene una imagen en la parte superior y otra
en la inferior que se imprimen. Lo que necesito es insertar un boton del
esticlo checkbox, para que si esta seleccionado, muestre e imprima las
imagenes, y si no tiene la tilde, que no muestre ni imprima las imagenes.

Alguna sugerencia?

Max

Hola :)

Bien suponiendo que las imagenes no estan incluidas en el encabezado y
pie de pagina y ojo » deben ser imagenes que NO esten en linean con el
texto » [ imagen flotante ] , prueba algo mas o menos como esto:

Un Checkbox de la barra de herramientas Cuadro de controles [ active X ]
El codigo debe de ir en « ThisDocument »
'[]

Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then

With ActiveDocument

.Shapes(1).Visible = msoFalse
.Shapes(2).Visible = msoFalse

End With

Else
With ActiveDocument

.Shapes(1).Visible = msoTrue
.Shapes(2).Visible = msoTrue

End With

End If


End Sub

'[]

Prueba y nos comentas ok? :)

Saludos
Monica


Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

GRACAIAS:

Sabes, por mas que intento, no me funciona. Logre colocar el checbox, le
puse el codigo que me enviaste, pero no me oculta la imagen. Una cosa, donde
defino el nombre de la o las imagenes?
Otra cosa, el checkbos, no se tiene que imprimir, osea tiene que estar
visible en el documento, pero oculto en la impresion.

Te seria muy complicado enviarme un pequeñito ejemplo?

Gracias!!!
MaX

Max escribió:

Aqui te adjunto yo mi archivo para que lo veas.

Hola Max :)

Bien si le quitas o eliminas estas lineas de codigo:

.Shapes(2).Visible = msoFalse

y esta otra :

.Shapes(2).Visible = msoTrue

Entonces veras que Funcionara el checkbox :)

Te explico, no le ponemos nombres de imagenes porque son objetos de la
coleccion [ Shapes ] entonces le ponemos numeros [ denominados Items ]
si tienes tres formas o dibujos o imagenes [ flotantes ] en el
documento, la primera sera Shapes(1), la segunda Shapes(2) y etc.

y estoy pensando que si no quieres que se vea el Checkbox ¿Por qué no lo
asocias a un boton y lo pones en la barra de herramientas en lugar de
utilizar un checkbox ? ya que si no lo quieres imprimir y solo lo
quieres de guia para ver o ocultar las imagenes seria mas practico con
dos botones en la barra de herramietnas

Un boton ocultar y otro boton Ver por ejemplo y aplicarles codigo, por
ejemplo: [ insertar codigo en un modulo ]

Sub OcultarImagen()


With ActiveDocument

.Shapes(1).Visible = msoFalse

End With

End Sub


Sub VerImagen()


With ActiveDocument

.Shapes(1).Visible = msoTrue

End With

End Sub

Y luego ya les asocias un boton para cada macro ?

No se comentanos ok? :)

Saludos
Monica





Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com

No se que me sucede hoy.
Hao lo que me indicas en el archivo que te envie.
Quito las 2 lineas, pero no funciona.
Podrias enviarme un ejemplo?

Gracias de nuevo!!!
MaX

Max escribió:

No se que me sucede hoy.
Hao lo que me indicas en el archivo que te envie.
Quito las 2 lineas, pero no funciona.
Podrias enviarme un ejemplo?

Gracias de nuevo!!!
MaX

Hola Max :)

porque no te funciona ? algun error ? que office utilizamos ? si
quitando esas lineas no te funciona por mucho que te suba un ejemplo,
seguira sin funcionar :-(

Saludos
Monica



Estado: A la Espera By Fermu

Tic-Tac-Tic-Tac...

Now We are free [Enya]

www.fermu.com