Excel - позиционировать вставленный jpg файлы на VBA

[Читатель]

Никто не подскажет, как отпозиционировать
вставленные в файл Excel файлы по координатам.
По горизонтали - фиксированное значение,
по вертикали - с фиксированным отступом -
список: jpeg1

jpeg2

jpeg3

.......

[Naeel Maqsudov]

Вот макрос, который выравнивает все рисунки на листе по сетке.
Для вашего случая количество колонок (ColumnCount) нужно указать равным 1.

Код: Выделить всё

Sub Line_up_images()
Const ColumnCount = 3, LeftMargin = 5, TopMargin = 10, HInterval = 80, VInterval = 90
Dim shp As Shape, i As Integer
  i = 0: j = 0
  For Each shp In ActiveSheet.Shapes
    shp.Left = LeftMargin + i * HInterval
    shp.Top = TopMargin + j * VInterval
    i = (i + 1) Mod ColumnCount
    If i = 0 Then j = j + 1
  Next
End Sub