Desmarcar la opción de "proporcional al tamaño original de la imagen" visual basic en word
Estoy realizando una macro en word para cambiar el tamaño de muchas imágenes en word. Pero no consigo como poder desmarcar la siguiente opción con líneas de código "proporcional al tamaño original de la imagen". Mi macro es la siguiente:
Sub juan()
alto = CentimetersToPoints(3.4)
ancho = CentimetersToPoints(5.02)
For Each imagen In ActiveDocument.Shapes
imagen.LockAspectRatio = msoFalse
imagen.ScaleHeight Factor:=1, RelativeToOriginalSize:=False
imagen.ScaleWidth Factor:=1, RelativeToOriginalSize:=False
imagen.Height = alto
imagen.Width = ancho
Next imagen
End Sub
1 respuesta
Si bien estás con Word, te comento que en Excel la propiedad LockAspectRatio es la que permite manipular el aspecto proporcional de la imagen, tal como se comenta en el sitio de Microsoft: https://docs.microsoft.com/en-us/office/vba/api/excel.shaperange.lockaspectratio
En realidad lo que se marca (con TRUE) y desmarca (con FALSE) es la opción 'Bloquear' pero esta permite que se mantenga o no el aspecto proporcional.
Realiza una prueba para confirmarlo, luego me comentás.
La propiedad lockaspectratio=true o false marca y desmarca la opcion (bloquear relación de aspecto), pero no encuentro la propiedad para marcar y desmarcar la opción (proporcional al tamaño original de la imagen).
Así es. Pero como te mencioné antes, hacé la prueba y verás que con la instrucción de bloqueo en true o false es como actuará luego el aspecto de la proporción. Y responde a lo que se comenta en el sitio de ayuda de Microsoft, en el enlace que te pasé.
imagen.LockAspectRatio = msoFalse 'esta es la única instrucción que necesitas. En True o False según lo que necesites.
Sdos!
