Hallo,
ich bin gerade auf das Forum gestoßen, da ich bei der Anpassung eines Codes Hilfe benötige.
Leider habe ich keinerlei Kenntnisse über VBA und deren Programmierung.
Der folgende Code bewirkt, dass eine bestimmte URL aufgerufen wird, das Bild dann kopiert wird und in Excel in eine Zelle kopiert wird. Das funktioniert soweit sehr gut. Allerdings ist das Bild nicht fest mit der Zelle verankert, was dazu folgt, dass beim Filtern der Excelliste die Bilder nicht "ausgeblendet" werden.

Kann man den Code so anpassen, dass die Bilder beim Einfügen fest mit der jeweiligen Zelle verankert werden?

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("W4:W20")
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 * 4.5 / 5
If .Height > xRg.Height Then .Height = xRg.Height * 4.5 / 5
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("W4").Select
Next
Application.ScreenUpdating = True
End Sub

Vielen Dank schon mal.

LG Janine