Πώς να εξαγάγετε υπερ-συνδέσεις από πολλές εικόνες στο Excel;
Ας υποθέσουμε ότι έχετε μια λίστα εικόνων σε ένα φύλλο εργασίας και κάθε εικόνα περιέχει έναν υπερσύνδεσμο, τώρα, θα θέλατε να εξαγάγετε τις πραγματικές διευθύνσεις υπερ-σύνδεσης από αυτές τις εικόνες στα επόμενα κελιά τους, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Φυσικά, μπορείτε να αντιγράψετε τη διεύθυνση υπερσύνδεσης από το Επεξεργασία υπερσύνδεσης πλαίσιο ένα προς ένα, αλλά, αυτό θα είναι χρονοβόρο εάν χρειάζονται πολλοί υπερσύνδεσμοι για εξαγωγή. Σε αυτό το άρθρο, θα εισαγάγω ορισμένες μεθόδους για την επίλυση αυτής της εργασίας γρήγορα και εύκολα στο Excel.
Εξαγωγή υπερσυνδέσμων από πολλές εικόνες με κωδικό VBA
Εξαγωγή υπερσυνδέσμων από πολλές εικόνες με κωδικό VBA
Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να εξαγάγετε τις πραγματικές διευθύνσεις από τις πολλαπλές υπερσυνδεδεμένες εικόνες ταυτόχρονα, κάντε βήμα προς βήμα:
1. Κρατήστε πατημένο το ALT + F11 πλήκτρα στο Excel για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.
Κωδικός VBA: Εξαγωγή πραγματικών διευθύνσεων από πολλές υπερσυνδεδεμένες εικόνες
Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice
Dim xSh As Shape
Dim xScreen As Boolean
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xSh In ActiveSheet.Shapes
If xSh.Type = msoPicture Then
On Error Resume Next
Range(xSh.TopLeftCell.Address).Offset(0, 3).Value = xSh.Hyperlink.Address
On Error GoTo 0
End If
Next
Application.ScreenUpdating = xScreen
End Sub
3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και όλες οι διευθύνσεις υπερσύνδεσης έχουν εξαχθεί σε αντίστοιχα κελιά δίπλα στις εικόνες, δείτε το στιγμιότυπο οθόνης:
Note: Αυτός ο κώδικας θα εξαγάγει πραγματικές διευθύνσεις από όλες τις εικόνες στο τρέχον φύλλο εργασίας.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!