Πώς να εξαγάγετε εικόνες από σχόλια στο Excel;
Στο Excel, μπορείτε να εισαγάγετε εικόνα στο σχόλιο όσο πιο εύκολα μπορείτε, αλλά έχετε σκεφτεί ποτέ να εξαγάγετε τις εικόνες από τα πλαίσια σχολίων σε κελιά ή σε έναν συγκεκριμένο φάκελο; Αυτό το άρθρο, θα μιλήσω για τον τρόπο εξαγωγής των εικόνων από σχόλια.
Εξαγάγετε και αποθηκεύστε εικόνες από σχόλια σε ένα φάκελο με τη λειτουργία Αποθήκευση ως
Εξαγάγετε εικόνες από σχόλια σε κελιά με κωδικό VBA
Εξαγάγετε και αποθηκεύστε εικόνες από σχόλια σε ένα φάκελο με τη λειτουργία Αποθήκευση ως
Εάν θέλετε να εξαγάγετε και να αποθηκεύσετε τις εικόνες από τα σχόλια σε ένα φάκελο, κάντε τα εξής:
1. Αντιγράψτε το φύλλο που περιέχει τα σχόλια με εικόνες που θέλετε να αποθηκεύσετε σε ένα νέο κενό βιβλίο εργασίας.
2. Και στη συνέχεια κάντε κλικ στο κουμπί Αρχεία > Αποθήκευση ως για να αποθηκεύσετε αυτό το νέο βιβλίο εργασίας ως ιστοσελίδα μορφή σε έναν συγκεκριμένο φάκελο, δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια κάντε κλικ στο κουμπί Αποθήκευση κουμπί για να αποθηκεύσετε το αρχείο και, στη συνέχεια, μεταβείτε στον συγκεκριμένο φάκελο για να δείτε τις αποθηκευμένες εικόνες, δημιουργούνται δύο αρχεία στο φάκελο, το ένα είναι το αρχείο html και ένα άλλο είναι ένας φάκελος που περιέχει όλες τις εικόνες και άλλα αρχεία, δείτε το στιγμιότυπο οθόνης:
Εξαγάγετε εικόνες από σχόλια σε κελιά με κωδικό VBA
Αν θέλετε να εξαγάγετε τις εικόνες από σχόλια σε κελιά όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, εδώ, μπορώ να δημιουργήσω έναν κώδικα VBA για εσάς, κάντε το ως εξής:
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 κλειδί για την εκτέλεση αυτού του κώδικα και όλες οι εικόνες των σχολίων στο τρέχον φύλλο εργασίας έχουν εξαχθεί στα επόμενα κελιά στήλης, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!