Как автоматически вставлять рисунки?

[andrey-37s]

мне нужно чтоб рисунок скопировался в нужные ячейки n-ое количество раз сколько мне нужно. как можно это сделать?

[VictorM]

Можно так попробовать

Sub tt()
    n = [d8]
    ActiveSheet.Shapes("U2").Copy
    For i = 1 To n
        Cells(i, 10 + i).Select
        ActiveSheet.Paste
    Next i
End Sub

Расположение по ячейкам можно подобрать здесь Cells(i, 10 + i)

[andrey-37s]

Спасибо большое!!