Hoe afbeeldings-URL's naar werkelijke afbeeldingen in Excel te converteren?
Als je een lijst met afbeeldings-URL-adressen in kolom A hebt, en nu, wil je de bijbehorende afbeeldingen van de URL's downloaden en ze in de aangrenzende kolom B weergeven zoals het linker screenshot wordt getoond. Hoe kunt u in Excel de daadwerkelijke afbeeldingen snel en gemakkelijk uit de afbeeldings-URL's extraheren?
Converteer de afbeeldings-URL's naar echte afbeeldingen met VBA-code
Converteer de afbeeldings-URL's naar daadwerkelijke afbeeldingen met Kutools voor Excel
Converteer de afbeeldings-URL's naar echte afbeeldingen met VBA-code
De volgende VBA-code kan u helpen om snel de daadwerkelijke afbeeldingen uit de afbeeldings-URL-adressen te extraheren, doe dit als volgt:
1. Houd de ALT + F11 -toetsen om het venster Microsoft Visual Basic for Applications te openen.
2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.
VBA-code: converteer de afbeeldings-URL's naar daadwerkelijke afbeeldingen:
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 SubOpmerkingen:
- 1. In de bovenstaande code, A2: A5 is het celbereik dat de URL-adressen bevat waarvan u de afbeeldingen wilt extraheren, u moet de celverwijzingen naar uw behoefte wijzigen.
- 2. Met deze code kunt u de grootte van de geëxtraheerde afbeeldingen niet naar wens specificeren.
- 3. De bovenstaande code kan alleen de werkelijke afbeeldingen extraheren in de cellen naast uw URL-kolom, u kunt geen cel specificeren om de afbeeldingen uit te voeren.
- 4. U moet enige basiskennis van de code hebben. Als een karakter ontbreekt of onjuist is, zal de code niet met succes worden uitgevoerd.
3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en alle bijbehorende afbeeldingen zijn in één keer uit de afbeeldings-URL's naar de aangrenzende kolom geëxtraheerd en de afbeeldingen worden in het midden van uw specifieke cellen geplaatst, zie screenshot:
Converteer de afbeeldings-URL's naar daadwerkelijke afbeeldingen met Kutools voor Excel
Als u niet bekend bent met de VBA-code of de beperking van de bovenstaande code wilt verhelpen, Kutools for Excel's Afbeeldingen invoegen pad (URL) functie kan u helpen om snel de corresponderende afbeeldingen in te voegen op basis van de URL-adressen of het specifieke pad op uw computer, zoals onderstaand screenshot. Klik om Kutools voor Excel te downloaden!
Na het installeren van Kutools for Excel, doe dit als volgt:
1. Klikken Kutools > Invoegen > Afbeeldingen invoegen pad (URL), stel in het uitgeklapte dialoogvenster de volgende bewerkingen in, zie screenshots:
 |
 |
 |
2. Dan klikken Ok knop, en de afbeeldingen worden uit de URL's gehaald, zie screenshot:
Klik om Kutools voor Excel nu te downloaden en gratis uit te proberen!
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
