Выберите столбец, который вы сортируете, и столбец, в котором находится изображение (предполагается, что изображение мало по сравнению с ячейкой, то есть оно находится в ячейке). Убедитесь, что свойство позиционирования объекта задано как «перемещение, но не размер с ячейками». Теперь, если вы выполните сортировку, изображения будут перемещаться с отсортированным списком.
Примечание. Вы должны включать столбец с изображением в вашем диапазоне, когда сортируете, и изображение должно помещаться внутри ячейки.
Следующий VBA сниппет будет убедиться, что все фотографии в таблице есть их «перемещение и размер» набор свойств:
Sub moveAndSize()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Type = msoPicture Or s.Type = msoLinkedPicture Or s.Type = msoPlaceholder Then
s.Placement = xlMove
End If
Next
End Sub
Если вы хотите, чтобы убедиться, что картина продолжает соответствовать после того, как вы двигаетесь, вы может использовать xlMoveAndSize
вместо xlMove
.
Чистый гений @ Джон! Не только лучший результат любого ответа, но и самый простой! – ChrisB