Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос прерывает работу при заливке рисунков - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос прерывает работу при заливке рисунков (Формулы/Formulas)
Макрос прерывает работу при заливке рисунков
ВасилисаЛукьянчикова Дата: Понедельник, 23.04.2018, 13:45 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени суток.
Имеется макрос добавки фотографии в фигуру - по указанному в таблице адресу jpg-файла.
Однако в некоторых ячейках таблицы - адрес файла для заливки - не указан.

Подскажите, как провести подобных "пустых ячеек" - применить заливку указанным в строке таблицы цветом ?
В настоящий момент - макрос по порядку сперва заливает в первые фигуры картинки, а вот если в следующей ячейке - адреса нет - то он выводит одну фигуру с заданным цветом и обрывает свою работу, выдавая ошибку.
К сообщению приложен файл: 6060762.xls (54.0 Kb)
 
Ответить
СообщениеДоброго времени суток.
Имеется макрос добавки фотографии в фигуру - по указанному в таблице адресу jpg-файла.
Однако в некоторых ячейках таблицы - адрес файла для заливки - не указан.

Подскажите, как провести подобных "пустых ячеек" - применить заливку указанным в строке таблицы цветом ?
В настоящий момент - макрос по порядку сперва заливает в первые фигуры картинки, а вот если в следующей ячейке - адреса нет - то он выводит одну фигуру с заданным цветом и обрывает свою работу, выдавая ошибку.
Автор - ВасилисаЛукьянчикова
Дата добавления - 23.04.2018 в 13:45
SLAVICK Дата: Понедельник, 23.04.2018, 16:36 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
Замените строку:
[vba]
Код
.UserPicture Cells(8, i + 1) 
[/vba]
на
[vba]
Код
If Len(Cells(8, i + 1)) Then .UserPicture Cells(8, i + 1)    
[/vba]

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеЗамените строку:
[vba]
Код
.UserPicture Cells(8, i + 1) 
[/vba]
на
[vba]
Код
If Len(Cells(8, i + 1)) Then .UserPicture Cells(8, i + 1)    
[/vba]
Автор - SLAVICK
Дата добавления - 23.04.2018 в 16:36
ВасилисаЛукьянчикова Дата: Понедельник, 23.04.2018, 16:41 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
SLAVICK, благодарю
 
Ответить
СообщениеSLAVICK, благодарю
Автор - ВасилисаЛукьянчикова
Дата добавления - 23.04.2018 в 16:41
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Макрос прерывает работу при заливке рисунков (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!