Visual Basic de Macro dans Word pour Redimensionner/Centre/Supprimer Toutes les Images

J'ai trouvé une macro VBA en ligne qui se redimensionne toutes les images dans un document Word:

Sub ResizeAllImages()
''# make all images (both inline and floating)
''# 11 cm wide while preserving aspect ratio

Dim oShp As Shape
Dim oILShp As InlineShape

For Each oShp In ActiveDocument.Shapes
    With oShp
        .Height = AspectHt(.Width, .Height, _
        CentimetersToPoints(11))
        .Width = CentimetersToPoints(11)
    End With
Next

For Each oILShp In ActiveDocument.InlineShapes
    With oILShp
        .Height = AspectHt(.Width, .Height, _
        CentimetersToPoints(11))
        .Width = CentimetersToPoints(11)
    End With
Next
End Sub

Je ne pouvais pas trouver le nom d'une méthode que je pourrais utiliser pour centrer toutes les images.
Personne ne sait ce que je dois ajouter, et où j'aurais à ajouter?

Enfin, je voudrais supprimer des images que je trouve trop petite.
Comment pourrais-je le faire... Si la largeur de la forme est plus petit que 5, et la hauteur de la forme est plus petit que 5, supprimer la forme.

Pour faciliter la lecture de grandes quantités de texte en ligne, j'ai parfois envie de coller le tout dans word, puis de la modifier.
Je remplace chaque période-blanc, avec une période de retour à la ligne manuel, ce qui me donne une nouvelle ligne pour chaque phrase.. j'ai lu mieux quand c'est comme ça. Depuis que je suis coller tout, les graphismes s'approche de trop, donc je voudrais être en mesure de contrôler la taille de toutes les images, et de se débarrasser de toutes les images inutiles.

OriginalL'auteur | 2009-12-23

  1. 4

    Je pense que vous ne pouvez pas centrer les images. Vous pouvez centrer les paragraphes. Peut-être quelque chose comme ce sera vous aider à:

    For Each oILShp In ActiveDocument.InlineShapes
    oILShp.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next

    Pour la suppression, il suffit d'appeler Delete pour chaque Forme de l'objet de la satisfaction de vos conditions.

    Merci. Ce morceau de code a fonctionné.

    OriginalL'auteur Doc Brown

  2. 2

    http://yuriy-okhmat.blogspot.co.uk/2011/07/how-to-resize-all-images-in-word.html

    A le code complet y compris la définition des AspectHt

    OriginalL'auteur guest1020304

  3. 1

    Code pour supprimer les petites photos: 

    Sub DeleteSmallPictures()
Dim iShp As InlineShape

    For Each iShp In ActiveDocument.InlineShapes
        With iShp
            If .Width < CentimetersToPoints(5) Then
                iShp.Delete
            End If
        End With
    Next iShp
End Sub

    OriginalL'auteur