Y seguimos con nuestra serie video - tutoriales  dedicados a desgranar VBA para Word. En este articulo o mostramos como crear una barra de herramientas que nos servirá para ocultar o mostrar las imagenes que tengamos en nuestro documento a golpe de ratón. Para ello emplearemos una macro que asociaremos a nuestra barra de herramientas. Comencemos.

A continuación os dejamos el código que hemos empleado para efectuar la función que os ilustramos en el video.

 


Sub OcultarImagen()

With ActiveDocument

On Error GoTo mio

.Shapes(1).Visible = msoFalse

.Shapes(2).Visible = msoFalse

End With

Exit Sub

mio:

MsgBox "en este documento no hay imagenes para ocultar"

Resume Next

End Sub

Sub VerImagen()

On Error GoTo mio 

With ActiveDocument

.Shapes(1).Visible = msoTrue

.Shapes(2).Visible = msoTrue

End With

Exit Sub

mio:

MsgBox "no existen imagenes en este documento para ver "

Resume Next

End Sub


 

En nuestra sección de descargas teneis un archivo de word de ejemplo que podreis descargar.

Y eso es todo por ahora, espero que os sea de utilidad.

Muchos besos  Kiss

 

Monica - Tux