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

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

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

Αλλαγή μεγέθους εικόνων με Kutools for Word

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

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

1. Στο έγγραφο περιέχει εικόνες που θα μεγεθύνετε με ένα κλικ, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Ενότητα τάξης. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Class.

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

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

Note: Στον κωδικό, ο αριθμός 200 είναι το καθορισμένο ύψος και πλάτος των μεγεθυσμένων εικόνων. Μπορείτε να αλλάξετε το ύψος και το πλάτος όπως χρειάζεστε.

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

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

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 για εφαρμογές παράθυρο.

Τώρα, όταν κάνετε κλικ σε μια εικόνα σε αυτό το αρχείο, η εικόνα θα διευρυνθεί στο συγκεκριμένο μέγεθος όπως θέλετε.

Αλλαγή μεγέθους εικόνων με Kutools for Word

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

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

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

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

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

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

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

---

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

 

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

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

Δείτε Περισσότερα Κατεβάστε τώρα Αγορά