Привязать более 250 изображений к одному изображению на ячейку

Question

Я работаю над таблицей на работе, а коллега наклеивает более 250 изображений на столбе. Изображения не привязаны к ячейкам, которым они соответствуют, поэтому любая манипуляция с ячейками приводит к тому, что изображения находятся не в том месте.

Я ищу способ вставить все изображения в ячейки и сделать их частью ячейки, как если бы я вставлял список текста.

В идеальном мире я хотел бы надеяться, что это будет работать так:

1. Поместите все изображения в массиве
2. , используя номер ключа изображения в массиве, назначить его на соответствующее число клеток
3. разбирает размеры соответствующей ячейки, и применить размеры к изображению

Это то, что я пробовал:

Sub movePics() 
    Dim picCounter As Long 

    picCounter = 0 
    For Each s In ActiveSheet.Shapes 
    picCounter = picCounter + 1 
    With s 
     .Left = 100 
     .Top = ActiveSheet.Rows(picCounter).Top 
     .Placement = xlMoveAndSize 
    End With 
    Next 
End Sub 

Answer 1

Этот быстрый цикл перемещается по всем формам и устанавливает их в «Перемещение и размер с ячейками».

Sub Testing() 

    For x = 1 To ActiveSheet.Shapes.Count 
     ActiveSheet.Shapes(x).Placement = xlMoveAndSize 
    Next x 

End Sub