Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment insérer plusieurs images de même taille dans un document Word?

Normalement, vous pouvez insérer plusieurs images à la fois dans un document Word avec leur taille d'origine. Parfois, vous devez organiser ces images à la même taille lors de l'insertion. Cet article explique comment insérer plusieurs images de même taille dans un document Word.

Insérer plusieurs images de même taille dans un document Word avec code VBA

Redimensionner toutes les images à la même taille en fonction d'une image spécifique avec Kutools for Word


Redimensionner toutes les images à la même taille en fonction de celle sélectionnée:

Pour redimensionner toutes les images dans la même taille, vous devez les redimensionner une par une normalement, mais avec Kutools for Word's Redimensionner les images fonction, vous pouvez ajuster toutes les images avec la même taille par un activé. D'un autre côté, vous pouvez également les redimensionner à un pourcentage spécifique selon vos besoins.

doc ajuster les images 05

Kutools for Word: avec plus de 100 compléments de Word pratique, libre d'essayer sans limitation dans les jours 60. Cliquez pour télécharger et essai gratuit maintenant!


Insérer plusieurs images de même taille dans un document Word avec code VBA

Le code vba suivant peut vous aider à insérer plusieurs images et à les redimensionner à la taille que vous avez spécifiée à la fois, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans la fenêtre du module.

Code VBA: insérez plusieurs images de même taille:

Sub InsertSpecificNumberOfPictureForEachPage()
    Dim xDlg As FileDialog
    Dim xFilePath As String
    Dim xFileName As String
    Dim xMsbBoxRtn As Long
    Dim xPicSize As String
    Dim xShape As InlineShape
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFilePath = xDlg.SelectedItems(1) & "\"
    Else
        Exit Sub
    End If
    xFileName = Dir(xFilePath & "*.*", vbNormal)
    While xFileName <> ""
        If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
        Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
            GoTo LblCtn
        End If
        With Selection
            .InlineShapes.AddPicture xFilePath & xFileName, False, True
            .TypeParagraph
            .Collapse wdCollapsEnd
            .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .TypeParagraph
        End With
LblCtn:
        xFileName = Dir()
    Wend
    ActiveDocument.InlineShapes(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
    If xMsbBoxRtn = 6 Then
        xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
    End If
    For Each xShape In ActiveDocument.InlineShapes
      xShape.Height = Split(xPicSize, ",")(0)
      xShape.Width = Split(xPicSize, ",")(1)
    Next xShape
End Sub

3. Et puis, appuyez sur F5 clé pour exécuter ce code, un Feuilleter la fenêtre s’affiche, veuillez sélectionner le dossier contenant les images que vous souhaitez insérer, voir capture d’écran:

doc insérer des images avec la même taille 1

4. Puis clique OK Cliquez sur le bouton, et une boîte de dialogue s'affiche pour vous rappeler si vous souhaitez redimensionner les images, voir la capture d'écran:

doc insérer des images avec la même taille 2

5. Cliquez Oui, et tapez les numéros de taille de la hauteur et de la largeur qui sont séparés par une virgule dans la zone de texte, voir la capture d'écran:

doc insérer des images avec la même taille 3

6. Et puis cliquez OK, toutes les images insérées ont été réorganisées avec la même taille, voir capture d'écran:

doc insérer des images avec la même taille 4

Note: la taille de l'unité est pond en code VBA.


Redimensionner toutes les images à la même taille en fonction d'une image spécifique avec Kutools for Word

Si plusieurs images existent dans votre document Word, avec Kutools for Word's Redimensionner les images Cet utilitaire vous permet de redimensionner rapidement toutes les images comme si elles étaient spécifiques.

Kutools for Word : avec plus de 100 add-in Word, gratuit pour essayer sans limitation dans 60 jours.

Après l'installation de Kutools for Word, faites comme ceci:

1. Ajustez une image à la taille souhaitée, puis sélectionnez-la, puis cliquez sur Entreprise > Redimensionner les images > Redimensionner les images avec la sélection, voir capture d'écran:

doc insérer des images avec la même taille 5

2. Et toutes les images de ce document Word ont été redimensionnées de la même manière que celle sélectionnée, voir capture d'écran:

doc insérer des images avec la même taille 6

Cliquez pour télécharger Kutools for Word et essai gratuit maintenant!



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Soda · 1 months ago
    Hi, hello
    I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
    Thanks for that :)