Bagaimana cara mengekstrak hyperlink dari beberapa gambar di Excel?
Katakanlah, Anda memiliki daftar gambar di lembar kerja, dan setiap gambar berisi hyperlink, sekarang, Anda ingin mengekstrak alamat hyperlink asli dari gambar-gambar ini ke sel berikutnya seperti gambar berikut yang ditampilkan. Tentu saja, Anda dapat menyalin alamat hyperlink dari Sunting Hyperlink kotak satu per satu, tetapi, ini akan memakan waktu jika ada beberapa hyperlink yang perlu diekstraksi. Pada artikel ini, saya akan memperkenalkan beberapa metode untuk menyelesaikan tugas ini dengan cepat dan mudah di Excel.
Ekstrak hyperlink dari beberapa gambar dengan kode VBA
Ekstrak hyperlink dari beberapa gambar dengan kode VBA
Kode VBA berikut dapat membantu Anda mengekstrak alamat asli dari beberapa gambar hyperlink sekaligus, lakukan langkah demi langkah:
1. Tahan ALT + F11 kunci di Excel untuk membuka file Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.
Kode VBA: Ekstrak alamat asli dari beberapa gambar yang memiliki hyperlink
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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua alamat hyperlink telah diekstraksi ke dalam sel yang sesuai di samping gambar, lihat tangkapan layar:
Note: Kode ini akan mengekstrak alamat asli dari semua gambar di lembar kerja saat ini.
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
