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

Η εισαγωγή εικόνων σε ένα έγγραφο του Word μπορεί να βελτιώσει σημαντικά την οπτική του γοητεία και την αποτελεσματικότητά του. Ωστόσο, όταν πρόκειται για λεπτομερείς εικόνες ή για εξοικονόμηση χώρου, μπορεί να είναι χρήσιμο να επιτρέπεται στους αναγνώστες να κάνουν κλικ και να μεγεθύνουν τις εικόνες για μια πιο προσεκτική ματιά. Το Word δεν διαθέτει ενσωματωμένη δυνατότητα για εικόνες με κλικ για μεγέθυνση, αλλά υπάρχουν λύσεις για να επιτευχθεί αυτό το αποτέλεσμα.

Σε αυτό το σεμινάριο, θα σας καθοδηγήσουμε στα βήματα για τη δημιουργία εικόνων με δυνατότητα κλικ που μεγεθύνονται ή επεκτείνονται όταν κάνετε κλικ, βελτιώνοντας τη διαδραστικότητα και τη λειτουργικότητα των εγγράφων του Word.

Κάντε κλικ για μεγέθυνση ή επέκταση εικόνας με κωδικό VBA

Αλλάξτε το μέγεθος όλων των εικόνων ταυτόχρονα με το Kutools για Word

Κάντε κλικ για μεγέθυνση ή επέκταση εικόνας με κωδικό VBA

Ο παρακάτω κώδικας VBA σάς βοηθά να μεγεθύνετε τις εικόνες σε ένα έγγραφο του Word με ένα κλικ. Ακολουθήστε αυτά τα βήματα:

1. Ανοίξτε το έγγραφο του Word που περιέχει τις εικόνες και πατήστε Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Ενότητα τάξης. Στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα στο Ενότητα τάξης παράθυρο:

   Public WithEvents GApp As Word.Application
   'Updated by ExtendOffice 20181129
   Private Sub GApp_WindowSelectionChange(ByVal Sel As Selection)
       Dim xShape As InlineShape
       On Error Resume Next
       Set xShape = Sel.InlineShapes(1)
       xShape.Height = 200
       xShape.Width = 200
   End Sub

Σημείωση: Στον κωδικό, ο αριθμός 200 καθορίζει το ύψος και το πλάτος των μεγεθυσμένων εικόνων σε σημεία (pt). Μπορείτε να προσαρμόσετε αυτές τις τιμές σύμφωνα με τις προτιμήσεις σας.

3. Στη συνέχεια, κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησης και αντιγράψτε τον παρακάτω κώδικα στο Μονάδα μέτρησης παράθυρο:

   Dim cls As New Class1
   'Updated by ExtendOffice 20181129
   Sub register_Event_Handler()
       Set cls.GApp = Word.Application
   End Sub

4. Τύπος F5 για να εκτελέσετε τον κώδικα και μετά κλείστε το Microsoft Visual Basic για εφαρμογές παράθυρο.
5. Τώρα, όταν κάνετε κλικ σε μια εικόνα στο έγγραφο, θα μεγεθύνεται στο καθορισμένο μέγεθος. Δείτε στιγμιότυπο οθόνης:

   

Αλλάξτε το μέγεθος όλων των εικόνων ταυτόχρονα με το Kutools για Word

Η Αλλαγή μεγέθους εικόνων χρησιμότητα του Kutools για το Word μπορεί να σας βοηθήσει να αλλάξετε το μέγεθος όλων των εικόνων με καθορισμένο ποσοστό ή επιλεγμένη εικόνα. Παρακαλώ δοκιμάστε.

Πατήστε Kutools Plus > Αλλαγή μεγέθους, επιλέξτε ένα ποσοστό από την αναπτυσσόμενη λίστα. Δείτε στιγμιότυπο οθόνης:

Στη συνέχεια, όλες οι εικόνες στο τρέχον έγγραφο αλλάζουν το μέγεθος με βάση αυτό το συγκεκριμένο ποσοστό.

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

Στη συνέχεια, το μέγεθος όλων των εικόνων στο τρέχον έγγραφο βασίζεται σε επιλεγμένο.

Καρτέλα Office: Φέρνει τις διεπαφές με καρτέλες σε Word, Excel, PowerPoint...

Βελτιώστε τη ροή εργασίας σας τώρα.      Μάθετε περισσότερα για την καρτέλα Office       Δωρεάν κατέβασμα

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

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

🤖 Χαρακτηριστικά Kutools AI: Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Έγγραφο Q&A / Λάβετε γρήγορες απαντήσεις / Μετάφραση εγγράφων / Πολωνικό έγγραφο (Μορφή διατήρησης)...

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

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

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

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

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

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

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Κατεβάστε το Kutools για το Word τώρα! 🚀

Δωρεάν κατέβασμα     Άμεση αγορά     Μάθετε περισσότερα σχετικά με τα Kutools για Word

 

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

Kutools για το Word - 100+ εργαλεία για το Word

• 🤖 Χαρακτηριστικά Kutools AI: Δημιουργία, Ξαναγράφω, Συνοψίστε, μεταφράζω Έγγραφα / Λάβετε γρήγορες απαντήσεις / Πολωνικό έγγραφο (Μορφή διατήρησης)
• 📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Μαζική μετατροπή σε PDF
• ✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση / Αλλαγή μεγέθους όλων των εικόνων
• 🧹 Καθαρισμός χωρίς κόπο: Κατάργηση επιπλέον χώρων / Κατάργηση διακοπών ενότητας
• ➕ Δημιουργικά ένθετα: Εισαγάγετε Χίλια Διαχωριστικά / Εισαγωγή πλαισίων ελέγχου / Δημιουργήστε κωδικούς QR

Δωρεάν κατέβασμα Άμεση αγορά Μάθετε περισσότερα για το Kutools