Macro para insertar imágenes en tabla Word
Publicado por Jaime (1 intervención) el 11/03/2019 10:26:30
Hola!
En el día a día tengo que redactar unos informes que consisten en comentar fotos.
Para ello creo una tabla con tantas filas como imágenes tengo (son variables, pero por lo general entre 3 y 70), y dos columnas.
En la columna de la izquierda tengo que rellenar un texto, pero en la columna de la derecha tengo que agregar las imágenes.
Hasta el momento, tengo una pequeña macro que redimensiona las imágenes a una medida en concreto (sólo para imágenes en vertical, y las redimensiona para que quepan 2 imágenes por folio)
La duda es.. ¿Alguien sabe como modificar la macro para que, cada foto se coloque en una celda de la segunda columna?
Muchas gracias!
En el día a día tengo que redactar unos informes que consisten en comentar fotos.
Para ello creo una tabla con tantas filas como imágenes tengo (son variables, pero por lo general entre 3 y 70), y dos columnas.
En la columna de la izquierda tengo que rellenar un texto, pero en la columna de la derecha tengo que agregar las imágenes.
Hasta el momento, tengo una pequeña macro que redimensiona las imágenes a una medida en concreto (sólo para imágenes en vertical, y las redimensiona para que quepan 2 imágenes por folio)
1
2
3
4
5
6
7
8
9
10
11
12
Sub todasfotos()
'
' todasfotos Macro
'
'
Dim Var As Object
Selection.WholeStoryFor Each Var In Selection.InlineShapesVar.Width = 226.75
Var.Height = 283.45
Next
End Sub
La duda es.. ¿Alguien sabe como modificar la macro para que, cada foto se coloque en una celda de la segunda columna?
Muchas gracias!
Valora esta pregunta
0