Cambiatamaimagen es un script rápido y simple para cambiar todas las imágenes de un documento para que tengan el mismo tamaño, por ejemplo para crear una tabla de imágenes.

AVISO: Este script cambia el tamaño de todas las imágenes del documento. Se recomienda ejecutar la macro en un documento nuevo donde solo estén las imágenes que se desee cambiar).

'Cambiar todas las imágenes de un documento al mismo tamaño
'Esto lo he usado para generar tablas de imágenes para
'ejercicios
Sub cambiatamaimagen(DestHeight as Double)
for each S in thisdocument.InlineShapes
	H=DestHeight/S.height
	w=S.width*H
	S.height=DestHeight
	S.width=w
next
end sub