Modificar "Mantener Proporciones" de imagen

[Tzas]

Buenos días:

Quiero activar / Desactivar por macro la opción de todas las imagenes "Mantener Proporciones". La idea es recorrerme todos los graficos de mi documento y cambiarles esta opción, pero no se cual es la propiedad que he de modificar.

Si alguien puede ayudarme.

Muchas gracias,

Código: Seleccionar todo

   oDoc = ThisComponent
   oGraphics = oDoc.GraphicObjects
   For i = 0 to oGraphics.count - 1
          imagen = oGraphics.GetbyIndex(i)
          'Activar casilla "[b]Mantener Proporciones[/b]"
    Next

[FJCC-ES]

Código: Seleccionar todo

   oDoc = ThisComponent
   oGraphics = oDoc.GraphicObjects
   For i = 0 to oGraphics.count - 1
          imagen = oGraphics.GetbyIndex(i)
          'Activar casilla "[b]Mantener Proporciones[/b]"
          IsSyncWidthToHeight  = True  'FJCC
    Next

[Tzas]

Muchas gracias por tu respuesta, antes de acudir al foro ya había probado con las opciones IsSyncHeightToWidth y IsSyncWidthToHeight.

Pero no me convencen dichas propiedades porque si yo activo por macro cualquiera de esas dos propiedades activa el checkbox del entorno grafico, pero si activo el entorno grafico no activa dichas propiedades, siguen a false.