Видео о создании в Excel оригинального поздравления с восьмым марта или любым другим праздником, например с днём рождения для женщин.
Сайт разработчиков программы DefSmeta: https://defsmeta.com/
Страница аренды программы: https://defsmeta.com/programs/remoteapp_welcome.php

Ссылки на готовые видео поздравления.
Поздравление дочери: https://youtu.be/CxQByGEXUek
Поздравление коллеги: https://youtu.be/2MazO4t1qAk
Поздравление любимой: https://youtu.be/fwrD4-dN8Gc
Поздравление соседки: https://youtu.be/rAf7eG8bbcM

Текст процедур (макросов).
Пришлось добавить в текстовой файл, Вы можете скачать его по ссылке:
https://www.defsmeta.com/programs/data/congratulation_code.rar

Файл Excel с кодом процедур:
https://www.defsmeta.com/programs/data/congratulation.rar

Несколько картинок цветов:
https://www.defsmeta.com/programs/data/FL.rar

Ссылка на сайт с текстами поздравлений:
http://pozdravok.ru/pozdravleniya/prazdniki/8-marta/korotkie/

Здравствуйте, друзья.
С вами Андрей. У нас необычный урок. Сегодня мы создадим анимированное поздравление для женщин. У меня это поздравление выглядит примерно вот так.
Что бы сделать такое анимированное поздравление, нам понадобится картинка с красивым цветком, желательно в формате *.png (пи эн жи), с прозрачным фоном, текст поздравления и немного времени. В описании я оставлю ссылку на несколько картинок и текстов для разных категорий женщин.
Реализация может быть двух видов, даже трёх.
Вариант первый. Вы имеете доступ к компьютеру своей дамы, например на работе или дома.
В первую очередь нужно создать макрос, который будет рисовать цветок и текст поздравления. Хорошая новость в том, что я его уже написал, и Вам нужно только изменить в нём некоторые моменты, так сказать обработать напильником. Сейчас расскажу, какие параметры можно менять в этом макросе и зачем.
Если Вы не знаете что такое макрос, то довожу до Вашего сведения - макрос, это такая программа, которую создаёт Excel, записывая Вашу работу в приложении. Потом эту программу можно вызвать и с её помощью очень быстро повторить свои действия. У нас макрос уже записан, поэтому давайте выяснять, где он живёт и как выглядит.
Перейдём во вкладку разработчик и нажмём на кнопку Visual Basic.
Открылся редактор, который служит для сохранения и изменения макросов. Обычно их записывают в личную книгу макросов, тогда они доступны на любом листе, но можно сохранить и в отдельной книге, тогда они будут доступны, если этот файл открыт.
Наша процедура живёт в личной книге макросов в девятом модуле и называется joy. Текст макроса находится между ключевыми словами Sub и End Sub.
До этого оператора, который отвечает за обработку ошибок (On Error Resume Next), идёт объявление переменных. Переменные, это ячейки памяти, в которые можно записывать и потом использовать разные данные. Она объявляется оператором Dim, после которого пишется её имя и тип данных.
Например, в строковую переменную S, я записал путь к файлу картинки. Вы можете заменить этот путь на свой. По поводу переменных, если Вы не знаете, какие данные будете использовать, или не знаете, как объявить переменную с Вашим типом данных, то применяйте переменную Variant, она сама разберётся, чего Вы в неё хотите запихнуть. И ещё, все переменные, которые объявлены в этой процедуре, будут хранить данные, только пока выполняется процедура, потом они исчезнут.
В переменную SP мы записываем текст поздравления. Фразы должны быть в кавычках, соединяются между собой вот таким оператором…, а эта крякозябля служит для переноса текста на другую строку. Соответственно, данный текст Вы можете изменить на любой другой.
Если поставить одиночную кавычку, то за ней можно писать комментарий.
В данной процедуре комментарии зелёного цвета и написаны заглавными буквами.
Следующий кусок кода добавляет на лист картинку, устанавливает её местоположение и размер.
Это тонкий момент, так как у меня разрешение экрана 1366 на 768 пикселей, скорее всего у Вас и у Вашей дамы разрешение больше, поэтому поиграйте с этим куском, и если нужно, то измените некоторые циферки. По комментариям должно быть понятно, что нужно менять.
Картинка загружена и установлена, теперь её нужно скрыть. Так как она имеет нормальный вид, а у нас задача сначала показать её с эффектами, а потом постепенно сделать нормальной.
Картинку скрыли, теперь нужно применить к ней эффекты.
Давайте загрузим цветок вручную и из интерфейса программы посмотрим, что я применил в коде.
Активируем Excel, выделяем первую ячейку, открываем вкладку «Вставка» и нажимаем кнопку «Рисунок». Находим свою папку и нужный файл, нажимаем «Вставить». Нажимаем на нём правой кнопкой мыши и в контекстном меню выбираем «Формат рисунка».
В открывшейся форме нас интересует вкладка «Свечение и сглаживание».
Спонсором данного видео является программа DefSmeta. Она предназначена для определения стоимости ремонта, отделки и малоэтажного строительства.


#поздравление #поздравления #8марта #defsmeta