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, je vais vous expliquer 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 le code VBA
Insérer plusieurs images de même taille dans un document Word avec le code VBA
Le code vba suivant peut vous aider à insérer plusieurs images et à les redimensionner à la taille 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.
2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre 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 Explorer fenêtre s'affiche, veuillez sélectionner le dossier contenant les images que vous souhaitez insérer, voir capture d'écran:
4. Puis clique OK bouton, et une boîte de dialogue apparaît pour vous rappeler si vous souhaitez redimensionner les images, voir capture d'écran:
5Cliquez sur Oui, et tapez les numéros de taille de la hauteur et de la largeur séparés par une virgule dans la zone de texte, voir capture d'écran:
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:
Notes: la taille de l'unité est étang en code VBA.
Redimensionnez 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 utilitaire, vous pouvez rapidement redimensionner toutes les images de la même manière que celle spécifique.
Kutools for Word : avec plus de 100 compléments Word pratiques, essai gratuit sans limitation en 60 jours. |
Après l'installation de Kutools for Word, veuillez faire comme ceci:
1. Ajustez une image à la taille souhaitée, puis sélectionnez-la, puis cliquez sur Kutools Plus > "Resize" > Redimensionner les images avec la sélection, voir capture d'écran:
2. Et toutes les images de ce document Word ont été redimensionnées de la même manière que celle sélectionnée immédiatement, voir capture d'écran:
Cliquer pour télécharger Kutools for Word et essai gratuit maintenant !
Outils de productivité Word recommandés
Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de temps
- Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
- Insérez simultanément plusieurs images dans des dossiers dans un document Word.
- Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
- Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
- Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.



