Ajustar tamaño de una imagen insertada
Salva
estoy desarrollando una aplicación que inserta varias imágenes en unos
marcadores de un documento word. Hasta aquí bien, lo único es que yo quiero
que la imagen que inserte (que a veces está en horizontal y otras en
vertical) tenga siempre una altura de 10 cm y que el ancho se calcule
automáticamente. Si hago esto en Word, es decir, asignarle un alto de 10 cm,
el ancho se calcula automáticamente.
Para insertar la imagen utilizo la siguiente función:
strImatge = strRuta + rsConsulta.Fields("Ruta_Foto4").Value
Set rgRange = oDoc.Bookmarks("Foto4").Range
Set isImatge = oDoc.InlineShapes.AddPicture(strImatge, False, True, rgRange)
If (isImatge.Height > isImatge.Width) Then
isImatge.ScaleHeight = intReduccionVertical
isImatge.ScaleWidth = intReduccionVertical
Else
isImatge.ScaleHeight = intReduccionHoritzontal
isImatge.ScaleWidth = intReduccionHoritzontal
End If
Como podéis observar, la única manera que tenía de asignar el alto a 10 cm
era calcular previamente el escalado que debería tener la imagen e
indicárselo mediante la propiedad ScaleHeight o ScaleWidht, pero no me es
útil, ya que cada imagen puede ser diferente y tengo que calcularlo cada vez.
¿Alguien sabe cómo puedo asignarle un alto específico de 10 cm y que el
ancho se calcule automáticamente en función del alto?
Muchas gracias.
Monica May
> .... inserta varias imagenes en unos
> marcadores de un documento word. .... quiero
> que la imagen que inserte (que a veces esta en horizontal y otras en
> vertical) tenga siempre una altura de 10 cm y que el ancho se calcule
> automáticamente.....
>.... la unica manera que tenia de asignar el alto a 10 cm
> era calcular previamente el escalado que deberia tener la imagen e
> indicarselo mediante la propiedad ScaleHeight o ScaleWidht...
*No veo* tu funcion completa ... puedes realizar lo siguiente »
Bien si la imagen *No* esta flotante por ejemplo crea una constante »
const alto as integer = 286
luego para la [ imagen = InlineShape ] bastaria solamente con poner lo
siguiente [basandome en tu funcion ] »
IsImatge.Height = Alto
y ... ya tienes tu imagen que al aplicarle el alto ella sola toma el
ancho segun proporcion ...
Comentnaos...!!
Saludos
Monica
--Funcion a medias OP ---