Перенос картинок

[таиса_1]

Подскажите пожалуйста.
В столбце А с 1 по 100 ячейку находятся картинки.
Необходимо их скопировать в столбец F, но начиная с 3-ей картинки, выводя в соседнем столбце название.
Заранее спасибо

[EducatedFool]

А в чем проблема-то, если делать это вручную?
Это надо сделать один раз, или многократно повторять?
Где пример файла?


PS: Можно не копировать картинки - а вставить изображения в книгу Excel заново,
при помощи специальной надстройки:
http://excelvba.ru/programmes/PastePictures

Надстройка позволяет искать в выбранной папке изображения, основываясь на содержимом ячеек таблицы Excel, и производить вставку найденных изображений в соседние ячейки (или в примечания к этим ячейкам).

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

[таиса_1]

Вручную не пойдет.
Т.к. делать это надо периодически и количество картинок может превышать тысячу. Ну и конечно, хочу понять сам как с картинками работать.
Файлик прикрепляю, необходимо скопировать картинки в крайний столбец "Изображение 1".
Буду признателен если будет пошаговое объяснение.

Заранее благодарен.

P.S. Надстройку про которую Вы написали , я знаю, но в данном случае она не подходит.

[EducatedFool]

А в чем сложность выполнить эти действия вручную, включив запись макросов?

Sub Макрос1()
    ' © Макрорекордер Excel 2010

    Application.ScreenUpdating = False

    Columns("B:B").Copy
    Columns("N:N").PasteSpecial Paste:=xlPasteColumnWidths

    Range(Range("B4"), Range("B4").End(xlDown)).Copy
    Range("N4").Select
    ActiveSheet.Paste

    Range(Range("N4"), Range("N4").End(xlDown)).ClearContents

    Range(Range("C4"), Range("C4").End(xlDown)).Copy
    Range("O4").PasteSpecial

    Application.CutCopyMode = False
End Sub

[таиса_1]

мне нужен код для переноса их по одной картинке.
(копирование в цикле по одной).
Под названием картинки я понимаю не колонку с артикулом, а именно название. т.е. когда встаешь на картинку отображается её имя, у первой картинки имя "рисунок 3".

Спасибо

[EducatedFool]

Ну пожалуйста:

Sub test()
    Dim sh As Worksheet, sha As Shape: Set sh = ActiveSheet
    For Each sha In sh.Shapes
        sha.Copy
        sha.TopLeftCell.EntireRow.Cells(14).PasteSpecial
        sha.TopLeftCell.EntireRow.Cells(15) = sha.Name

        n = n + 1: If n > 6 Then Exit Sub
    Next sha
End Sub

Сразу нельзя было сказать, что картинки обязательно копировать по-одной?
Интересно, зачем это? Чтобы макрос подольше работал?

[таиса_1]

Огромное спасибо. Нет не для того что бы макрос работал по дольше. Мне надо копировать картинки в другой файл, и я хотел понять как это делается в цикле по одному. В случае если мне нужны будут допустим не все.