- •Об авторе
- •Введение
- •Глава 1. Excel 2010: история программы
- •Краткая история электронных таблиц
- •Все начиналось с VisiCalc
- •Quattro Pro
- •Microsoft Excel
- •Почему программа Excel так удобна разработчикам
- •Место Excel в стратегии Microsoft
- •Объектное мышление
- •Рабочие книги
- •Рабочие листы
- •Листы диаграмм
- •Листы макросов XLM
- •Пользовательский интерфейс Excel
- •Ввод данных
- •Формулы, функции и имена
- •Выделение объектов
- •Форматирование
- •Глава 3. Особенности формул
- •О формулах
- •Вычисление формул
- •Ссылки на ячейки и диапазоны
- •Зачем нужны неотносительные ссылки
- •Ссылки на другие листы или рабочие книги
- •Применение имен к существующим ссылкам
- •Пересечение имен
- •Присвоение имен столбцам и строкам
- •Определение области действия
- •Присвоение имен константам
- •Присвоение имен объектам
- •Ошибки в формулах Excel
- •Формулы массивов
- •Пример формулы массива
- •Создание календаря с помощью формулы массива
- •Достоинства и недостатки формул массивов
- •Примеры формул суммирования
- •Другие инструменты подсчета
- •Работа со значениями даты и времени
- •Использование дат до 1900 года
- •Создание мегаформул
- •Глава 4. Файлы Excel
- •Запуск Excel
- •Типы файлов
- •Форматы файлов Excel
- •Форматы текстовых файлов
- •Форматы файлов баз данных
- •Другие форматы файлов
- •Создание шаблонов
- •Создание шаблонов рабочих книг
- •Файл XLB
- •Файлы надстроек
- •Настройки Excel
- •Глава 5. Приложения электронных таблиц
- •О приложениях электронных таблиц
- •Разработчик и конечный пользователь
- •Кто такие разработчики и чем они занимаются
- •Классификация пользователей электронных таблиц
- •Для кого предназначены приложения электронных таблиц
- •Решение проблем с помощью Excel
- •Основные типы электронных таблиц
- •Однопользовательские приложения
- •Приложения-утилиты
- •Надстройки с функциями рабочих листов
- •Одноблоковые бюджеты
- •Электронные таблицы для хранения данных и доступа к ним
- •Клиентские приложения баз данных
- •Глава 6. Принципы разработки приложений электронных таблиц
- •Этапы разработки приложения
- •Определение потребностей пользователя
- •Проектирование приложения с учетом потребностей пользователя
- •Определение удобного пользовательского интерфейса
- •Работа с конечным пользователем
- •Тестирование приложения
- •Создание привлекательных и интуитивно понятных приложений
- •Документирование усилий, затраченных на разработку
- •Распространение приложения среди пользователей
- •Обновление приложения
- •Другие вопросы разработки приложений
- •Версия Excel, установленная у пользователя
- •Трудности, касающиеся поддержки языка
- •Видеорежимы
- •Глава 7. Введение в VBA
- •Основы языка BASIC
- •Обзор VBA
- •Объектные модели
- •Сравнение VBA и XLM
- •Основы VBA
- •Работа с Project Explorer
- •Добавление нового модуля VBA
- •Удаление модуля VBA
- •Экспорт и импорт объектов
- •Работа с окнами кода
- •Сворачивание и восстановление окон
- •Сохранение кода VBA
- •Ввод кода VBA
- •Настройка среды VBE
- •Что записывается
- •Параметры записи
- •Улучшение записанных макросов
- •Об объектах и коллекциях
- •Иерархия объектов
- •О коллекциях
- •Ссылки на объекты
- •Свойства и методы
- •Свойства объекта
- •Методы объекта
- •Свойства объекта Comment
- •Методы объекта Comment
- •Коллекция Comments
- •Работа с объектами Range
- •Свойство Range
- •Свойство Offset
- •Что следует знать об объектах
- •Важные концепции для запоминания
- •Узнайте больше об объектах и свойствах
- •Обзор элементов и конструкций VBA
- •Комментарии
- •Переменные, типы данных и константы
- •Определение типов данных
- •Объявление переменных
- •Работа с константами
- •Операторы присваивания
- •Массивы
- •Объявление массивов
- •Объявление многомерных массивов
- •Объявление динамических массивов
- •Объектные переменные
- •Пользовательские типы данных
- •Встроенные функции
- •Управление объектами и коллекциями
- •Конструкция With - End With
- •Конструкция For Each - Next
- •Контроль за выполнением кода
- •Конструкция Select Case
- •Циклическая обработка инструкций
- •Глава 9. Работа с процедурами VBA
- •О процедурах
- •Объявление процедуры Sub
- •Область действия процедуры
- •Выполнение процедуры
- •Выполнение процедуры с помощью ленты
- •Выполнение процедуры из пользовательского контекстного меню
- •Выполнение процедуры из другой процедуры
- •Выполнение процедуры по щелчку на объекте
- •Выполнение процедуры по событию
- •Выполнение процедуры в окне отладки
- •Передача аргументов процедурам
- •Обработка ошибок
- •Перехват ошибок
- •Реальный пример
- •Цель
- •Требования к проекту
- •Исходные данные
- •Подход
- •Что необходимо знать
- •Написание кода
- •Создание процедуры сортировки
- •Устранение проблем
- •Доступность
- •Глава 10. Создание функций
- •Процедуры и функции
- •Назначение пользовательских функций
- •Простой пример функции
- •Анализ пользовательской функции
- •Синтаксис функции
- •Область действия функции
- •Аргументы функций
- •Примеры функций
- •Функции без аргументов
- •Функция с одним аргументом
- •Функция с двумя аргументами
- •Функция с аргументом в виде массива
- •Функция с необязательными аргументами
- •Функция VBA, возвращающая массив
- •Функция с неопределенным количеством аргументов
- •Расширенные функции для работы с датами
- •Отладка функций
- •Определение категории функции
- •Использование надстроек для хранения пользовательских функций
- •Использование функций Windows API
- •Примеры функций Windows API
- •Определение папки Windows
- •Определение состояния клавиши <Shift>
- •Дополнительная информация о функциях Windows API
- •Учимся на примерах
- •Работа с диапазонами
- •Копирование диапазона
- •Перемещение диапазона
- •Подсчет выделенных ячеек
- •Определение типа выделенного диапазона
- •Удаление всех пустых строк
- •Дублирование строк
- •Чтение и запись диапазонов
- •Перенесение одномерных массивов
- •Перенесение диапазона в массив типа Variant
- •Выбор ячеек по значению
- •Копирование несмежных диапазонов
- •Управление рабочими книгами и листами
- •Сохранение всех рабочих книг
- •Синхронизация рабочих книг
- •Методы программирования на VBA
- •Переключение значения булева свойства
- •Определение количества страниц для печати
- •Отображение списка шрифтов
- •Обработка последовательности файлов
- •Полезные функции для программ VBA
- •Функция FileExists
- •Функция FileNameOnly
- •Функция PathExists
- •Функция RangeNameExists
- •Функция SheetExists
- •Получение значения из закрытой рабочей книги
- •Полезные функции в формулах Excel
- •Получение информации о форматировании ячейки
- •Беседа с рабочим листом
- •Отображение даты сохранения файла или вывода файла на печать
- •Основы иерархии объектов
- •Подсчет количества ячеек между двумя значениями
- •Соответствует ли строка шаблону
- •Возвращение из строки n-го элемента
- •Возвращение максимального значения всех рабочих листов
- •Возвращение массива случайных целых чисел без повторов
- •Расположение значений диапазона в произвольном порядке
- •Определение текущего видеорежима
- •Чтение и запись параметров системного реестра
- •Глава 12. Создание собственных диалоговых окон
- •Перед созданием диалоговых окон...
- •Использование окон ввода данных
- •Функция VBA MsgBox
- •Отображение формы ввода данных с помощью VBA
- •CommandButton
- •Frame
- •Image
- •Label
- •ListBox
- •MultiPage
- •OptionButton
- •RefEdit
- •ScrollBar
- •SpinButton
- •TabStrip
- •TextBox
- •ToggleButton
- •Настройка элементов управления пользовательского диалогового окна
- •Общие свойства
- •Отображение пользовательского диалогового окна
- •Отображение немодальной формы
- •Отображение пользовательского диалогового окна на основе значения переменной
- •Загрузка пользовательского диалогового окна
- •О процедурах обработки событий
- •Закрытие пользовательского диалогового окна
- •Пример создания пользовательского диалогового окна
- •Создание пользовательской формы
- •Создание кода для отображения диалогового окна
- •Проверка правильности введенных данных
- •События объекта UserForm
- •События объекта UserForm
- •События элемента управления SpinButton
- •Ссылка на элементы управления пользовательского диалогового окна
- •Настройка панели инструментов Toolbox
- •Добавление новых страниц
- •Настройка или комбинирование элементов управления
- •Вопросы для самоконтроля
- •Создание заставки
- •Отключение кнопки закрытия пользовательского диалогового окна
- •Изменение размера диалогового окна
- •Добавление опций в элемент управления ListBox
- •Определение выделенного элемента списка
- •Определение нескольких выделенных элементов списка
- •Работа с многоколоночными элементами управления ListBox
- •Использование элемента управления ListBox для выделения строк на листе
- •Использование элемента управления ListBox для активизации листа
- •Использование внешних элементов управления
- •Глава 15. Дополнительные приемы работы с пользовательскими формами
- •Отображение индикатора текущего состояния
- •Создание мастеров
- •Программирование зависимостей
- •Выполнение задачи
- •Имитация работы функции MsgBox
- •Несколько кнопок с одной процедурой обработки событий
- •Глава 16. Разработка утилит Excel с помощью VBA
- •Об утилитах Excel
- •Создание утилит с помощью VBA
- •Признаки хорошей утилиты
- •Утилита Text Tools
- •Рабочая книга утилиты
- •Как работает утилита
- •Оценка проекта
- •Принципы работы утилиты
- •Дополнительно об утилитах Excel
- •Глава 17. Работа со сводными таблицами
- •Вводный пример
- •Просмотр созданного кода
- •Код сводной таблицы
- •Создание обратной сводной таблицы
- •Кратко о диаграммах
- •Создание внедренной диаграммы
- •Размещение диаграммы на листе диаграммы
- •Активизация диаграммы с помощью кода VBA
- •Деактивизация диаграммы
- •Определение активности диаграммы
- •Изменение размеров и выравнивание диаграмм
- •Экспорт диаграммы
- •События диаграмм
- •Поддержка событий для встроенных диаграмм
- •Тонкости создания диаграмм
- •Печать встроенных диаграмм на всю страницу
- •Отображение/сокрытие рядов данных
- •Создание фиксированной диаграммы
- •Анимирование диаграмм
- •Прокрутка диаграммы
- •Глава 19. Концепция событий Excel
- •Типы событий Excel
- •Понимание последовательности событий
- •Отключение событий
- •Ввод кода процедуры обработки события
- •События уровня объекта Workbook
- •Событие Open
- •Событие Activate
- •Событие SheetActivate
- •Событие NewSheet
- •Событие Deactivate
- •Событие BeforePrint
- •Событие Change
- •Включение событий уровня объекта Application
- •Определение факта открытия рабочей книги
- •События объекта UserForm
- •Запуск другого приложения из Excel
- •Использование функции Shell
- •Использование API-Функции ShellExecute
- •Инструкция AppActivate
- •Работа с внешними объектами
- •Раннее и позднее связывание
- •Простой пример позднего связывания
- •Использование метода SendKeys
- •Глава 21. Создание и использование надстроек
- •Определение надстройки
- •Основные причины создания надстроек
- •Создание надстройки
- •Пример надстройки
- •Установка надстройки
- •Тестирование надстройки
- •Распространение надстройки
- •Изменение надстройки
- •Членство в коллекциях
- •Получение доступа к VBA-процедурам надстройки
- •События объекта AddIn
- •Оптимизация производительности надстроек
- •Проблемы, связанные с использованием надстроек
- •Правильная установка
- •Ссылки на другие файлы
- •Указание правильной версии Excel
- •Глава 22. Работа с лентой
- •Начальные сведения о ленте
- •Активизация вкладки
- •Настройка ленты
- •Простой пример кода RibbonX
- •Некоторые замечания о настройке ленты
- •Код панели инструментов
- •Глава 23. Работа с контекстными меню
- •Обзор объекта CommandBar
- •Типы объектов CommandBar
- •Отображение контекстных меню
- •Настройка контекстных меню с помощью VBA
- •Сброс контекстных меню
- •Отключение контекстного меню
- •Отключение элементов контекстного меню
- •Добавление подменю в контекстное меню
- •Автоматическое добавление и удаление меню
- •Создание нового контекстного меню
- •Справка в приложениях Excel
- •Справочная система, созданная с помощью компонентов Excel
- •Использование примечаний к ячейке для предоставления справки
- •Использование средства HTML Help
- •Связывание файлов справочного руководства с приложением
- •Глава 25. Разработка пользовательских приложений
- •Что такое приложение, ориентированное на пользователя
- •Как это работает
- •Концепции разработки приложений
- •Концепция совместимости
- •Проблемы совместимости
- •Избегайте использования новых возможностей
- •Использование 64-разрядной версии Excel
- •Создание интернациональных приложений
- •Многоязычные приложения
- •Идентификация настроек системы
- •Параметры настройки даты и времени
- •Часто выполняемые операции с файлами
- •Управление файлами с помощью функций VBA
- •Использование объекта FileSystemObject
- •Открытие текстового файла
- •Чтение текстового файла
- •Запись в текстовый файл
- •Получение номера файла
- •Определение или установка позиции в файле
- •Примеры управления текстовыми файлами
- •Импортирование данных из текстового файла
- •Экспортирование диапазона в текстовый файл
- •Импортирование текстового файла в диапазон
- •Протоколирование операций в Excel
- •Фильтрация текстового файла
- •Экспортирование диапазона в формат HTML
- •Введение в IDE
- •Объектная модель IDE
- •Использование VBA для создания кода VBA
- •Простой пример
- •Глава 29. Модули классов
- •Определение модуля класса
- •Пример создания модуля класса
- •Дополнительные сведения о модулях классов
- •События модуля класса
- •Модуль класса CSVFileClass
- •Глава 30. Работа с цветом
- •Определение цвета
- •Цветовая модель RGB
- •Темы документа
- •Изменение цветов диаграммы
- •Списки часто задаваемых вопросов
- •Общие вопросы об Excel
- •Редактор Visual Basic
- •Процедуры
- •Функции
- •Объекты, свойства, методы и события
- •Пользовательские диалоговые окна
- •Надстройки
- •Пользовательский интерфейс
- •Справочная система Excel
- •Техническая поддержка со стороны компании Microsoft
- •Группы новостей
- •Веб-сайты
- •Сайт Йона Пелтиера
- •Системные требования
- •Использование компакт-диска
- •Файлы и программы, находящиеся на компакт-диске
- •Решение проблем
- •Предметный указатель
858 |
Часть VII. Дополнительные темы |
•В диапазонах ячеек, находящихся сбоку от полос прокрутки, можно изменить ин тенсивность окрашивания (в зависимости от положения ползунка полосы про крутки). Это значение соответствует числовой величине цветового компонента.
•В диапазоне ячеек, находящемся ниже полос прокрутки, указывается комбиниро ванный цвет, определяемый с помощью указанных пользователем значений RGB.
•В ячейке отображается десятичное значение цвета.
•В следующем диапазоне ячеек можно увидеть, как будет выглядеть цвет после его преобразования в оттенки серого.
•В диапазоне ячеек также отображаются соответствующие значения цвета HSL.
Темы документа
Еще в Excel 2007 появилось такое замечательное свойство, как тема документа. Те перь достаточно единственного щелчка мышью для изменения внешнего облика всего документа. Тема документа включает следующие три компонента: цвета, шрифты и эффекты (для графических объектов). Благодаря темам документа пользователи могут создавать презентабельные, оформленные в едином стиле, документы. Обратите вни мание на то, что тема применяется ко всей рабочей книге, а не только к активному ра бочему листу.
Концепция тем ы докум ента
В комплект поставки Microsoft Office 2010 входит 40 тем документа. Также можно загрузить или создать дополнительные темы. На ленте находится несколько коллекций стилей. (В качестве примера может служить коллекция Стили диаграмм (Chart Styles).) Набор стилей, входящих в состав каждой коллекции, зависит от темы, вы бранной для данного документа. И если для документа выбирается другая тема, изме няется его внешний вид в результате применения цветов, шрифтов и эффектов, входя щих в состав новой темы.
К о м п а к т-д и ск
Если вы не хотите самостоятельно просматривать темы документа, на при лагаемом компакт-диске откройте рабочую книгу document theme demo. x ls x . Здесь вы найдете диапазон ячеек, отображающий цвет каждой темы, две фигуры, текст (с применением обычного шрифта и шрифта заголовка), а также диаграмму. Выберите команду Разметка страницы^Темы^Темы (Page LayoutMThemes^Themes Gallery) для просмотра изменений рабочего листа после применения каждой выбранной темы.
Можно также смешивать и сопоставлять элементы темы. Например, можно восполь зоваться цветами из одной темы, шрифтами из другой темы и эффектами из третьей те мы. Также можно создать новый набор цветов или шрифтов. Пользовательские темы мо гут быть сохранены и применены в дальнейшем к другим рабочим книгам.
Таблица 3 0 .2 . Названия цветов тем ы |
|
|
|
|
|
|
|
|||
Строка/ |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
столбец |
|
|
|
|
|
|
|
|
|
|
1 |
Фон 1 |
Текст 1 |
Фон 2 |
Текст 2 |
Акцент 1 |
Акцент 2 |
Акцент 3 |
Акцент 4 |
Акцент 5 |
Акцент 6 |
2 |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
|
темный |
светлый |
темный |
светлый |
светлый |
светлый |
светлый |
светлый |
светлый |
светлый |
|
оттенок 5% |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок 80% |
|
|
50% |
10% |
80% |
80% |
80% |
80% |
80% |
80% |
* |
3 |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
|
темный |
светлый |
темный |
светлый |
светлый |
светлый |
светлый |
светлый |
светлый |
светлый |
|
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок 60% |
|
15% |
35% |
25% |
80% |
60% |
60% |
60% |
60% |
60% |
|
4 |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
|
темный |
светлый |
темный |
светлый |
светлый |
светлый |
светлый |
светлый |
светлый |
светлый |
|
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок 40% |
|
25% |
25% |
50% |
80% |
40% |
40% |
40% |
40% |
40% |
|
5 |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
|
темный |
светлый |
темный |
темный |
темный |
темный |
темный |
темный |
темный |
темный |
|
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок 25% |
|
35% |
15% |
75% |
25% |
25% |
25% |
25% |
25% |
25% |
|
6 |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
Более |
|
темный |
светлый |
темный |
темный |
темный |
темный |
темный |
темный |
темный |
темный |
|
оттенок |
оттенок 5% оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок |
оттенок 50% |
|
|
50% |
|
90% |
50% |
50% |
50% |
50% |
50% |
50% |
|
Глава 30. Работа с цветом |
861 |
Обратите внимание: названия цветов остаются одинаковыми, даже если выбирается другая тема документа. Десять цветов темы документа отображаются в верхней строке (четыре цвета “текст/фон” и шесть цветов “акцент”). Для каждого из этих цветов приме няется пять вариаций более светлых и более темных оттенков.
П р и м еч а н и е
Если выбрать команду Разметка страницы^Темы^Цвета^Создать новые цве та темы (Page Layout^Themes^Colors^Create New Theme Colors), на экране появится два дополнительных цвета темы: Гиперссылка (Hyperlink) и Про смотренная гиперссылка (Followed Hyperlink). Эти цвета используются в случае создания гиперссылки и не отображаются в окне выбора цвета темы.
После прочтения этого раздела возникает желание создать макрос, который позволя ет изменить цвет заливки и шрифта для диапазона ячеек. Ниже приводится подобный макрос, который был записан после выбора диапазона ячеек. В качестве цвета заливки был выбран “Акцент 2, более темный оттенок 25%”, а для цвета шрифта — “Текст 2, бо лее светлый оттенок 80%”.
Sub |
C ha ng eC o lors() |
|
|
|
W ith |
S e le c tio n . In t e r io r |
|
|
.P a tte rn = x lS o lid |
|
|
|
. P a tte rn C o lo rln d e x = |
x lA u to m a tic |
|
|
.Them eColor = xlThem eC olorAccent2 |
||
|
. TintA ndShade = -0.249977111117893 |
||
|
. P a tte rnT intA nd S h ad e |
= 0 |
|
|
End |
W ith |
|
|
W ith |
S e le c tio n . Font |
|
|
.Them eColor = xlT h e m e C o lo rL ig h t2 |
||
|
.TintA ndS hade = 0.799981688894314 |
||
|
End |
W ith |
|
End |
Sub |
|
|
Я решил отказаться от применения трех свойств, имеющих отношение к узорам
( P a tte rn , P a tte r n C o lo r ln d e x и P a tte rn T in tA n d S h a d e ). Они имеют отношение к “старомодным” узорам, применяемым для оформления ячеек (эти узоры по-прежнему поддерживаются). Данные узоры можно выбрать на вкладке Заливка (Fill) в диалоговом окне Формат ячеек (Format Cells). Указанные свойства поддерживают существующие узоры, которые могут входить в состав диапазона ячеек.
Записанный макрос (после удаления связанных с узорами свойств) приведен ниже.
Sub C hangeC olors()
W ith |
S e le c tio n . I n t e r io r |
1 |
(Акцент 2, более темный оттенок 25%) |
.Them eColor = xlThem eC olorA ccent2
.TintAndShade = -0.249977111117893
End |
W ith |
W ith |
S e le c tio n .F o n t |
'(Текст 2, более светлый оттенок 80%)
.Them eColor = |
xlT h e m e C o lo rL ig h t2 |
.TintAndShade |
= 0.799981688894314 |
End W ith |
v |
End Sub |
|
Таким образом, для определения цвета используются свойства T h e m e C o lo r и T in Значение свойства формируется согласно простому правилу:
Глава 30. Работа с цветом |
863 |
Отображение всех цветов тем ы
Янаписал макрос, который в выбранном диапазоне ячеек отображает все 60 вариаций цветов темы.
Sub ShowThemeColors() |
|
||||||
Dim |
r |
As |
Long, |
с |
As |
Long |
|
For |
r |
= |
1 To |
6 |
|
|
|
|
For с |
= 1 To 10 |
c ) . I n t e r io r |
||||
|
|
W ith C e lls ( r , |
|||||
|
|
.Them eColor |
= |
с |
|||
|
|
S e le c t |
Case |
с |
|
||
|
|
|
Case |
1 |
' |
Текст/фон 1 |
|
S e le c t |
|
Case |
г |
|
0 |
||
Case |
|
1 |
. TintAndShade |
= |
|||
Case |
|
2 |
.TintAndShade |
= -0 .0 5 |
|||
Case |
|
3 |
. TintAndShade |
= -0 .1 5 |
|||
Case |
|
4 |
.TintAndShade |
= -0 .2 5 |
|||
Case |
|
5 |
. TintAndShade |
= |
-0 .3 5 |
||
|
Case |
|
6 |
. TintAndShade |
= |
-0 .5 |
|
End |
S e le c t |
|
|
|
|||
Case 2 |
' |
Текст/фон 2 |
|
|
|||
S e le c t |
|
Case |
r |
= |
0 |
||
|
Case |
|
1: |
.TintAndShade |
|||
|
Case |
|
2: |
. TintAndShade = 0.5 |
|||
|
Case |
|
3: |
.TintAndShade |
= |
0.3 5 |
|
|
Case |
|
4: |
.TintAndShade |
= |
0.25 |
|
|
Case |
|
5: |
.TintAndShade |
= |
0.15 |
|
|
Case 6 : .TintAndShade = 0.05 |
||||||
End |
S e le c t |
|
|
|
|||
Case 3 |
' |
Текст/фон 3 |
|
|
|||
S e le c t |
|
Case |
r |
|
|
||
|
Case |
|
1: |
.TintAndShade |
= |
0 |
|
|
Case |
|
2: |
.TintAndShade = -0 .1 |
|||
|
Case |
|
3: |
.TintAndShade |
= -0 .2 5 |
||
|
Case |
|
4: |
.TintAndShade = -0 .5 |
|||
|
Case |
|
5: |
.TintAndShade |
= -0 .7 5 |
||
|
Case 6 : .TintAndShade = -0 .9 |
||||||
End |
S e le c t |
|
|
|
|||
Case E lse |
|
1 |
Текст/ф он 4 и Акцент 1-6 |
||||
S e le c t |
|
Case |
r |
|
|
||
|
Case |
|
1 |
. TintAndShade |
= |
0 |
|
|
Case |
|
2 |
.TintAndShade |
= |
0.8 |
|
|
Case |
|
3 |
.TintAndShade |
= |
0.6 |
|
|
Case |
|
4 |
.TintAndShade |
= |
0.4 |
|
|
Case |
|
5 |
.TintAndShade |
= |
-0 .2 5 |
|
End |
Case |
|
6 |
. TintAndShade |
= |
-0 .5 |
|
S e le c t |
|
|
|
||||
End S e le c t |
|
|
|
|
|
||
C e lls ( r , |
c) |
= |
.TintAndShade |
|
|
||
End W ith |
|
|
|
|
|
|
|
N ext с
N ext r
End Sub
На рис. 30.8 показан результат выполнения процедуры ShowThemeColors (этот ре зультат лучше выглядит в цвете). Если выбрать другую тему документа, цвета будут из менены в соответствии с новой темой.
Глава 30. Работа с цветом |
|
|
|
867 |
||
Dim |
Shp |
As Shape |
|
|
|
|
Set |
Shp |
= A c tiv e S h e e t. Shapes( "Стрелка |
вправо 1") |
|||
S h p .F ill.F o re C o lo r.R G B |
= |
RGB(255/ |
0, |
0) |
||
Shp. L in e . F o re C o lo r. RGB |
= |
RGB(255, |
0, |
0) |
||
Ниже приводится альтернативный код, который позволяет достичь такого же эффекта путем использования объектных переменных.
Dim |
Shp As |
Shape |
|
|
|
Dim |
F illC F |
As |
C olorF orm at |
|
|
Dim |
LineCF |
As |
C olorF orm at |
|
|
Set |
Shp = A c tiv e S h e e t. Shapes( "Стрелка вправо 1") |
||||
Set |
F illC F |
= S h p .F ill.F o re C o lo r |
|||
Set |
LineCF |
= |
Shp. L in e . F ore C o lor |
||
FillC F .R G B |
= |
RGB(255, |
0, |
0) |
|
LineCF.RGB |
= |
RGB(255, |
0, |
0) |
|
Имейте в виду, что указанный выше код не приводит к созданию цветов, совмести мых с темами документа. Для указания цветов, совместимых с темами, воспользуйтесь свойством Schem eC olor и (необязательно) свойством TintA ndShade.
Ф игуры и цвета темы
Для применения цветов темы к фигуре воспользуйтесь свойствами O bjectThem e- C olor и TintA ndShade объекта фигуры F o re c o lo r. Следующий код устанавливает цвет фигуры “Акцент 4, более светлый оттенок 40%.”
W ith A c tiv e S h e e t. Shapes( 1 ) . F i l l . F o re C o lo r
. O bjectThem eC olor = msoThemeColorAccent4
. TintA ndShade = 0.4 End W ith
В результате применения этого кода получается цвет, который отличается от цвета, генерируемого с помощью кнопки Заливка цветом (Fill Color), находящейся на ленте.
К сожалению, реализация тем документов в программах Microsoft далека от совер шенства. Например, цвета темы диапазона не соответствуют цветам темы фигуры. На рис. 30.11 показан диапазон B2:D8, для которого выбран цвет заливки “Акцент 2, более светлый оттенок 80%.” На рабочем листе также находится треугольная фигура, которая залита цветом, заданным по умолчанию.
Поставленная задача звучит достаточно просто. В частности, цвет заливки фигуры сле дует сделать равным цвету заливки диапазона. Для этого воспользуемся следующим кодом.
Sub |
C olo rS ha pe () |
|
W ith A c tiv e S h e e t. Shapes( 1 ) . F i l l . F o re C o lo r |
|
.O bjectThem eC olor = Range( "B 2 :D8 " ) . I n t e r i o r . ThemeColor |
|
. TintAndShade = Range( "B 2 :D8 " ) . I n t e r i o r . TintAndShade |
|
End W ith |
End |
Sub |
На рис. 30.12 показан результат выполнения процедуры C olorS hape. Хотя цвет фигуры подобен цвету диапазона, на самом деле они не являются идентичными. Если же применить цвет темы “Акцент 2, более светлый оттенок 80%” к фигуре путем щелчка на кнопке ленты Цвет заливки (Fill Color), цвет фигуры будет совпадать с цветом диапазона.
