![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
![]()
Есть папка "фото", в ней .JPG файлы. Название всех .JPG файлов начинается с буквы "P". Допустим, вот так: P000020, P600255, P45874852 и т.д. По условиям эти .JPG файлы надо показать XLS файле в конктетном ячейке. Допустим, если выбран табельный номер 600255, тогда P600255 должен показатся на листе Excel. Помогите пожалуйста, как можно делать такое.
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
![]()
Надо вставлять: на лист , на конкретное ячейке (допустим B10) и менять когда табельный номер меняется (табельный номер находится в B2)
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 524
|
![]()
Укажите свою папку с фото и разместите строго в модуле нужного рабочего листа :
Код:
Последний раз редактировалось pashulka; 31.01.2015 в 19:03. |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
![]()
pashulka, большое спасибо, то что надо. Только, фотография на одну ячейку не помещается (очень маленький и ничего не видно). Я хотел обяденить несколько ячеек, но все равно не получается
|
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 524
|
![]()
Aqil_f, Если замените .Width и .Height на -1 , то начиная с Excel2000 получите картинку в "натуральную величину"
P.S. Если же использование об'единённых ячеек необходимо, то оставьте первоначальный вариант, но с Me.Range("B10").MergeArea Последний раз редактировалось pashulka; 31.01.2015 в 22:42. |
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
![]()
pashulka,
Мне больше подходит использование об'единённых ячеек , потому что натуральная величина картинки очень большой. Но я только что заметил что, если табельный номер не правильно написано, или В2 пусто, тогда картинка не удаляется. По этому я после Else добавил Me.Pictures.Delete. Это правильно? |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 524
|
![]()
Можно просто удалять картинки(у) перед проверкой на существование файла ( If Dir(iFileName$) ... )
|
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
![]()
pashulka, большое спасибо Вам. Все правильно работает.
Но, если можно, еще 1 вопрос: Табельный номер в ячейке если от руки писать, тогда все правильно работает. Но, в ячейке В2 у меня ссылка есть: B2=List4!C2. Картинка обнавляется только тогда, когда если закрыть файл, и открыть еще раз. Или нажать ентер на самом ссылке. Как можно делать эта обнавления автоматически? |
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 524
|
![]()
1) Либо сохраните событие в модуле листа с именем List4, разумеется, не забыв заменить Лист1 на кодовое(программное) имя листа, где будет выводиться картинка.
Код:
|
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 12.05.2009
Сообщений: 273
|
![]()
Я хотел использувать 1-й вариант, но что-то у меня не получается. Посмотрите пример, пожалуйста. (картинка будет выводиться в List4.)
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск изображений по номерам | vadimka77 | HTML и CSS | 5 | 08.10.2014 12:16 |
Объединение яйчеек по номерам | Pimalux | Microsoft Office Excel | 7 | 15.07.2009 13:06 |
Программа рассылки сообщений по номерам ICQ | Romanus | Софт | 7 | 09.06.2007 11:52 |