Μετάβαση στο κύριο περιεχόμενο

Πώς να μεγεθύνετε την εικόνα όταν κάνετε κλικ σε αυτήν στο Excel;

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

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


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

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

1. Κάντε δεξί κλικ στην εικόνα που πρέπει να μεγεθύνετε, κάνοντας απλώς κλικ πάνω της και, στη συνέχεια, κάντε κλικ Εκχώρηση μακροεντολής από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:

2. Στο Εκχώρηση μακροεντολής πλαίσιο διαλόγου, κάντε κλικ στο Νέα κουμπί.

3. Στο αναδυόμενο παράθυρο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA μεταξύ του Σε και Sub End κωδικοί. Δείτε το στιγμιότυπο οθόνης:

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

Dim shp As Shape
    Dim big As Single, small As Single
    Dim shpDouH As Double, shpDouOriH As Double
    big = 3   
    small = 1 
    On Error Resume Next
    Set shp = ActiveSheet.Shapes(Application.Caller)
    With shp
        shpDouH = .Height
        .ScaleHeight 1, msoTrue, msoScaleFromTopLeft
        shpDouOriH = .Height
    
        If Round(shpDouH / shpDouOriH, 2) = big Then
            .ScaleHeight small, msoTrue, msoScaleFromTopLeft
            .ScaleWidth small, msoTrue, msoScaleFromTopLeft
            .ZOrder msoSendToBack
        Else
            .ScaleHeight big, msoTrue, msoScaleFromTopLeft
            .ScaleWidth big, msoTrue, msoScaleFromTopLeft
            .ZOrder msoBringToFront
        End If
    End With

Note: Στον κώδικα, μπορείτε να αντιστοιχίσετε τα μεγάλα μεγέθη της εικόνας στον κωδικό big = 3.

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

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


Σχετικά Άρθρα:

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Lösung zu verpixelte Bilder
Ich hatte dasselbe Problem mit den verpixelten Bildern. Du musst in den Einstellungen etwas ändern und zwar:
Unter Datei/Optionen/Erweitert unter dem Punkt "Bildgröße und -Qualität" einen Hacken bei "Bilder nicht in Datei komprimieren" setzen. Dann zeigt es die Bilder nicht mehr verpixelt an. LG
This comment was minimized by the moderator on the site
Doesnt work
This comment was minimized by the moderator on the site
I know that a jpg loses quality each time it is saved.  That's why users are advised to save to a new filename.  This could be why people who try using this macro are ending up with blurred pictures.  A better approach would be to have two pictures - a large and small of the same photo.  The small is placed in the cell, the large in a different sheet, same file.  Then use code to show the large picture when the small picture is either clicked or hover over.  This way. neither picture gets resized and therefore should not lose quality.  I am not sure Kutools is able to do this.
This comment was minimized by the moderator on the site
The Macro works, the problem is that when you resize the the picture in the macro, if you go bellow 1, and save, the picture will lose it's quality :(
This comment was minimized by the moderator on the site
Hello, I'm trying to modify the the big (1) and small (0.1) values but the macro doesn't work properly. After some click the picture doesn't modify :(
This comment was minimized by the moderator on the site
THis is what i am looking for but it won't work with my excel 2016. I get an error message Application.caller = Error 2023
This comment was minimized by the moderator on the site
when u have inserted the code and press save the pics gets smaller and smaller... great idea but does not work i´m afraid...
This comment was minimized by the moderator on the site
This code works well
But when you open the workbook a second time, the images come out blurred
This comment was minimized by the moderator on the site
Maravilloso funciona perfecto!!!.
Hay forma que la imagen quede en el cento de la pantalla, solo es una oncesion, nada mas, la macro anda muy bien
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations