Πώς να εισαγάγετε πολλές εικόνες με το ίδιο μέγεθος στο έγγραφο του Word;

Κανονικά, μπορείτε να εισαγάγετε πολλές εικόνες ταυτόχρονα σε ένα έγγραφο του Word με το αρχικό τους μέγεθος. Μερικές φορές, πρέπει να τακτοποιήσετε αυτές τις εικόνες στο ίδιο μέγεθος κατά την εισαγωγή. Αυτό το άρθρο, θα μιλήσω για τον τρόπο εισαγωγής πολλαπλών εικόνων με το ίδιο μέγεθος σε ένα έγγραφο του Word.

Εισαγάγετε πολλές εικόνες με ίδιο μέγεθος στο έγγραφο του Word με κωδικό VBA

Αλλαγή μεγέθους όλων των εικόνων στο ίδιο μέγεθος με βάση μια συγκεκριμένη εικόνα με το Kutools for Word

Εισαγάγετε πολλές εικόνες με ίδιο μέγεθος στο έγγραφο του Word με κωδικό VBA

Ο παρακάτω κώδικας vba μπορεί να σας βοηθήσει να εισαγάγετε πολλές εικόνες και να αλλάξετε το μέγεθός τους στο καθορισμένο μέγεθος ταυτόχρονα, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.

Κωδικός VBA: εισαγάγετε πολλές εικόνες με το ίδιο μέγεθος:

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. Και μετά, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, a Αναζήτηση εμφανίζεται το παράθυρο, επιλέξτε το φάκελο που περιέχει τις εικόνες που θέλετε να εισαγάγετε, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει εάν θέλετε να αλλάξετε το μέγεθος των εικόνων, δείτε το στιγμιότυπο οθόνης:

5. Κλίκ Ναικαι πληκτρολογήστε τους αριθμούς μεγέθους του ύψους και του πλάτους που διαχωρίζονται με κόμμα στο πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:

6. Και στη συνέχεια κάντε κλικ στο κουμπί OK, όλες οι εικόνες που έχουν εισαχθεί έχουν αναδιαταχθεί ως το ίδιο μέγεθος, δείτε το στιγμιότυπο οθόνης:

Note: το μέγεθος της μονάδας είναι λίμνη σε κώδικα VBA.

Αλλαγή μεγέθους όλων των εικόνων στο ίδιο μέγεθος με βάση μια συγκεκριμένη εικόνα με το Kutools for Word

Εάν υπάρχουν πολλές εικόνες στο έγγραφο του Word, με Kutools για το Word'S Αλλαγή μεγέθους εικόνων βοηθητικό πρόγραμμα, μπορείτε να αλλάξετε το μέγεθος όλων των εικόνων γρήγορα όπως το συγκεκριμένο.

Μετά την εγκατάσταση Kutools για το Word, κάντε το ως εξής:

1. Προσαρμόστε μία εικόνα στο μέγεθος που θέλετε και, στη συνέχεια, επιλέξτε την και, στη συνέχεια, κάντε κλικ Kutools Plus > Αλλαγή μεγέθους > Αλλαγή μεγέθους εικόνων με επιλογή, δείτε το στιγμιότυπο οθόνης:

2. Και όλες οι εικόνες σε αυτό το έγγραφο λέξης έχουν αλλάξει το μέγεθος όπως το επιλεγμένο αμέσως, δείτε το στιγμιότυπο οθόνης:

Κάντε κλικ για λήψη του Kutools for Word και δωρεάν δοκιμή τώρα!

---

Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο

• Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
• Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
• Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
• Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
• Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...

ΔΙΑΒΑΣΤΕ ΠΕΡΙΣΣΟΤΕΡΑ Κατεβάστε τώρα Αγορά