Πώς να εισαγάγετε πολλές εικόνες με το ίδιο μέγεθος στο έγγραφο του 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 και δωρεάν δοκιμή τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου  /  Ξαναγράψτε το κείμενο  /  Συνοψίστε τα έγγραφα  /  Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word

📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων  /  Συγχώνευση εγγράφων  /  Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...)  /  Μαζική μετατροπή σε PDF  /  Εξαγωγή σελίδων ως εικόνες  /  Εκτύπωση πολλών αρχείων ταυτόχρονα...

✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία  /  Αλλαγή μεγέθους όλων των εικόνων  /  Μεταφορά σειρών και στηλών πίνακα  /  Μετατροπή πίνακα σε κείμενο...

🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι  /  Διακοπές ενότητας  /  Όλες οι κεφαλίδες  /  Κουτιά κειμένου  /  Υπερ-συνδέσεις  / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...

➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές  /  Πλαίσια ελέγχου  /  Κουμπιά ραδιοφώνου  /  QR Code  /  barcode  /  Διαγώνιος γραμμικός πίνακας  /  Λεζάντα εξίσωσης  /  Λεζάντα εικόνας  /  Λεζάντα πίνακα  /  Πολλαπλές εικόνες  / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...

🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες  /  πίνακες  /  σχήματα  /  επικεφαλίδες παραγράφους  / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...

⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία  /  αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου  /  εναλλαγή μεταξύ των παραθύρων εγγράφων  /  11 Εργαλεία μετατροπής...

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Το Kutools για το Word προσφέρει α Δωρεάν δοκιμαστική περίοδο 60, χωρίς περιορισμούς! 🚀

Δωρεάν κατέβασμα     Δείτε Περισσότερα     Άμεση αγορά