Bildeinfügen aus dem www - stadtbewegung.at

Direkt zum Seiteninhalt
Bild einfügen aus dem Netz
______________________________

Wie Konvertiere Ich Bild-URLs In Tatsächliche Bilder In Excel?

______________________________





Wenn Sie eine Liste mit Bild-URL-Adressen in Spalte A haben und jetzt die entsprechenden Bilder von den URLs herunterladen und in der angrenzenden Spalte B anzeigen möchten, wie im linken Screenshot gezeigt. Wie können Sie in Excel die tatsächlichen Bilder schnell und einfach aus den Bild-URLs extrahieren?
Mit dem folgenden VBA-Code können Sie die tatsächlichen Bilder schnell aus den Bild-URL-Adressen extrahieren. Gehen Sie dazu folgendermaßen vor:

1 . Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2 . Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Konvertieren Sie die Bild-URLs in tatsächliche Bilder:
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:A15")
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
Es geht auch mit dem:

Kutools für Excel - dieses ist nicht kostenlos
So kannst du l mehrere Objekte (Grafiken, Textfelder, Diagramme, ...) markieren.

Vielen ist vielleicht die Methode sämtliche Objekte mittels CTRL und Mausklick zu selektieren bekannt. In Excel gibt es jedoch eine Auswahlmöglichkeit, womit dies deutlich vereinfachter geht:

In der Menüleiste unter dem Punkt "Start" → "Suchen und Auswählen" kannst Du "Objekte markieren" aktivieren. Dein Cursor hat sich nun in den herkömmlichen "Mauspfeil" verwandelt, mit dem Du ganze Bereiche und somit die darinliegenden Objekte allesamt markieren kannst! Um zum alten Cursor zurückzugelangen, um Zellen etc. zu markieren oder zu bearbeiten, kannst Du entweder "Esc" auf der Tastatur drücken oder erneut via "Start" → "Suchen und Auswählen" die Option "Objekte markieren" deaktivieren.
Zurück zum Seiteninhalt