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

Πώς να εξαγάγετε εικόνες από σχόλια στο Excel;

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

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

Εξαγάγετε εικόνες από σχόλια σε κελιά με κωδικό VBA


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

Εάν θέλετε να εξαγάγετε και να αποθηκεύσετε τις εικόνες από τα σχόλια σε ένα φάκελο, κάντε τα εξής:

1. Αντιγράψτε το φύλλο που περιέχει τα σχόλια με εικόνες που θέλετε να αποθηκεύσετε σε ένα νέο κενό βιβλίο εργασίας.

doc εξαγωγή εικόνας από το σχόλιο 1

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

doc εξαγωγή εικόνας από το σχόλιο 2

3. Στη συνέχεια κάντε κλικ στο κουμπί Αποθήκευση κουμπί για να αποθηκεύσετε το αρχείο και, στη συνέχεια, μεταβείτε στον συγκεκριμένο φάκελο για να δείτε τις αποθηκευμένες εικόνες, δημιουργούνται δύο αρχεία στο φάκελο, το ένα είναι το αρχείο html και ένα άλλο είναι ένας φάκελος που περιέχει όλες τις εικόνες και άλλα αρχεία, δείτε το στιγμιότυπο οθόνης:

doc εξαγωγή εικόνας από το σχόλιο 3


βέλος μπλε δεξιά φούσκαΕξαγάγετε εικόνες από σχόλια σε κελιά με κωδικό VBA

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

doc εξαγωγή εικόνας από το σχόλιο 4

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.

Κωδικός VBA: Εξαγωγή εικόνων από σχόλια σε κελιά:

Sub CommentPictures()
'Updateby Extendoffcie
    Dim cmt As Comment
    Dim xRg As Range
    Dim visBool As Boolean
    Dim cmtTxt As String
    Dim jpgPath As String
    Dim shpHeight As Integer, shpWidth As Integer
    Application.ScreenUpdating = False
    For Each cmt In ActiveSheet.Comments
        With cmt
            cmtTxt = .Text
            shpHeight = .Shape.Height
            shpWidth = .Shape.Width
            .Text Text:="" & Chr(10) & ""
            visBool = .Visible
            .Visible = True
            On Error Resume Next
            Set xRg = .Parent.Offset(0, 1)
            .Shape.CopyPicture _
              Appearance:=xlScreen, Format:=xlPicture
            xRg.PasteSpecial
            Selection.ShapeRange.LockAspectRatio = msoFalse
            Selection.Width = xRg.Width
            Selection.Height = xRg.Height
            .Visible = visBool
            .Text Text:=cmtTxt
        End With
    Next cmt
    Application.ScreenUpdating = True
End Sub

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

doc εξαγωγή εικόνας από το σχόλιο 4

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola! Muchisimas gracias por el aporte. Tengo un problema, a veces funciona y a veces no extrae las fotos .Por que puede ser si es la misma macro?
This comment was minimized by the moderator on the site
Thank you!! I had previously inserted pictures into comments for a document and then deleted the pictures only to have someone ask me for copies of only the pictures. This was very straightforward and saved me. Thanks again!
This comment was minimized by the moderator on the site
Hello,
Very interesting post. Thanks a lot.

But I do not see how to use it to use the picture for a button of my CommandBar. Let me explain.

I want to share my Excel sheets without sending separatly images for buttons as jpg files (.Picture = LoadPicture(ImageFile).

So I want to hide the images in some hidden cells or in some comments.
No issue to hide the images.
But I do not succeed to get them afterward to initialize my buttons.

Any idea for this ?


Thanks for your time.
Brice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations