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

Вход

Регистрация

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

 

= Мир MS Excel/Заливка рисунков в прямоугольники - Мир MS Excel

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

Excel 2016
Доброго времени суток.
У меня есть макрос простановки прямоугольников по листу.

Подскажите, как провести заливку рисунков в эти прямоугольники, адреса которых располагаются в строке ?
К сообщению приложен файл: 1018037.xls (53.5 Kb)
 
Ответить
СообщениеДоброго времени суток.
У меня есть макрос простановки прямоугольников по листу.

Подскажите, как провести заливку рисунков в эти прямоугольники, адреса которых располагаются в строке ?
Автор - ВасилисаЛукьянчикова
Дата добавления - 19.04.2018 в 04:35
sboy Дата: Четверг, 19.04.2018, 09:06 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
замените заливку цветом на заливку рисунком
[vba]
Код
'.ForeColor.RGB = Cells(7, i + 1).Interior.Color ' вместо цвета
.UserPicture Cells(8, i + 1) ' заливка картинкой
[/vba]

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
замените заливку цветом на заливку рисунком
[vba]
Код
'.ForeColor.RGB = Cells(7, i + 1).Interior.Color ' вместо цвета
.UserPicture Cells(8, i + 1) ' заливка картинкой
[/vba]
Автор - sboy
Дата добавления - 19.04.2018 в 09:06
ВасилисаЛукьянчикова Дата: Четверг, 19.04.2018, 09:19 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
sboy, не работает ваш совет - в моем коде.

Выдает ошибку Run-time error '-2147467259 (80004005)' Method 'UsedPicture' of object 'FillFormat' failed

У меня же там - есть пустые ячейки, где адрес картинки не введен.
(И вот как раз для таких прямоугольников, где нет адреса - и нужна заливка цветом.)
 
Ответить
Сообщениеsboy, не работает ваш совет - в моем коде.

Выдает ошибку Run-time error '-2147467259 (80004005)' Method 'UsedPicture' of object 'FillFormat' failed

У меня же там - есть пустые ячейки, где адрес картинки не введен.
(И вот как раз для таких прямоугольников, где нет адреса - и нужна заливка цветом.)
Автор - ВасилисаЛукьянчикова
Дата добавления - 19.04.2018 в 09:19
sboy Дата: Четверг, 19.04.2018, 10:06 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Цитата ВасилисаЛукьянчикова, 19.04.2018 в 09:19, в сообщении № 3 ()
У меня же там - есть пустые ячейки

а кто об этом знал кроме Вас? :)
сделайте проверку, если есть строка с адресом, то картинка, иначе цвет

Яндекс: 410016850021169
 
Ответить
Сообщение
Цитата ВасилисаЛукьянчикова, 19.04.2018 в 09:19, в сообщении № 3 ()
У меня же там - есть пустые ячейки

а кто об этом знал кроме Вас? :)
сделайте проверку, если есть строка с адресом, то картинка, иначе цвет
Автор - sboy
Дата добавления - 19.04.2018 в 10:06
ВасилисаЛукьянчикова Дата: Четверг, 19.04.2018, 11:08 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 64
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Цитата sboy, 19.04.2018 в 10:06, в сообщении № 4 ()
а кто об этом знал кроме Вас?

В файле примере - одна из ячеек - была без адреса.
 
Ответить
Сообщение
Цитата sboy, 19.04.2018 в 10:06, в сообщении № 4 ()
а кто об этом знал кроме Вас?

В файле примере - одна из ячеек - была без адреса.
Автор - ВасилисаЛукьянчикова
Дата добавления - 19.04.2018 в 11:08
sboy Дата: Четверг, 19.04.2018, 11:32 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Прошу извинить за невнимательность

Яндекс: 410016850021169
 
Ответить
СообщениеПрошу извинить за невнимательность
Автор - sboy
Дата добавления - 19.04.2018 в 11:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заливка рисунков в прямоугольники (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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