Comment appliquer une taille générale aux images dans Microsoft Word 2007

Voici une superbe macro prise à partir de ce source . Je l'ai inclus ici au cas où le lien référencé expire. En gros, vous devez attribuer un raccourci et enregistrer cette macro, puis sélectionner 何れも des images dans le document (en allant dans Styles et en choisissant le style d'image qui vous a été attribué).

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

Exécutez la macro sur les images sélectionnées, et spécifiez un pourcentage de la plus grande image parmi l'image sélectionnée. La valeur par défaut est 75%, ce qui signifie que TOUTES les images seront redimensionnées à 75% de la plus grande des images.

NOTE : Tous les éléments sélectionnés doivent être des images pour que cette macro fonctionne, car Word ne peut effectuer les opérations de redimensionnement que sur les objets images. Si les images ne se redimensionnent pas correctement, vérifiez vos styles et faites en sorte que toutes les images soient cohérentes avec leur propre style unique.