Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana cara mengekstrak hyperlink dari pelbagai imej dalam Excel?

Katakanlah, anda mempunyai senarai imej dalam lembaran kerja, dan setiap imej mengandungi pautan hiperpautan, kini, anda ingin mengekstrak alamat hiperpautan sebenar dari gambar-gambar ini ke sel-sel seterusnya seperti tangkapan skrin berikut. Sudah tentu, anda boleh menyalin alamat hiperpautan dari Edit Hyperlink kotak satu demi satu, tetapi, ini akan memakan masa sekiranya terdapat banyak hyperlink yang perlu diekstrak. Dalam artikel ini, saya akan memperkenalkan beberapa kaedah untuk menyelesaikan tugas ini dengan cepat dan mudah dalam Excel.

hyperlink ekstrak doc dari imej 1

Ekstrak hiperpautan dari pelbagai imej dengan kod VBA


Ekstrak alamat sebenar dari hiperpautan:

dengan Kutools untuk Excel'S Tukar Hyperlink, anda boleh dengan cepat mengekstrak alamat URL sebenar dari sel hyperlink sekali gus.

alamat ekstrak doc dari hiperpautan


anak panah gelembung kanan biru Ekstrak hiperpautan dari pelbagai imej dengan kod VBA


Kod VBA berikut boleh membantu anda mengekstrak alamat sebenar dari beberapa imej hyperlink sekaligus, sila lakukan langkah demi langkah:

1. Tahan ALT + F11 kunci dalam Excel untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Tetingkap Modul.

Kod VBA: Ekstrak alamat sebenar daripada pelbagai imej pautan

Sub ExtractHyperlinkFromPicture()
'updateby Extendoffice 20151015
    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. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan semua alamat hiperpautan telah diekstrak ke sel yang bersamaan di sebelah gambar, lihat tangkapan skrin:

hyperlink ekstrak doc dari imej 1

Nota: Kod ini akan mengekstrak alamat sebenar dari semua imej dalam lembaran kerja semasa.


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Richard · 2 years ago
    Worked like a charm once I figured out how to.