Jak wyodrębnić hiperłącza z wielu obrazów w programie Excel?
Załóżmy, że masz listę obrazów w arkuszu roboczym, a każdy obraz zawiera hiperłącze, teraz chciałbyś wyodrębnić prawdziwe adresy hiperłączy z tych obrazów do ich następnych komórek, jak pokazano na zrzucie ekranu. Oczywiście możesz skopiować adres hiperłącza z pliku Edytuj hiperłącze po kolei, ale będzie to czasochłonne, jeśli trzeba wyodrębnić wiele hiperłączy. W tym artykule przedstawię kilka metod szybkiego i łatwego rozwiązania tego zadania w programie Excel.
Wyodrębnij hiperłącza z wielu obrazów za pomocą kodu VBA
Wyodrębnij hiperłącza z wielu obrazów za pomocą kodu VBA
Poniższy kod VBA może pomóc w wyodrębnieniu rzeczywistych adresów z wielu hiperłączy jednocześnie, wykonaj krok po kroku:
1. Przytrzymaj ALT + F11 klucze w programie Excel, aby otworzyć plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
Kod VBA: wyodrębnij prawdziwe adresy z wielu obrazów z hiperłączami
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie adresy hiperłączy zostały wyodrębnione do odpowiednich komórek obok zdjęć, patrz zrzut ekranu:
Note: Ten kod wyodrębni prawdziwe adresy ze wszystkich obrazów w bieżącym arkuszu.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!