Отдаю диск с фотками заказчику.
На диске обычно ложу XLS табличку со списком файлов
где заказчик просто вводит количество заказываемых фоток в колонку с соответствущим размером
а MS EXCELL считает цену.
Хочу добавить в XLS табличку маленькое изображение
чтобы выбирать заказчику фотки было удобнее.
Как это сделать автоматически в MS EXCELL
или какая другая программа есть?
Спасибо
Как сдеалть фото прайс-лист?
Всего 10 сообщ.
|
Показаны 1 - 10
Как сдеалть фото прайс-лист?
Re[gnnbtrn]:
от:gnnbtrn
Отдаю диск с фотками заказчику.
На диске обычно ложу XLS табличку со списком файлов
где заказчик просто вводит количество заказываемых фоток в колонку с соответствущим размером
а MS EXCELL считает цену.
Хочу добавить в XLS табличку маленькое изображение
чтобы выбирать заказчику фотки было удобнее.
Как это сделать автоматически в MS EXCELL
или какая другая программа есть?
СпасибоПодробнее
А кто мешает в экселе выбрать пункт "Вставить картинку" из меню "Вставить".
(Может быть в русском экселе название этой команды отличается. У меня - английская версия, и, соостветственно: Insert -> Insert picture -> From file)
PS
Не забудьте потом изменить размер картинки. ;)
Re[dunkel]:
от:dunkel
А кто мешает в экселе выбрать пункт "Вставить картинку" из меню "Вставить".
(Может быть в русском экселе название этой команды отличается. У меня - английская версия, и, соостветственно: Insert -> Insert picture -> From file)
PS
Не забудьте потом изменить размер картинки. ;)Подробнее
Спасибо, но мешет нехватка времени,
если я делаю около сотни фотографий на выбор для клиента
то выбирать руками долго.
хотелось бы автоматизировать сей процесс!
Re[gnnbtrn]:
http://www.exceltip.com/st/Insert_pictures_using_VBA_in_Microsoft_Excel/486.html
Конечно, там вместо hardcoded имени файла надо брать имя файла из таблицы.
Найдено простым: http://www.google.com/search?hl=en&q=insert+picture+in+excel+table
А еще: если хотите всплываюшее окошко: http://www.mrexcel.com/tip089.shtml
и т.д.
Конечно, там вместо hardcoded имени файла надо брать имя файла из таблицы.
Найдено простым: http://www.google.com/search?hl=en&q=insert+picture+in+excel+table
А еще: если хотите всплываюшее окошко: http://www.mrexcel.com/tip089.shtml
и т.д.
Re[vga50]:
Sub Macro1()
sPath = "d:\foto\"
iColFileName = 4
iColFilePic = 6
iFirstRow = 3
Dim fs, f, fc
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder(sPath)
Set fc = f.Files
k = 0
For Each file In fc
Cells(iFirstRow + k, iColFileName).Value = file.Name
k = k + 1
Next
For i = iFirstRow To iFirstRow + k - 1
sFilename = Worksheets(1).Cells(i, iColFileName).Value
Cells(i, iColFilePic).Select
ActiveSheet.Pictures.Insert(sPath & sFilename).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 50
Rows(i).RowHeight = 50
Next
End Sub
Re[vga50]:
от:vga50
http://www.exceltip.com/st/Insert_pictures_using_VBA_in_Microsoft_Excel/486.html
Конечно, там вместо hardcoded имени файла надо брать имя файла из таблицы.
Найдено простым: http://www.google.com/search?hl=en&q=insert+picture+in+excel+table
А еще: если хотите всплываюшее окошко: http://www.mrexcel.com/tip089.shtml
и т.д.Подробнее
Спасибо,
но это все немножко не то
Мне надо вставить картинку в КЛЕТКУ,
а не в ДОКУМЕНТ.
Я тут поискал немножко, нужно делать кучу макосов и т.п.
Наверное, такой документ проще сделать как веб-страничку
с элементами Экселя, но я в этом ни в зуб ногой.
Может кто поможет?
Re[gnnbtrn]:
O как, а кому я макрос наваял? Хоть бы попробовали - именно что в клетки вставляет, правда небыстро. Откройте новую таблицу, вклейте макрос, введите имя фолдера с фотками и запустите макрос.
Укажите фолдер с фотками, желательно превьюхами, а то он закатывает полные картинки, макрос вставит имена всех файлов и рядом картинку высотой 50 пиксов. Высота ряда тоже ставится в 50.
Ряд и колонки для имен и картинок регулируются. Высоту сами меняйте, не нравится увеличение высоты - уберите последнюю строчку одинарной кавычкой.
Укажите фолдер с фотками, желательно превьюхами, а то он закатывает полные картинки, макрос вставит имена всех файлов и рядом картинку высотой 50 пиксов. Высота ряда тоже ставится в 50.
Ряд и колонки для имен и картинок регулируются. Высоту сами меняйте, не нравится увеличение высоты - уберите последнюю строчку одинарной кавычкой.
Re[vga50]:
от:vga50
O как, а кому я макрос наваял? Хоть бы попробовали - именно что в клетки вставляет, правда небыстро. Откройте новую таблицу, вклейте макрос, введите имя фолдера с фотками и запустите макрос.
Укажите фолдер с фотками, желательно превьюхами, а то он закатывает полные картинки, макрос вставит имена всех файлов и рядом картинку высотой 50 пиксов. Высота ряда тоже ставится в 50.
Ряд и колонки для имен и картинок регулируются. Высоту сами меняйте, не нравится увеличение высоты - уберите последнюю строчку одинарной кавычкой.Подробнее
Ой, простите!
Я не видел вашего поста с макросом, когда добавлял ответ!
Извините пожлуйста, и БОЛЬШОЕ СПАСИБО!!
Сейчас буду пробывать!!!
Re[vga50]:
от:vga50
O как, а кому я макрос наваял? Хоть бы попробовали - именно что в клетки вставляет, правда небыстро. Откройте новую таблицу, вклейте макрос, введите имя фолдера с фотками и запустите макрос.
Укажите фолдер с фотками, желательно превьюхами, а то он закатывает полные картинки, макрос вставит имена всех файлов и рядом картинку высотой 50 пиксов. Высота ряда тоже ставится в 50.
Ряд и колонки для имен и картинок регулируются. Высоту сами меняйте, не нравится увеличение высоты - уберите последнюю строчку одинарной кавычкой.Подробнее
Это гениально просто!
Все что нужно было сделать - это сделать квадратные превьюшки
и уменьшить их.
Вот что получилось:
Огромное спасибо, vga50!!!
Re[gnnbtrn]:
Удачи!
А квадратные необязательно - скрип делает одинаковую высоту и сохраняет аспект.
А квадратные необязательно - скрип делает одинаковую высоту и сохраняет аспект.
