VBNet - Форум - Вывод картинок в цикле с помощью макроса в Excel

Вопрос: Вывод картинок в цикле с помощью макроса в Excel Добавлено: 19.10.09 09:31

Автор вопроса: Tasya

Здравствуйте!
Столкнулась с такой проблемой. Необходимо при формировании таблицы в Excel с помощью макроса доставать картинки в цикле. Данные о картинках на исходном листе имеют вид:
Фото
\\x1\GB\Картинки\1020796.jpg
\\x1\GB\Картинки\1093125.jpg
\\x1\GB\Картинки\1072625.jpg
\\x1\GB\Картинки\1050137.jpg
\\x1\GB\Картинки\1050134.jpg
\\x1\GB\Картинки\1050136.jpg
\\x1\GB\Картинки\1035869.jpg
\\x1\GB\Картинки\1035809.jpg
\\x1\GB\Картинки\1035890.jpg
\\x1\GB\Картинки\1093109.jpg
\\x1\GB\Картинки\1035802.jpg
\\x1\GB\Картинки\1035205.jpg
\\x1\GB\Картинки\1035092.jpg

Сам цикл предположительно я сделала следующим:

    'Определяем количество заполненных строк на исходном Лист1
    Sheets("Лист1").Select
    SheetRows = ActiveWorkbook.ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
    ColRows = Application.WorksheetFunction.CountA(Range(Cells(1, 3), Cells(SheetRows, 3)))

    ItRows = 6 'последняя заполненная строка в итоговом листе

    'Цикл по заполнению строк в листе с итогами
    For i = 2 To ColRows
    'читаем путь на файл с картинкой
    Sheets("Лист1").Select
    FotoTov = Range("T" & i).Value

    'считаем на какую строку выводить картинку
    Sheets("Price").Select
    Strok = ItRows + 1
    ItRows = Strok

    'выводим картинку в ячейку
     Range("C" & Strok).Select
     ActiveSheet.Pictures.Insert(FotoTov).Select
     With Selection
            .ShapeRange.LockAspectRatio = msoTrue
            .ShapeRange.Height = 65.25
            .ShapeRange.Rotation = 0#
             .Placement = xlMove
            .PrintObject = True
     End With
     Next i

При выполнении макроса при выводе уже второй картинки выходит ошибка "невозможно получить свойство Insert класса Pictures"

В чем моя ошибка при выводе картинок в цикле и как сделать правильный макрос?
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Tasya Вопросов: 1 Ответов: 1	Профиль \| \| #1	Добавлено: 19.10.09 12:15
	тема закрыта. найдена ошибка. ошибка в отсутствие картинки Ответить

Номер ответа: 2 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #2	Добавлено: 19.10.09 21:10
	Ответить

Страница: 1 |