Note: The other languages of the website are Google-translated. Back to English

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

doc εισαγάγετε εικόνες με το ίδιο μέγεθος 1

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

doc εισαγάγετε εικόνες με το ίδιο μέγεθος 2

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

doc εισαγάγετε εικόνες με το ίδιο μέγεθος 3

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

doc εισαγάγετε εικόνες με το ίδιο μέγεθος 4

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


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

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

Kutools για το Word : με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. 

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

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

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

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


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

 

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

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (4)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια γεια
Είμαι η Soda, είμαι εδώ για να το πω αυτό, πραγματικά μαθαίνω πολλά με τον ιστότοπό σας και τις πληροφορίες που δίνετε.
Ευχαριστώ γι'αυτό :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ για τη βοήθεια ... είναι πολύ ενδιαφέρον ... μεγάλη δουλειά ... καλή τύχη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto; εικονοκύτταρο? εκ?
ΓΚΡΑΖΙ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Grasselli
Το μέγεθος μονάδας είναι pond στον παραπάνω κώδικα VBA.
Ευχαριστώ!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL