Dzt. habe ich fallweise den Eindruck, dass die Bilder überhaupt nicht mit ihrer angestammten Zeile "mitrutschen" bzw. sehr verschoben werden, wenn die Zeilen neu formatiert werden.
Vielen Dank für jeden Tipp!
Sub test()
Dim bild As Shape
Dim zellreihe As String
For Each bild In ActiveSheet.Shapes
MsgBox bild.Height
MsgBox bild.TopLeftCell.Address
zellreihe = Mid(bild.TopLeftCell.Address, 4) 'hier wird nur der ausgelesene string ab zeichen vier in die variable zellreihe übernommen
ActiveSheet.Rows(zellreihe).Select
Selection.EntireRow.RowHeight = bild.Height
Next
End Sub