Aus Internetlink soll Bild in der Spalte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andre,
da lässt sich mit Formeln meines Wissens nichts machen.
Für sowas braucht man dann VBA als Lösung. Ich habe dir eine User Defined Function (UDF) erstellt mit der du Bilder einfügen kannst.
Ich habe sie um den Code schlank zu halten auf deine SItuation (Tabelle "main" und SPalte D) nagepasst. Das heißt sie funktioniert auch nur da. Im Zweifelsfall kann man die Formel aber auch generalisieren für andere Tabellen oder Spalten.
Die Formel ist wie Folgt aufgebaut:
=BildEinfuegen(url As String, Zeilennummer As Integer)
Also erst die URL und dann die Zeilennummer. DIe lasse ich mir an deiner Tabelle fortlaufend berechnen durch die ProduktID + 3
Sobald die Bilder drin sind und sich nicht bei jedem speichern aktualisieren sollen (braucht Zeit braucht Rechenkapazität) würde ich die Formel löschen, das Bild bleibt erhalten.
https://www.herber.de/bbs/user/152782.xlsm
Bei Fragen einfach nochmal gerne Fragen
Gruß Felix

Hallo Andre, sehr gerne.
Die Positionierung erfolgt in folgendem Bereich:


Set xRg = Sheets("main").Cells(CellRow, 4)                -Hier wird die Zelle festgelegt
With Pshp
.LockAspectRatio = msoTrue                    -Hier wird das Größenverhältnis des Originalbilds festgesetzt
.Height = xRg.Height * 0.9                    -Hier wird die Höhe des Bilds auf 0,9 der Höhe der Zelle festgelegt
.Top = xRg.Top + (xRg.Height - .Height) / 2   -Hier wird die y-Achse des Bildes zentriert in der Zelle festgelegt
.Left = xRg.Left + (xRg.Width - .Width) / 2   -Hier wird die x-Achse des Bildes zentriert in der Zelle festgelegt
End With

Somit bleibt das Bild immer zentriert in der Zelle und du kannst die Spalte einfach verkleinern, beim Neuberechnen wird das Bild immer zentriert dargestellt.
Generalisiert wäre der Code wie folgt: (-ungetestet-)


Function BildEinfuegen(url As String, Optional rng As Range)
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
If rng Is Nothing Then
Set xRg = Application.Caller
Else
Set xRg = rng
End If
For Each shp In xRg.Worksheet.Shapes
If shp.TopLeftCell.Row = CellRow And shp.TopLeftCell.Column = 4 And shp.Type = 11 Then shp.Delete
Next shp
xRg.Worksheet.Pictures.Insert(url).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
If rng Is Nothing Then
Set xRg = Application.Caller
Else
Set xRg = rng
End If
With Pshp
.LockAspectRatio = msoTrue
.Height = xRg.Height * 0.9
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Application.ScreenUpdating = True
End Function

Da gilt die Funktion dann für die Zelle in der sie steht, außer man gibt eine andere Zelle an.
=BildEinfuegen(url;[Zelle])
VG Felix

Beliebteste Forumthreads (12 Monate)

Aus Internetlink soll Bild in der Spalte

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread