Вставка фигуры в эксель

Обновлено: 04.07.2024

Фигуры или объекты рисования представлены тремя различными объектами:

Объект	Описание
Коллекция форм	Используйте для создания фигур и итерации через все фигуры на заданной таблице.
Коллекция ShapeRange	Используйте для изменения нескольких фигур так же, как вы работаете с несколькими фигурами в пользовательском интерфейсе.
Объект Shape	Используйте для формата или изменения одной фигуры.

Задание свойств для фигуры

Многие параметры форматирования фигур не устанавливаются с помощью свойств, применяемых непосредственно к объекту Shape или ShapeRange. Вместо этого связанные атрибуты фигур группируются во вспомогательных объектах, таких как объект FillFormat, который содержит все свойства, связанные с заливкой фигуры, или объект LinkFormat, который содержит все свойства, являющиеся уникальными для связанных объектов OLE.

Чтобы задать свойства для фигуры, необходимо сначала вернуть объект, представляющий набор соответствующих атрибутов фигуры, а затем задать свойства этого возвращенного объекта. Например, можно использовать свойство Fill, чтобы вернуть объект FillFormat, а затем задать свойство ForeColor объекта FillFormat, чтобы настроить цвет заливки переднего плана для указанной фигуры, как показано в следующем примере.

Применение свойства или метода к нескольким фигурам одновременно

В пользовательском интерфейсе можно выполнить некоторые операции с несколькими выбранными фигурами. например, можно выбрать несколько фигур и сразу установить все их отдельные заполнения. Вы можете выполнять другие операции, выбрав только одну фигуру; например, изменить текст в форме можно только в том случае, если выбрана одна фигура.

В Visual Basic есть два способа применения свойств и методов к наборам фигур. Эти два способа позволяют выполнять все операции, которые можно осуществить с отдельной фигурой, для диапазона фигур независимо от того, можно ли выполнять эту операцию в пользовательском интерфейсе.

Если операция применяется для нескольких выделенных фигур в пользовательском интерфейсе, вы можете выполнить аналогичную операцию в Visual Basic, создав коллекцию ShapeRange, содержащую нужные фигуры, и применив соответствующие свойства и методы непосредственно к коллекции ShapeRange.

Если операция не применяется для нескольких выделенных фигур в пользовательском интерфейсе, вы по-прежнему можете выполнить операцию в Visual Basic, осуществив циклический просмотр коллекции Shapes или коллекции ShapeRange, содержащей нужные фигуры, и применив соответствующие свойства и методы к отдельным объектам Shape в коллекции.

Многие свойства и методы, применяемые к объекту Shape и коллекции ShapeRange, завершаются ошибкой, если применяются к определенным типам фигур. Например, применение свойства TextFrame к фигуре, которая не может содержать текст, приводит к ошибке.

Если вы не уверены в том, что каждая из фигур в коллекции ShapeRange может иметь определенное свойство или метод, примененные к ней, не применять свойство или метод к коллекции ShapeRange. Если вы хотите применить одно из этих свойств или методов к коллекции фигур, нужно выполнить циклический просмотр коллекции и протестировать каждую отдельную фигуру, чтобы убедиться в соответствии ее типа перед применением к ней свойства или метода.

Создание коллекции ShapeRange, которая содержит все фигуры на листе

Вы можете создать объект ShapeRange, содержащий все объекты Shape на листе, выбрав фигуры, а затем используя свойство ShapeRange, чтобы вернуть объект ShapeRange, содержащий выбранные фигуры.

В Microsoft Excel аргумент Index **** не является необязательным для свойства Range коллекции Shapes, поэтому без аргумента нельзя использовать это свойство для создания объекта ShapeRange, содержащего все фигуры в коллекции Shapes.

Применение свойства или метода к коллекции ShapeRange

Если вы можете выполнить в пользовательском интерфейсе операцию для нескольких выделенных фигур одновременно, можно выполнить аналогичное программное действие, создав коллекцию ShapeRange и затем применив к ней соответствующие свойства или методы. В следующем примере строится диапазон фигур, содержащий фигуры с именами "Большая звезда" и "Маленькая звезда", и применяется к ним myDocument заполнение градиента.

Ниже приведены общие руководства по поведению свойств и методов при их применении к коллекции ShapeRange.

Применение метода к коллекции аналогично применению метода к каждому отдельному объекту Shape в этой коллекции.

Настройка значения свойства коллекции аналогична настройке значения свойства каждой отдельной фигуры в этом диапазоне.

Свойство коллекции, возвращающее константу, возвращает значение свойства для отдельной фигуры в коллекции, если все фигуры в коллекции имеют одинаковое значение для этого свойства. Если у фигур в коллекции разные значения свойства, возвращается "смешанная" константа.

Свойство коллекции, возвращающее простой тип данных (например, Long, Single или String), возвращает значение свойства для отдельной фигуры, если все фигуры в коллекции имеют одинаковое значение для этого свойства.

Значение некоторых свойств можно вернуть или установить только в том случае, если в коллекции содержится только одна фигура. Если коллекция содержит несколько фигур, возникает ошибка времени запуска. Обычно это происходит в случае возвращения или настройки свойств, если аналогичные действия в пользовательском интерфейсе возможны только для одной фигуры (такие действия, как изменение текста в фигуре или изменение точек полилинии).

Предшествующие руководства также применяются при настройке свойств фигур, сгруппированных во вспомогательных объектах коллекции ShapeRange, например в объекте FillFormat. Если вспомогательный объект представляет операции, которые можно выполнять над несколькими выделенными объектами в пользовательском интерфейсе, вы сможете вернуть объект из коллекции ShapeRange и настроить его свойства.

Например, вы можете использовать свойство Fill, чтобы вернуть объект FillFormat, представляющий заливки всех фигур в коллекции ShapeRange. Настройка свойств этого объекта FillFormat задает такие же свойства для всех отдельных фигур в коллекции ShapeRange.

Циклический просмотр коллекций Shapes или ShapeRange

Даже если вы не можете выполнить операцию по нескольким фигурам в пользовательском интерфейсе одновременно, выбрав их и затем используя команду, вы можете выполнить эквивалентное действие программным путем циклинга через коллекцию Shape или ShapeRange, которая содержит фигуры, с которых необходимо работать, применяя соответствующие свойства и методы к отдельным объектам Shape в коллекции.

В следующем примере окрашиваются все фигуры и изменяется цвет переднего плана myDocument для каждой фигуры AutoShape.

В следующем примере создается коллекция ShapeRange, которая содержит все выбранные в настоящее время фигуры в активном окне и задает цвет переднего плана для каждой выбранной формы.

Выравнивание, распространение и группировка фигур в ShapeRange

Используйте методы выравнивания и распределения, чтобы расположить набор фигур относительно друг друга или относительно документа, который их содержит.

Используйте метод Group или метод Regroup, чтобы сформировать единую групповую фигуру из набора фигур.

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Вы можете рисовать фигуры в Office с помощью инструментов "Фигура с фигурой с бесплатными формами" и "Рисованая рисовка".

Примечание: Сведения о том, как соединить фигуры линиями, см. в этой теме.

Нарисуйте фигуру с бесплатной формой

На вкладке Вставка в группе элементов Иллюстрации нажмите кнопку Фигуры.

В области Линиисделайте одно из следующих:

Чтобы нарисовать фигуру с изогнутыми и прямыми сегментами, нажмите кнопку Форма .

Чтобы нарисовать фигуру, которая выглядит так, как будто нарисована пером от руки, или создать гладкую кривую, нажмите кнопку Рисованая кривая .

Щелкните в любом месте документа и перетащите его, чтобы нарисовать.
Чтобы нарисовать прямой сегмент с помощью инструмента "Freeform", щелкните в одном месте, переместите указатель на в другом месте, а затем щелкните еще раз; чтобы нарисовать изогнутый сегмент, не нажимая при перетаскиваниях кнопку мыши.

Чтобы завершить рисование фигуры, сделайте следующее:

Чтобы оставить фигуру незамкнутой, дважды щелкните в любой момент рисования.

Чтобы замкнуть фигуру, щелкните вблизи ее начальной точки.

Изменение узлов фигуры

Вы можете изменять точки большинства фигур. Например, вы можете изменить точки, когда нужно наклонить треугольник вправо.

Выберите фигуру, которую вы хотите изменить.

На вкладке Формат нажмите кнопку Изменить фигуру и выберите Изменить точки.

Перетащите одну из вершин фигуры. Вершина — это точка, обозначенная черной точкой, в которой заканчивается кривая, или точка, в которой два сегмента линии встречаются в фигуре freeform.

Работа с точками редактирования

Чтобы добавить точку, щелкните контур фигуры, нажав CTRL.

Чтобы удалить точку, щелкните ее, нажав CTRL.

Чтобы точка была обработана как сглаживание, при перетаскивание одного из прикрепленных к точке точки перетаскиванием нажмите shift. Когда перетаскивание прекратится, точка станет плавной. Плавная точка соединяет два сегмента одинаковой длины.

Чтобы сделать точку прямой, перетаскиванием одного из ее ручеев нажмите CTRL. Когда вы остановите перетаскивание точки, она станет прямой. Прямая точка соединяет два сегмента линии разной длины.

Чтобы сделать точку угловой, перетаскиванием одного из ее хладок нажмите ALT. Когда вы остановите перетаскивание, точка станет угловой. Угловая точка соединяет два сегмента линии, один из них отключается в другом направлении.

Чтобы отменить изменение сегментов точки и линии, нажмите клавишу ESC, прежде чем отпустить кнопку мыши.

Чтобы открыть режим редактирования точек с помощью сочетания клавиш, вы выберите фигуру и нажмите клавиши ALT+JD, E, E.

Удаление фигур

Щелкните фигуру, которую вы хотите удалить, а затем нажмите клавишу DELETE.
Если вы хотите удалить несколько фигур, выберите первую из них, нажмите и удерживайте нажатой кнопку CTRL, а затем нажмите кнопку DELETE.

Здравствуйте, дорогие друзья. Меня часто спрашивают, как можно оформить рабочий лист Excel, кроме форматирования ячеек и текста, условного форматирования, рисования диаграмм. Отвечаю: можно вставлять графические объекты Эксель там, где это имеет какой-то смысл. Если таким оформлением не злоупотреблять, оно может оживить плоскую таблицу и придать ей «интерактивности».

В этой статье я расскажу, как вставлять и форматировать фигуры, а в последующих, мы рассмотрим другие, не менее интересные возможности по работе с графикой.

В Майкрософт Эксель фигуры – это простые графические объекты, располагающиеся на листе. С их помощью можно «разбавить» свои расчеты, убрать излишнюю «сухость» и педантичность.

Чтобы вставить фигуру на лист Эксель – нажмите на ленте Вставка – Иллюстрации – Фигуры . Откроется большой перечень фигур, из которых Вам предстоит выбрать наиболее подходящую.

Определились с фигурой? Тогда кликайте на ее миниатюре, зажимайте левую кнопку мыши в нужном месте листа и растягивайте фигуру до нужных размеров и пропорций. Когда результат Вас удовлетворит, отпустите кнопку мыши. Чтобы сохранить «правильные» пропорции фигуры, при растягивании зажмите клавишу Shift .

Фигура в Эксель может служить «контейнером» для текста. Чтобы написать что-то внутри такого объекта – выделите его (как это делается – читайте далее) и пишите. Когда закончите – выделите другой объект, или ячейку. Так просто, не правда ли?

Вы можете добавить огромное количество фигур на рабочий лист, а позднее их выделять, изменять и удалять.

Чтобы выделить нужную фигуру – кликните по ней. Объект буде выделен и активирован, вокруг него появится рамка. На этой рамке – шесть маркеров. Тяните за них мышью, чтобы изменить размеры фигуры. При растягивании зажмите Shift , и программа сохранит пропорции объекта.

Когда выделен объект «Фигура», на ленте появляется дополнительная вкладка « Средства рисования – Формат », которая позволяет выполнить некоторые настройки объекта.

Как назначить стили фигуры

Любая фигура будет выглядеть гармоничнее, если назначить для нее подходящий стиль. Для этого, на ленте найдите выпадающий список Средства рисования – Формат – Стили фигур . Кликнув на кнопке «Дополнительные параметры», Вы увидите сразу весь список предустановленных стилей, вероятно, что там будет подходящий вариант.

Если же не будет, можно воспользоваться дополнительными меню в этой группе команд:

Заливка фигуры – задайте здесь цвет и способ заливки:
- Сплошным цветом;
- Вашим рисунком;
- Градиентом;
- Текстурой;

Контур фигуры:
- Цвет контура;
- Толщина линии контура;
- Штрихи (сплошной контур или прерывистый)
- Вид стрелки (для объектов из группы «Линия»)

Эффекты фигуры – различные визуальные эффекты для более «продвинутых» решений:
- Заготовка – несколько уже сгруппированных эффектов, готовые решения;
- Тень;
- Подсветка;
- Отражение;
- Сглаживание;
- Рельеф;
- Поворот объемной фигуры

Назначайте стили фигур, чтобы получить самый выразительные визуальные эффекты на своих графических объектах.

Что такое стили WordArt

Чтобы оформить текст внутри фигуры, используйте блок команд Средства рисования – Формат – WordArt . По аналогии со стилями фигур, здесь есть выпадающее меню с готовыми стилями и кнопки ручной настройки: Заливка, Контур, Эффекты. Поэкспериментируйте с форматами фигур и текста, здесь можно получить настоящее эстетическое удовольствие!

Как задать размер фигуры в Эксель

Если нужно получить объект строго заданных размеров, на ленте есть блок: Средства рисования – Формат – Размер . Задайте здесь точные размеры Вашего изображения искусства. Учтите, изменяя масштаб печати, вы измените и размеры напечатанной фигуры.

Как задать порядок отображения фигур

Когда Вы вставляете на лист несколько фигур, при наложении одна на другую, они перекрывают друг друга. При этом объекты, созданные раньше, будут в самом низу, а последние – вверху.

Для изменения порядка следования фигур, на ленте есть группа команд: Средства рисования – Формат – Упорядочение . Чтобы фигура располагалась выше – нажмите «Переместить вперед». В выпадающем меню выберите:

Переместит вперед – поднять фигуру на один уровень вверх;
На передний план – сделать фигуру самой верхней;

Аналогично можно понижать уровень фигуры.

Как выровнять фигуры в Excel

Если у Вас на листе несколько фигур, которые нужно выровнять относительно какой-то базовой линии, выделите все выравниваемы фигуры (кликайте по ним с зажатой клавишей Ctrl ). После этого выполните на ленте Средства рисования – Формат – Упорядочение – Выровнять . В выпадающем меню будет несколько вариантов выравнивания, выберите тот, который подходит Вам. Благодаря миниатюрам возле каждого пункта, проще сориентироваться, что делает каждая из команд.

В этом же меню есть две важные опции: «Распределить по вертиали» и «Распределить по горизонтали». Они выстраивают объекты так, чтобы между ними было одинаковое расстояние.

Комбинируйте команды выравнивания и распределения, тогда Ваши фигуры будут не просто набросаны на лист, а будут выстроены в строгом порядке, что важно для любого уважающего себя эксперта Эксель.

Как сгруппировать фигуры

Предположим, Вы нарисовали какой-то сложный рисунок с помощью нескольких фигур. Теперь, чтобы сделать их цельным объектом, выделите все составные части и выполните Средства рисования – Формат – Упорядочение – Группировать . Это удобно, когда нужно перемещать или форматировать подобный сложный объект.

Когда фигуры объединены, вместо команды «Группировать» будет отображаться «Разгруппировать». Логично, что она выполняет обратное действие.

Здесь уже вы сможете разгуляться. Например, можно задавать: прозрачность заливки и линий, широкие параметры эффектов, запретить вывод на печать и многое другое. Здесь я не буду много расписывать, потому что статья станет неприлично длинной. Лучше зайдите и полистайте, если понадобится очень глубокая настройка объекта.

Если в качестве фона фигуры Вы выбрали текстуру, или рисунок, на ленте появляется еще дна вкладка: Работа с рисунками – Формат . Ее содержимое может отличаться для разных версий Microsoft Excel, я приведу в пример Эксель 2013.

Помимо уже известных нам команд, здесь есть несколько неожиданных возможностей.

В блоке Изменение Вы сможете сделать за пару кликов такие операции, для которых многим понадобился бы Adobe Photoshop.

Например, удалить фон рисунка ( Формат – Изменение – Удалить фон ). Вот картинка у меня была до обработки фона:

А вот та же картинка, с которой я удалил фон всего за 2 секунды:

Здесь же есть различные варианты коррекции, баланса цвета и художественных эффектов. Всего даже не перечесть, не пожалейте полчаса времени, чтобы посмотреть, что там есть, это прямо волшебство какое-то! Вот, например, наш рисунок без фона с эффектом рассеянной подсветки:

Вот мы и подошли к концу поста, если у Вас остались вопросы – задавайте в комментариях, обязательно отвечу.

А впереди у нас еще очень много интересных тем, в частности, в следующей статье буду рассказывать об объектах SmartArt. Считаю ее обязательной к прочтению, ведь этот инструмент визуализации незаменим для отчетов, презентаций, бизнес-планов, и прочей стратегической работы. Обязательно прочтите, до новых встреч!

Добавить комментарий Отменить ответ

2 комментариев

Здравствуйте Александр. Очень нужна функция слияния фигур, такая была в 2003 экселе. Как её сделать в 2010, чтобы две частично наложенные друг на друга фигуры слились, т.е в месте их пересечения линии стираются и остается только общий контур. Не путать с группировкой, как все отвечают. Например два прямоугольника под углом 90 гр. если их слить получится угол стены на плане. Неужели в более высшей версии убрали эту функцию, это же ухудшение, а не развитие. Спасибо

Здравствуйте, Валерий. К сожалению, в Excel 2010 нет возможности объединять фигуры. Но это можно сделать в PowerPoint, а потом скопировать и вставить в Excel. Никаких сложностей в этом нет, так выкручиваются многие.
Варианты решения с использованием VBA достаточно сложные и не всегда работают

Если на прошлый День Святого Валентина вы уже подарили любимой женщине гепардовую шубу, а на позапрошлый - iPhone 7, и теряетесь в догадках - что бы придумать еще, то могу предложить вариант:

Чтобы сотворить такое, потребуется 2 минуты.

Открываем Excel, идем на вкладку Вставка - Фигуры (Insert - Shapes) и выбираем сердце:

Рисуем его на листе, внутрь вписываем трогательный текст, форматируем подобающе:

Для пущей натуральности добавляем 3D-эффект на вкладке Формат - Эффекты фигур (Format - Shapes Effects) :

И последний штрих - добавляем макрос для анимации. Жмем Alt+F11, в открывшемся окне редактора Visual Basic вставляем новый пустой модуль через меню Insert - Module и копируем туда текст вот этого макроса:

Закрываем редактор Visual Basic, жмем Alt+F8 и запускаем наш макрос. Вуаля! Любимая - в экстазе, вы - в поцелуях, праздник - удался. Если любимая(ый) не оценит, то хотя бы изучите команды VBA для работы с 3D :)

Отличная идея! Чтобы картинка встала на место после вращения при заданных параметрах вращения вокруг осей, конечное значение i нужно взять 7200? Николай, расскажите, пожалуйста, по подробнее как вы создаете анимированные gif, как-то с помощью Camtasia, но как? В смысле - как?
Запускаю Camtasia Recorder, жму кнопку "Record" записываю ролик. Потом жму "Produce" и выбираю тип для экспорта (Animated Gif) и все. В YouTube, кстати, полно обучающих роликов по этой программе - поищите.

Спасибо Николай.
У меня excel 2003. Сделал по данному примеру, но ошибка:

Трехмерка для автофигур в Excel только начиная с 2007 версии появилась.

Николай, у меня Excel 2010, а ошибка та же

"With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD".
Есть ещё варианты возможной причины?

А вы точно сердце нарисовали? Если его выделить, то в левом верхнем углу название объекта какое пишет? Может у вас английская версия и там вместо "сердце" - "heart"?

Здравствуйте, у меня прграмма виснет и вращение не происхдит или происходит частично,на полкруга, скажите в чем причина? Не видя вашего компьютера - не могу сказать. Версия Excel у вас какая?

Добавьте в код то, что выделено красным:

Sub Heart()
For i = 1 To 3000
With ActiveSheet.Shapes.Range(Array("Сердце 1";)).ThreeD
.RotationX = i
.RotationY = i / 20
.RotationZ = i / 2
End With
DoEvents
Application.Wait (Now + TimeSerial(0, 0, 0.1))
Next i
End Sub

Если еще будет тормозить, добавьте то же еще и перед Next ^)

а можно добавить еще движение фигуры и прерывание цикла?

Николай, Версия Excel 2010- из-за чего может подвисать?

Office prof plus 2010. На работе стоит лицензионный. Обновляется.
Действительно виснет. Скачал пример - так же виснет. Оборачивается секунд 8 примерно и страница "Не отвечает". Процесс Excel в это время грузит процессор на 25%. Секунд через 20 страничка развисает. Загрузка с 25% падает до 0.
Ноутбук с Win7 32bit. Core i5. Видеокарта Radeon HD 5400
Хотел завтра сотруднице на День рождения маленький сюрприз сделать. Рад бы помочь, но не могу. Пробовал на всех доступных мне компьютерах (3 шт) и двух версиях Office - работает.
У меня конфигурация, кстати, примерно та же, только GeForce вместо Radeon'а.

Добавьте в код то, что выделено красным:

Если еще будет тормозить, добавьте то же еще и перед Next ^)

Урряяя. Заработало.

Спасибо!

Да не за что. Энта штука любое торможение в Excel снимет

Классно! Я тоже попробовала Работает! Спасибо за романтику! Спасибо Николай, очень красивая вещь.
Интересно, а можно сделать такой же "трюк" с другими фигурами? (например, выбрать овал, написать в него текст и тоже заставить вращаться по определенной траектории; попробовал, но не получается почему-то, может для других фигур нужно полностью другой макрос писать). Спасибо большое, Николай, работает.
Подскажите пожалуйста, а как все-таки сделать, чтобы при открытии файла макрос запускался сразу же автоматически, без нажатия на кнопку для запуска?
Спасибо заранее.

Спасибо за весь материал, вот дочитываю до конца этот сайт
Подскажите можно ли тоже самое проделать с картинкой? что нужно написать в первой строке макроса для этого? Николай, добрый день!
Мне стала очень интересна эта статья, спасибо Вам.
Хотель бы узнать, возможно ли усовершенствовать этот код, чтобы фигура начаналась вращаться при открытии документа Excel? либо по нажатию на кнопку (скажем пуск-стоп). Заранее спасибо!
(Есть идея оформить так логотип компании в прайс листе ) Да, конечно, можно легко сделать кнопку для запуска этого (и любого другого макроса) - см. тут

Спасибо за весь материал.

я только знакомлюсь с VBA, пыталась сделать, но вышла ошибка 400. Могли бы мне помочь.
Заранее спасибо.

Не видя файла и вашего кода сказать сложно. Пришлите мне по почте - посмотрю, ага? оставьте открытым редактор VBA и посмотрите куда указывает ошибка? здорово. можно ли сделать так, чтобы анимация работала при открытии файла и не требовала дополнительных действий, таких как комб клавиш или клик по фигуре? спс.

Вставьте код в модуль "ЭтаКнига" под гриф:

Private Sub Workbook_Open()
.

добрый вечер. расскажите пожалуйста подробней, как сделать автоматический запуск вращения при открытии файла. Жмете Alt+F11, в открывшемся окне находите в левом верхнем углу вашу книгу и под ней модуль ЭтаКнига или ThisWorkbook . Открываете его двойным щелчком и вставляете туда процедуру обработчик события открытия книги, которая должна запускать наш макрос Heart вращения сердечка:

Очень рекомендую сначала почитать статью про основы использования макросов - многое станет понятно.

Добрый день. Подскажите, при открытии файла у меня открывается сразу заставка. Можно сделать так, что бы после ее закрытия автоматически запускалось 3D изображение. Добрый день. Скажите, а можно сделать так, чтобы текст изменялся динамически в объекте?

Спасибо за идею

А с Powerpoint возможно? Или зря мучаюсь?

Аххаха. Так неожиданно(неожиданно от такой серьезной программы) и прикольно! )

Добрый день.
А как можно сделать так, чтобы сразу несколько фигур двигались на одном листе ексель?

Ты че, жесткий чтоль? Одной фигуры вполне достаточно. Ну а так, мое мнение, надо писать вот тот код как-то по другому, хех, не знаю точно )

Спасибо большое, всё получилось правда мой комплюктор сразу же завис, когда моё солнышко начало вращаться и учительница начала громко кричать И кстати, можно еще добавить свечение фигуры, у солнышка это оказалось просто потрясающе красиво

Лол,неудачница.Купи нормальный комп. 11!111.
У меня все летает.
8)

Подскажите, а можно такую фишку прикрутить как-то в UserForm, которая выполняет роль заставки при открытии файла?

Читайте также: