|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.10.2010, 15:41 | #11 |
Пользователь
Регистрация: 13.10.2010
Сообщений: 11
|
Есть немного видоизмененная задача, поиск имен для картинок необходимо осуществить в первых шести колонках, и вставить картинку в 9-ю колонку.
Если картинок на одну ячейку приходится больше одной, то вставлять любую. |
02.11.2010, 15:53 | #12 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 10
|
Это просто грустно...сперва так понравился макрос, который вставляет картинки по именам, а потом после его работы узнаю что вместо картинки с именем 1 (как в списке названий картинок) он тупо выбирает из папки картинку с именем 169. почему не находит точного соответствия??
|
02.11.2010, 16:44 | #13 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Найдите в макросе строку FilePath = Dir(ПутьКПапкеСКартинками & cell & "*") Именно эта строка отвечает за поиск файла по маске имени. Замените её на это FilePath = Dir(ПутьКПапкеСКартинками & cell & ".jpg") тогда для ячейки 123 будет искаться только файл 123.jpg Если замените её на это FilePath = Dir(ПутьКПапкеСКартинками & cell & ".*") тогда для ячейки 123 будет искаться файл с названием 123 (файл 12345 не будет найден) с любым расширением - 123.jpg, 123.bmp и т.д. |
|
02.11.2010, 18:33 | #14 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 10
|
Ура, спасибо! Отлично работает
|
03.11.2010, 12:09 | #15 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 10
|
подскажите, а возможно ли сделать так чтобы когда ставится фильтр на названия фотографий, можно было вставлять фото только по этому отфильтрованному списку.
у меня фотоотчет по сети супермаркетов по Украине. Когда выбираю магазины какого то региона чтобы только их анализировать, к сожалению показывает фото и всех скрытых регионов |
03.11.2010, 12:37 | #16 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
вообще всё возможно - если при формулировке задачи не экономить слова... в вашем случае - с фильтрами - я ничем вам помочь не могу. поскольку в исходной задаче про фильтр не было ни слова, а что вы там фильтруете в своём файле, я представления не имею. |
|
03.11.2010, 19:01 | #17 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 10
|
Оказалось вставлять фото только по видимым ячейкам (после фильтрации) очень легко. Кому пригодится это делается так
Dim Cell As Range, ra As Range: Application.ScreenUpdating = False Dim c As Long c = 10 'Номер столбца в котором записаны имена фотографий Set ra = Range(Cells(1, c), Cells(Rows.Count, c).End(xlUp)).SpecialCells(xlCellTy peVisible) |
03.11.2010, 19:47 | #18 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 10
|
не пойму из-за чего глюк происходит: когда вставляю макросом более 100 фотографий (всего у меня по списку 420 супермаркетов, без фильтра), то где-то на 25 фотка начинает смещение от границ ячейки, помаленьку фотки ползут вверх. и в конце они уже где-то на половину только в ячейке, а наполовину вылезшие. И это выглядит отвратительно...
|
03.11.2010, 20:55 | #19 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
Цитата:
Если бы вы использовали Excel2003 - такой проблемы бы не было. Как избавиться от проблемы в Excel2007 - не знаю (там положение картинки зависит от того, отображаются ли границы ячеек) Делал так - в некоторых случаях помогает: Код:
|
|
04.11.2010, 16:12 | #20 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 10
|
как можно сделать чтобы выделять диапазон в столбце и на эту высоту вставлялось фото?
Последний раз редактировалось AleksandraRobota; 04.11.2010 в 16:17. Причина: не умею цитировать |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вставить картинку в TEdit | Dark | Компоненты Delphi | 6 | 30.05.2009 20:20 |
Как вставить картинку в richedit. | blackstersl | Компоненты Delphi | 4 | 15.03.2009 13:50 |
Excel: Вставить картинку или Word документ | Mort222 | Microsoft Office Excel | 6 | 19.02.2009 12:47 |
Вставить картинку в шаблон документа | natasha | Microsoft Office Word | 1 | 17.08.2008 09:21 |
Как вставить картинку в текстовый редактор? | Юля | Помощь студентам | 1 | 30.05.2007 09:42 |