Omdanne link af billede til image

Ja, det er muligt at "auto-generere" billeder fra links i Excel, så du slipper for manuelt at kopiere billedadressen for hvert produkt. Du kan bruge VBA (Visual Basic for Applications) til at oprette en makro, der automatisk henter billederne baseret på linkene i kolonne E.

Her er et eksempel på VBA-kode, du kan bruge:

VBA

Sub InsertImagesFromURLs()
  Dim cell As Range
  Dim imageURL As String
  Dim imageWidth As Long
  Dim imageHeight As Long

  ' Angiv bredde og højde på billederne
  imageWidth = 100
  imageHeight = 100

  ' Loop gennem cellerne i kolonne E
  For Each cell In Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row)
    imageURL = cell.Value

    ' Indsæt billedet i kolonne F
    With ActiveSheet.Pictures.Insert(imageURL)
      .Left = cell.Offset(0, 1).Left
      .Top = cell.Offset(0, 1).Top
      .Width = imageWidth
      .Height = imageHeight
    End With
  Next cell
End Sub

Sådan bruger du koden:

    Åbn VBA-editoren: Tryk på Alt + F11 i Excel.
    Indsæt et modul: Højreklik i "Project"-vinduet og vælg "Insert" -> "Module".
    Kopier koden: Kopier VBA-koden ovenfor og indsæt den i modulet.
    Tilpas koden:
        Ændre imageWidth og imageHeight til den ønskede bredde og højde på billederne.
        Sørg for at kolonne E indeholder de korrekte billedlinks.
    Kør makroen: Tryk på F5 eller klik på "Run" -> "Run Sub/UserForm".

Makroen vil nu indsætte billederne i kolonne F ud for de tilsvarende links i kolonne E.

[code]
Sub InsertImagesFromURLs()
  Dim cell As Range
  Dim imageURL As String
  Dim imageWidth As Long
  Dim imageHeight As Long

  ' Angiv bredde og højde på billederne
  imageWidth = 100
  imageHeight = 100

  ' Loop gennem cellerne i kolonne E
  For Each cell In Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row)
    imageURL = cell.Value

    ' Indsæt billedet i kolonne F
    With ActiveSheet.Pictures.Insert(imageURL)
      .Left = cell.Offset(0, 1).Left
      .Top = cell.Offset(0, 1).Top
      .Width = imageWidth
      .Height = imageHeight
    End With
  Next cell
End Sub
[/code]

#Keld - det er intet mindre end fantastisk, tusind tak for den udførlige beskrivelse. Det var en kæmpe hjælp:-)