Macro para insertar fotos en word

Más
3 años 5 meses antes #18898 por Aleja
Leí el código para insertar hasta cien fotos desde una carpeta a word, ya lo utilicé y funciona perfectamente. Tengo la duda si se puede modificar el código para que en lugar de insertarme una sola foto por página, me inserte cuatro o seis fotos, por ejemplo. Es que no se en que parte puedo introducir esa modificación.

Muchas gracias de antemano por la respuesta.

Saludos,

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
3 años 5 meses antes #18899 por Perseverante
Respuesta de Perseverante sobre el tema Macro para insertar fotos en word
me pillas en un momento de contento con la utilidad imprimir desde carpeta una selección de fotos que sí permite - en pdf - poner una foto por página, dos, cuatro o más.

Para mí insertar fotos en word siempre fue una operación delicada. Así que desde hace tiempo propongo un anexo pdf. Al final lo tengo que pasar todo sí o sí a pdf. Así que gano tiempo.

El proceso es : Seleccionas el grupo de imágenes - botón derecho opción imprimir - y ahí vas viendo las opciones que comentaba más arriba.

En cuanto a la macro primero tendrías que poner el código a ver si el jefecito cuando pase desentraña el código y lo puede adaptar a lo que precisas.

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
3 años 5 meses antes #18900 por Aleja
Respuesta de Aleja sobre el tema Macro para insertar fotos en word
Gracias por tu respuesta. Si, es que tienes razón, insertar fotos en word es delicado y la idea es ahorrar tiempo en este proceso, compartimos esa opinión.

Y ese anexo que haces en PDF de fotos ¿lo rotulas por foto?, porque me suena interesante eso que mencionas de imprimir en PDF.

Pues ahí les va el código, está en la página web, fermu.com, lo publicó Mónica.

Todo está perfecto, lo inserta muy bien, pero el código es para una foto por página. Y me gustaría poder pegar hasta seis fotos en una página, lógico adaptando el tamaño para que quepa. Muchas gracias!

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

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Más
3 años 5 meses antes #18901 por Perseverante
Respuesta de Perseverante sobre el tema Macro para insertar fotos en word
Eso después.
Necesitarás un adobe acrobat o similar

Por favor, Identificarse o Crear cuenta para unirse a la conversación.

Tiempo de carga de la página: 0.956 segundos
Gracias a Foro Kunena