Resim URL'lerini Excel'de gerçek resimlere nasıl dönüştürebilirim?
A sütununda bir resim URL adresleri listeniz varsa ve şimdi, URL'lerden ilgili resimleri indirmek ve gösterilen sol ekran görüntüsü gibi bitişik B sütunda görüntülemek istiyorsunuz. Excel'de, gerçek resimleri resim URL'lerinden nasıl hızlı ve kolay bir şekilde ayıklayabilirsiniz?
Görüntü URL'lerini VBA kodu ile gerçek görüntülere dönüştürün
Kutools for Excel ile görüntü URL'lerini gerçek görüntülere dönüştürün
Görüntü URL'lerini VBA kodu ile gerçek görüntülere dönüştürün
Aşağıdaki VBA kodu, gerçek görüntüleri resim URL adreslerinden hızlı bir şekilde çıkarmanıza yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Görüntü URL'lerini gerçek görüntülere dönüştürün:
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 Sub
Notlar:
- 1. Yukarıdaki kodda, A2: A5 görüntüleri çıkarmak istediğiniz URL adreslerini içeren hücre aralığıdır, hücre referanslarını ihtiyacınıza göre değiştirmelisiniz.
- 2. Bu kodla, ayıklanan görüntülerin boyutunu ihtiyacınıza göre belirleyemezsiniz.
- 3. Yukarıdaki kod yalnızca gerçek görüntüleri URL sütununuzun yanı sıra hücrelere çıkarabilir, görüntülerin çıktısını almak için hücre belirtemezsiniz.
- 4. Kod hakkında bazı temel bilgilere sahip olmalısınız, herhangi bir karakter eksik veya yanlışsa, kod başarılı bir şekilde çalıştırılmayacaktır.
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve ilgili tüm resimler resim URL'lerinden bitişik sütuna aynı anda çıkarılmıştır ve resimler belirli hücrelerinizin ortasına yerleştirilecektir, ekran görüntüsüne bakın:
Kutools for Excel ile görüntü URL'lerini gerçek görüntülere dönüştürün
VBA kodunu bilmiyorsanız veya yukarıdaki kodun sınırlamasını gidermek istiyorsanız, Kutools for Excel's Yol (URL) için Resim Ekle özelliği, aşağıda gösterilen ekran görüntüsü gibi bilgisayarınızdaki URL adreslerine veya belirli yola dayalı olarak karşılık gelen resimleri hızlı bir şekilde eklemenize yardımcı olabilir. Kutools for Excel'i indirmek için tıklayın!
Kurduktan sonra Kutools for Excellütfen şunu yapın:
1. tıklayın Kutools > Ekle > Yol (URL) için Resim Ekle, açılan iletişim kutusunda lütfen aşağıdaki işlemleri ayarlayın, ekran görüntülerine bakın:
2. Daha sonra, Ok düğmesi ve resimler URL'lerden çıkarılacaktır, ekran görüntüsüne bakın:
Kutools for Excel'i şimdi ücretsiz olarak indirip deneme için tıklayın!
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!