Πώς να εισάγετε και να αλλάξετε το μέγεθος εικόνων στο ίδιο μέγεθος στο Word;
Κανονικά, μπορείτε να εισαγάγετε πολλές εικόνες ταυτόχρονα σε ένα έγγραφο του Word με τα αρχικά τους μεγέθη. Ωστόσο, υπάρχουν φορές που πρέπει να διασφαλίσετε ότι όλες οι εικόνες έχουν το ίδιο μέγεθος για μια συνεπή και επαγγελματική εμφάνιση. Η μη αυτόματη αλλαγή μεγέθους κάθε εικόνας μπορεί να είναι χρονοβόρα. Αυτός ο οδηγός θα σας δείξει πώς να εισαγάγετε αποτελεσματικά πολλές εικόνες σε ένα έγγραφο του Word και να αλλάξετε το μέγεθός τους ομοιόμορφα, διασφαλίζοντας μια επαγγελματική και συνεκτική διάταξη.
Εισαγάγετε και αλλάξτε το μέγεθος πολλών εικόνων στο ίδιο μέγεθος στο Word χρησιμοποιώντας VBA
Εισαγάγετε και αλλάξτε το μέγεθος πολλών εικόνων στο ίδιο μέγεθος στο Word χρησιμοποιώντας VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να εισαγάγετε πολλές εικόνες και να αλλάξετε το μέγεθός τους στις καθορισμένες διαστάσεις σας ταυτόχρονα. Ακολουθήστε αυτά τα βήματα:
- Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
- Πατήστε Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης παράθυρο.
- Τύπος F5 για να εκτελέσετε αυτόν τον κωδικό. ΕΝΑ Αναζήτηση θα εμφανιστεί το παράθυρο. Επιλέξτε το φάκελο που περιέχει τις εικόνες που θέλετε να εισαγάγετε και κάντε κλικ OK.
- Θα εμφανιστεί ένα μήνυμα που θα σας ρωτάει εάν θέλετε να αλλάξετε το μέγεθος των εικόνων. Κλικ Ναι.
- Εισαγάγετε το ύψος και το πλάτος σε σημεία (pt), διαχωρισμένα με κόμμα, στο πλαίσιο κειμένου που εμφανίζεται και, στη συνέχεια, κάντε κλικ OK.
- Όλες οι εικόνες που έχουν εισαχθεί θα αλλάξουν πλέον το μέγεθος στις καθορισμένες διαστάσεις.
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
Αλλάξτε το μέγεθος όλων των εικόνων ώστε να ταιριάζουν με μια συγκεκριμένη εικόνα χρησιμοποιώντας το Kutools για Word
Όταν το έγγραφο του Word περιέχει πολλές εικόνες, η αλλαγή του μεγέθους τους μία προς μία μπορεί να είναι κουραστική. Με Kutools για το Word, Αλλαγή μεγέθους εικόνων Το βοηθητικό πρόγραμμα σάς επιτρέπει να αλλάζετε γρήγορα το μέγεθος όλων των εικόνων ώστε να ταιριάζουν με το μέγεθος μιας συγκεκριμένης.
- Προσαρμόστε μια εικόνα στο επιθυμητό μέγεθος και επιλέξτε την. Στη συνέχεια κάντε κλικ Kutools Plus > Αλλαγή μεγέθους > Αλλαγή μεγέθους όλων των εικόνων με βάση την επιλογή.
Όλες οι εικόνες στο έγγραφο του Word θα αλλάξουν αμέσως το μέγεθος ώστε να ταιριάζουν με το μέγεθος της επιλεγμένης εικόνας.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Χαρακτηριστικά Kutools AI: Βοηθός AI / Βοηθός σε πραγματικό χρόνο / Super Polish (Μορφή διατήρησης) / Super Translate (Μορφή διατήρησης) / AI Redaction / Διόρθωση AI...
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο ΑΦΑΙΡΕΣΗ ομάδα...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Κύριο θέμα ομάδα...
🔍 Επιλογές Ακρίβειας: Επισήμανση Συγκεκριμένες σελίδες / πίνακες / Σχήματα / Επικεφαλίδες Παράγραφοι / Βελτιώστε την πλοήγηση με περισσότερο Αγορά χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε σε Οποιαδήποτε τοποθεσία / Αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / Εναλλαγή μεταξύ των Windows Document / 11 Μετατροπή Εργαλεία...
🌍 Υποστηρίζει 40+ γλώσσεςΧρησιμοποιήστε το Kutools στην προτιμώμενη γλώσσα σας – υποστηρίζει Αγγλικά, Ισπανικά, Γερμανικά, Γαλλικά, Κινέζικα και 40+ άλλες γλώσσες!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - 100+ εργαλεία για το Word
- 🤖 Χαρακτηριστικά Kutools AI: Βοηθός AI / Βοηθός σε πραγματικό χρόνο / Σούπερ Πολωνικό / Super Translate / AI Redaction / Διόρθωση AI
- 📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Μαζική μετατροπή σε PDF
- ✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση / Αλλαγή μεγέθους όλων των εικόνων
- 🧹 Καθαρισμός χωρίς κόπο: Κατάργηση επιπλέον χώρων / Κατάργηση διακοπών ενότητας
- ➕ Δημιουργικά ένθετα: Εισαγάγετε Χίλια Διαχωριστικά / Εισαγωγή πλαισίων ελέγχου / Δημιουργήστε κωδικούς QR
- 🌍 Υποστηρίζει 40+ γλώσσες: Το Kutools μιλάει τη γλώσσα σας – Υποστηρίζονται 40+ γλώσσες!