Excel VBA: копирование цвета из ячейки. Interior.Color в MSForms.Label.BackColor
У меня есть пользовательская форма в Excel 2003, которая содержит некоторые элементы управления MSForms.Label. Я хочу установить свойство .BackColor для каждого из этих элементов управления таким образом, чтобы они соответствовали цвету отдельных ячеек на листе.
Для этого я читаю свойство .Interior.Color этих ячеек, преобразовывая его в hex и используя это значение, чтобы установить свойство .BackColor объектов Label.
Моя проблема в том, что значение, исходящее из .Interior.Color, почти всегда неверно при первом чтении. Я проверил это, выполнив следующую команду в непосредственном окне редактора VBA:
- Excel / VBA - ошибка времени выполнения 91 возникает только после ввода и выхода из режима разработки
- Сохранение рабочих листов с формами в формате pdf
- VBA - определение пользовательской формы для последующего вызова
- Excel VBA Billing Userform вопросы ввода данных
- Сгенерированное кодом командная кнопка в vba Userform_initialize () не реагирует
Print Hex([sourceCell].Interior.Color) Эта команда почти всегда дает неправильное значение в первый раз, но дает правильное значение со второго раза. Если я изменил цвет заливки [sourceCell] и снова запустил команду, он будет делать то же самое, т. Е. Ошибочное значение в первый раз, правое значение второй раз вперед.
Ячейки, о которых идет речь, заполнены цветами из линий диаграммы / заполняют выбор цвета (т.е. две нижние строки, которые вы видите в диалоговом окне «Форматирование ячеек» в Excel на вкладке «Шаблоны»). Эти цвета были изменены мной, чтобы создать пользовательский набор цветов, и, как это ни странно, «неправильные» значения, похоже, соответствуют значениям по умолчанию Excel для настраиваемого диапазона цветовых решений (например, по умолчанию диаграмма линии / цвета заливки, которые вы получаете при запуске новая книга).
Кто-нибудь еще испытывал это поведение / имел обходное решение? Когда я пытаюсь прочитать значения дважды во время выполнения, он не работает, то есть он не переключается на правильное значение. Код должен быть остановлен и пользовательская форма перезагружена, чтобы заставить «правильные» значения выйти.
- Приложение Lauch внутри пользовательской формы
- excel инициализирует «защищать / снимать защиту листа» с помощью пользовательской формы
- Excel VBA Userform - Как увеличить / уменьшить дату на один месяц
- Назначьте функцию VBA с нажатием кнопки динамически созданной кнопки в Excel Userform
- Функция не записывает в требуемую ячейку следующий расчет массива; Пользовательские формы excel vba
- Повторить макрос после ввода UserForm
- Форма Показать метод в случае workbook_open в ThisWorkbook ломает фокус
- Userform.Show на кнопке формы не распознает пользовательскую форму, получив ошибку 424
Kludge / обходной путь через Application.OnTime.
Если я запустил код подготовки пользовательской формы, чтобы установить обратные цвета объектов ярлыков с скрытой пользовательской формой, затем установите основной код для запуска из немедленного события OnTime (чтобы повторно запустить подготовительный код как часть OnTime), тогда я могу заставите Excel предоставить мне правильные значения «второй раз» при показе формы.
Это работает для меня:
MyForm.MyControl.BackColor = Range(myrange).Interior.Color
.Interior.Color возвращает вариант, содержащий RGB диапазона выборки.
.Interior.ColorIndex всегда возвращает -4140 или что-то странное, возможно потому, что .ColorIndex свойственна ограничениям цвета Excel2003.