====== Cambiatamaimagen ======

**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).
<code vba>
'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
</code>