|
En este artículo os explicamos como insertar 100 imagenes o fotografias almacenadas en una carpeta de nuestro disco duro en un documento de Word, para ello utlizaremos como siempre una macro. Comenzemos
-
Primero
insertaremos nuestras fotografías en una carpeta en formato [.jpg o jpeg ], en
este ejemplo yo las he puesto en una carpeta llamada [test]
- Luego
insertaremos el siguiente código en un modulo nuevo de visual Basic de Word
para ello:
Alt + F11
para abrir el visual Basic, una vez abierto, nos vamos a menú > insertar
> Modulo y en esa ventana en blanco que se nos abre que es el editor de
código, pues ahí copiamos y pegamos el siguiente código:
Sub
InsertarImagenesCarpeta()
Dim
ImgArray(100) As Variant
Dim x As String
Dim fotos As Long
Dim i As Integer
x
= Dir("C:\test\*.jpg")
Do
fotos = fotos + 1
ImgArray(fotos) = x
x = Dir
Loop Until x = ""
Selection.EndKey
Unit:=wdStory
For
i = 1 To fotos
Selection.InlineShapes.AddPicture _
FileName:="C:\test\" & _
ImgArray(i), LinkToFile _
:=False, SaveWithDocument:=True
With Selection
.InsertAfter vbCr & vbCr & "Escribe tu texto" _
& vbCr & vbCr
.EndOf Unit:=wdStory
End With
Next
i
With
Selection
.WholeStory
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.MoveDown Unit:=wdLine, Count:=1
End With
End Sub
 Una
vez copiado y pegado ya podemos cerrar Visual Basic, guardar nuestro documento
y ejecutar la macro con Alt+ F8 o bien menú herramientas > macro >
macros, seleccionamos el nombre de nuestra macro en este caso la hemos llamado:
[InsertarImagenesCarpeta
]
Y ya
veremos que se nos ha insertado todas las imágenes que teníamos en nuestra
carpeta y nos pone una pequeña línea de texto para que podamos ahí escribir lo
que queramos :-)
Bien para
una inserción de mas de 100 imágenes será necesario retocar código de la
siguiente manera [para un número inferior a 100 no es necesario] y para cambiar
la ruta de nuestra carpeta también retocaremos código para ello:
EJEMPLO :
Si queremos poner 150 imágenes en lugar del 100 que hay puesto
variaríamos a poner 150 :
Aquí pondríamos la ruta de nuestra carpeta completa:
- x =
Dir("C:\Documents and Settings\Usuario\Mis documentos\Carpeta\*.jpg")
Aquí
pondríamos solo la ruta de la carpeta , pero
OJO >> con la barra final invertida:
-
FileName:="C:\Documents
and Settings\Usuario\Mis documentos\carpeta\" _
& ImgArray(i), LinkToFile _
:=False, SaveWithDocument:=True
Y eso es
todo amigos, cualquier duda que tengais sobre este articulo podeis preguntar en nuestro foro, donde gustosamente os antenderemos :-)
Saludos
Monica (Tux)
Trackback(0)
 |
TrackBack URI para esta entrada
RSS feed Comments
¿Vamos a por el tirabuzón?
¿Podrian insertarse en una tabla de manera que controlando la caracteristica del autoajustar a ancho de ventana fijo se mostrasen como thumbnails? ¿Se podria hacer antes un contar para ver el numero de imagenes que tenemos en el directorio y asi decidir el tamaño y formato de la tabla?