☰

Cómo aplicar un tamaño general a las imágenes en Microsoft Word 2007

tag-icon • tag-icon microsoft-word images microsoft-word-2007
Cómo aplicar un tamaño general a las imágenes en Microsoft Word 2007

¿Es posible aplicar un tamaño específico a todas las imágenes en un Microsoft Word 2007, mientras se edita? Si es así, cómo se puede hacer esto. Gracias

Respuesta1

Aquí está esta increíble macro tomada de estefuente. Lo he incluido aquí en caso de que el enlace al que se hace referencia caduque. Básicamente tienes que asignar un acceso directo y guardar esta macro, luego seleccionartodoimágenes en el documento (yendo a Estilos y eligiendo el estilo de imagen asignado que tiene).

Sub AllPictSize()
    Dim PecentSize As Integer
    Dim oIshp As InlineShape
    Dim oshp As Shape

    PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)

    For Each oIshp In ActiveDocument.InlineShapes
        With oIshp
            .ScaleHeight = PercentSize
            .ScaleWidth = PercentSize
        End With
    Next oIshp

    For Each oshp In ActiveDocument.Shapes
        With oshp
            .ScaleHeight Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
            .ScaleWidth Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
        End With
    Next oshp
End Sub

Ejecute la macro en las imágenes seleccionadas y especifique un porcentaje dela imagen más grandeentre la imagen seleccionada. El valor predeterminado es 75%, lo que significa que TODAS las imágenes cambiarán de tamaño al 75% de la imagen más grande.

NOTA: Todos los elementos seleccionados deben ser imágenes para que esta macro funcione, porque Word puede realizar operaciones de cambio de tamaño sólo en objetos de imagen. Si las imágenes no cambian de tamaño correctamente, verifique sus estilos y haga que todas las imágenes sean consistentes con su estilo único.

información relacionada