Bagaimana cara mengubah URL gambar menjadi gambar sebenarnya di Excel?
Jika Anda memiliki daftar alamat URL gambar di kolom A, dan sekarang, Anda ingin mendownload gambar yang sesuai dari URL dan menampilkannya ke kolom B yang berdekatan seperti gambar di sebelah kiri yang ditampilkan. Di Excel, bagaimana Anda bisa mengekstrak gambar sebenarnya dari URL gambar dengan cepat dan mudah?
Konversikan URL gambar menjadi gambar aktual dengan kode VBA
Konversikan URL gambar menjadi gambar sebenarnya dengan Kutools for Excel
Konversikan URL gambar menjadi gambar aktual dengan kode VBA
Kode VBA berikut dapat membantu Anda mengekstrak gambar sebenarnya dengan cepat dari alamat URL gambar, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.
Kode VBA: Ubah URL gambar menjadi gambar sebenarnya:
Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End SubCatatan:
- 1. Pada kode di atas, A2: A5 adalah rentang sel yang berisi alamat URL yang ingin Anda ekstrak gambarnya, Anda harus mengubah referensi sel sesuai kebutuhan Anda.
- 2. Dengan kode ini, Anda tidak dapat menentukan ukuran gambar yang diekstrak sesuai kebutuhan Anda.
- 3. Kode di atas hanya dapat mengekstrak gambar aktural ke dalam sel selain kolom URL Anda, Anda tidak dapat menentukan sel untuk menampilkan gambar.
- 4. Anda harus memiliki pengetahuan dasar tentang kode, jika ada karakter yang terlewat atau salah, kode tidak akan berhasil dijalankan.
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua gambar yang sesuai telah diekstraksi dari URL gambar ke kolom yang berdekatan sekaligus, dan gambar akan ditempatkan di tengah sel spesifik Anda, lihat tangkapan layar:
Konversikan URL gambar menjadi gambar sebenarnya dengan Kutools for Excel
Jika Anda tidak terbiasa dengan kode VBA atau ingin memperbaiki batasan kode di atas, Kutools for Excel's Sisipkan Gambar bentuk Jalur (URL) Fitur ini dapat membantu Anda dengan cepat memasukkan gambar yang sesuai berdasarkan alamat URL atau jalur tertentu di komputer Anda seperti gambar di bawah ini. Klik untuk mendownload Kutools for Excel!
Setelah menginstal Kutools for Excel, lakukan seperti ini:
1. Klik Kutools > Menyisipkan > Sisipkan Gambar bentuk Jalur (URL), di kotak dialog yang muncul, silakan atur operasi berikut, lihat tangkapan layar:
 |
 |
 |
2. Lalu klik Ok tombol, dan gambar akan diekstrak dari URL, lihat tangkapan layar:
Klik untuk Mengunduh dan uji coba gratis Kutools for Excel Sekarang!
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 Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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!
