rækker med et billede i hver række - sortering og filtrering

Jeg glemte at nævne, at jeg ønsker at sortere efter kolonne B, C mv

Prøv at vise den kode, som du omtaler.

Den kommer her:

Sub FlytBillede()
Dim shpA As Shape
Dim c As Range
Dim rngX As Range

Set rngX = Range("A2:A4")
For Each shpA In ActiveSheet.Shapes
  For Each c In rngX
    If c.Value = shpA.Name Then
    shpA.Top = c.Top
    shpA.Left = c.Left
    End If
  Next
Next
End Sub
W
Jeg har googlet mig frem til, at funktionen "flyt med celle" under billedformateringer skulle virke KUN hvis billedet ikke rammer cellekanten.

Rem Har ændret lidt i koden.
Rem Billederne er anbragt i kolonne A. Cellerne heri er ikke navngivet.
Rem anvender Excel 2016 - Nu kan du prøve

Sub FlytBillede()
Dim shpA As Shape

For Each shpA In ActiveSheet.Shapes
    shpA.Select
    shpA.Top = shpA.TopLeftCell.Top + 1
    shpA.Left = shpA.TopLeftCell.Left + 1
Next
End Sub

Undskyld, jeg har ikke fået svaret og lukket spørgsmålet.
Hvordan er det, jeg giver point

VH Sober

Det er ok - der gives ikke point mere (nye tider :-) - så du skal blot anføre at du har fået en løsning eller noget lignende.