3D в Excel

63696 15.02.2013 Скачать пример

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

3d.gif

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

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

3d2.png

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

3d3.png

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

3d4.png

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

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

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

 


Сергей Терехов
15.02.2013 05:35:35
Описание улыбнуло! Спасибо
Ссылка
Антон Попов
15.02.2013 09:51:19
Спасибо, пригодится:)
Ссылка
Евгений Жуковский
15.02.2013 14:17:56
Отличная идея! Чтобы картинка встала на место после вращения при заданных параметрах вращения вокруг осей, конечное значение i нужно взять 7200?
Ссылка
Николай Павлов
17.02.2013 08:45:05
Да, 360 градусов * 20 оборотов = 7200
Родитель Ссылка
Игорь Суриков
16.02.2013 07:27:03
Николай, расскажите, пожалуйста, по подробнее как вы создаете анимированные gif, как-то с помощью Camtasia, но как?
Ссылка
Николай Павлов
17.02.2013 08:44:10
В смысле - как?
Запускаю Camtasia Recorder, жму кнопку "Record" записываю ролик. Потом жму "Produce" и выбираю тип для экспорта (Animated Gif) и все. В YouTube, кстати, полно обучающих роликов по этой программе - поищите.
Родитель Ссылка
Игорь Суриков
20.02.2013 17:55:09
Спасибо, разобрался.
Родитель Ссылка
Бонифаций
16.02.2013 14:07:17
Спасибо Николай.
У меня excel 2003. Сделал по данному примеру, но ошибка:

 With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD
Ссылка
Николай Павлов
17.02.2013 08:42:08
Трехмерка для автофигур в Excel только начиная с 2007 версии появилась.
Родитель Ссылка
Олег Баланюк
07.04.2013 18:59:26
Николай, у меня Excel 2010, а ошибка та же

"With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD".
Есть ещё варианты возможной причины?
Родитель Ссылка
Николай Павлов
11.04.2013 07:35:21
А вы точно сердце нарисовали? Если его выделить, то в левом верхнем углу название объекта какое пишет? Может у вас английская версия и там вместо "сердце" - "heart"?
Родитель Ссылка
Vladimir Boiko
22.02.2013 20:40:37
а как увеличить скорость вращения сердца??????
Ссылка
Николай Павлов
23.02.2013 10:10:23
В 8-й строке макроса задается задержка в 0.1 сек между кадрами. Уменьшите ее или вообще удалите эту строку - получите максимальную скорость (которая, очевидно, зависит от мощности вашего компьютера).
Родитель Ссылка
Ирина
23.02.2013 07:04:44
Здравствуйте,:( у меня прграмма виснет и вращение не происхдит или происходит частично,на полкруга, скажите в чем причина?
Ссылка
Николай Павлов
23.02.2013 10:12:18
Не видя вашего компьютера - не могу сказать. Версия Excel у вас какая?
Родитель Ссылка
Ирина Олиференко
23.05.2013 00:13:24
Добавьте в код  то, что выделено красным:

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 ^)
Родитель Ссылка
Филипп
23.02.2013 17:49:48
а можно добавить еще  движение фигуры и прерывание цикла?
Ссылка
Николай Павлов
09.03.2013 08:27:02
Движение будет задаваться командами типа:
ActiveSheet.Shapes.Range(Array("Сердце 1")).IncrementLeft 100
т.е. сдвиг влево на 100 пикселов и т.д.
Родитель Ссылка
Ирина
24.02.2013 12:34:38
Николай, Версия Excel 2010- из-за чего может подвисать?
Ссылка
Николай Павлов
14.03.2013 22:21:38
Ирина, вопрос из серии "У меня болит живот. Почему?" Вариантов ответов - масса. Не видя вашего файла для начала - ничего сказать не могу. Может у вас старый компьютер, может древняя видеокарта, может драйверов для нее нет или стоят они криво, может Office пиратский за 100 р. криво взломанный... слишком много неизвестных :)
Родитель Ссылка
Алексей А
06.05.2013 09:46:15
Office prof plus 2010. На работе стоит лицензионный. Обновляется.
Действительно виснет. Скачал пример - так же виснет. Оборачивается секунд 8 примерно и страница "Не отвечает". Процесс Excel в это время грузит процессор на 25%. Секунд через 20 страничка развисает. Загрузка с 25% падает до 0.
Ноутбук с Win7 32bit. Core i5. Видеокарта Radeon HD 5400
Хотел завтра сотруднице на День рождения маленький сюрприз сделать. :-(
Родитель Ссылка
Николай Павлов
07.05.2013 23:16:25
Рад бы помочь, но не могу. Пробовал на всех доступных мне компьютерах (3 шт) и двух версиях Office - работает.
У меня конфигурация, кстати, примерно та же, только GeForce вместо Radeon'а.
Родитель Ссылка
Ирина Олиференко
23.05.2013 00:17:19
Добавьте в код  то, что выделено красным:

Sub Heart()
For i = 1 To 3000
With ActiveSheet.Shapes.Range(Array("Сердце 1"[IMG]).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 ^)
Родитель Ссылка
Алексей А
23.05.2013 09:21:03
Урряяя!!!! Заработало!!!! :D

Спасибо! :)
Родитель Ссылка
Ирина Олиференко
24.05.2013 17:39:39
Да не за что. Энта штука любое торможение в Excel снимет :D
Родитель Ссылка
Марина Бездомникова
25.04.2013 12:33:45
Классно! Я тоже попробовала :) Работает! Спасибо за романтику!
Ссылка
Александр
29.04.2013 10:56:25
Спасибо Николай, очень красивая вещь.
Интересно, а можно сделать такой же "трюк" с другими фигурами? (например, выбрать овал, написать в него текст и тоже заставить вращаться по определенной траектории; попробовал, но не получается почему-то, может для других фигур нужно полностью другой макрос писать).
Ссылка
Николай Павлов
01.05.2013 00:52:53
Нужно в макросе поправить имя фигуры (вместо "Сердце 1" будет, например, "Овал 1") - его можно увидеть в левом верхнем углу окна в строке формул, если предварительно выделить фигуру на листе мышью.
Родитель Ссылка
Александр
24.05.2013 17:40:22
Спасибо большое, Николай, работает.
Подскажите пожалуйста, а как все-таки сделать, чтобы при открытии файла макрос запускался сразу же автоматически, без нажатия на кнопку для запуска?
Спасибо заранее.
Родитель Ссылка
Николай Павлов
08.12.2014 17:20:39
Ответил - см. комментарий ниже.
Родитель Ссылка
Александр Скакальский
29.04.2013 17:59:58
Спасибо за весь материал, вот дочитываю до конца этот сайт :)
Подскажите можно ли тоже самое проделать с картинкой? что нужно написать в первой строке макроса для этого?
Ссылка
Николай Павлов
01.05.2013 00:53:28
См. предыдущий комментарий.
Родитель Ссылка
Виктор Смиров
07.05.2013 15:53:37
Николай, добрый день!
Мне стала очень интересна эта статья, спасибо Вам.
Хотель бы узнать, возможно ли усовершенствовать этот код, чтобы фигура начаналась вращаться при открытии документа Excel? либо по нажатию на кнопку (скажем пуск-стоп). Заранее спасибо!
(Есть идея оформить так логотип компании в прайс листе )
Ссылка
Николай Павлов
07.05.2013 23:14:25
Да, конечно, можно легко сделать кнопку для запуска этого (и любого другого макроса) - см. тут
Родитель Ссылка
Рузанна
17.05.2013 14:14:01
Спасибо за весь материал. :)
Родитель Ссылка
Светлана Родионова
27.11.2013 11:27:22
Николай,

я только знакомлюсь с VBA, пыталась сделать, но вышла ошибка 400??? Могли бы мне помочь.
Заранее спасибо.
Ссылка
Николай Павлов
02.12.2013 20:33:44
Не видя файла и вашего кода сказать сложно. Пришлите мне по почте - посмотрю, ага?
Родитель Ссылка
Дмитрий Дунаев
21.04.2018 11:28:21
оставьте открытым редактор VBA и посмотрите куда указывает ошибка?
Родитель Ссылка
Kirill Lukin
18.12.2013 13:21:44
здорово. можно ли сделать так, чтобы анимация работала при открытии файла и не требовала дополнительных действий, таких как комб клавиш или клик по фигуре? спс.
Ссылка
Геннадий Кобзарь
01.04.2014 18:59:35
Вставьте код в модуль "ЭтаКнига" под гриф:

Private Sub Workbook_Open()
...

End Sub
Ссылка
дмитрий гвоздарёв
08.12.2014 17:02:29
добрый вечер. расскажите пожалуйста подробней, как сделать автоматический запуск вращения при  открытии файла.
Родитель Ссылка
Николай Павлов
08.12.2014 17:19:15
Жмете Alt+F11, в открывшемся окне находите в левом верхнем углу вашу книгу и под ней модуль ЭтаКнига или ThisWorkbook. Открываете его двойным щелчком и вставляете туда процедуру обработчик события открытия книги, которая должна запускать наш макрос Heart вращения сердечка:
Private Sub Workbook_Open()
Call Heart
End Sub


Очень рекомендую сначала почитать статью про основы использования макросов - многое станет понятно.
Родитель Ссылка
дмитрий гвоздарёв
08.12.2014 17:48:10
Спасибо огромное,разобрался))))
Родитель Ссылка
Ak76
23.02.2015 11:20:13
Добрый день. Подскажите, при открытии файла у меня открывается сразу заставка. Можно сделать так, что бы после ее закрытия автоматически запускалось 3D изображение.
Родитель Ссылка
Никита
24.07.2014 23:12:39
Добрый день. Скажите, а можно сделать так, чтобы текст изменялся динамически в объекте?
Ссылка
MEP
15.01.2015 12:46:03
на Win 7 64 bit не крутится((
Ссылка
Ella Fr
18.01.2015 17:34:44
Спасибо за идею :)

А с Powerpoint возможно? Или зря мучаюсь? :(
Ссылка
Сергей
25.03.2015 23:36:15
Аххаха!!! Так неожиданно(неожиданно от такой серьезной программы) и прикольно! )
Ссылка
Милена Курочкина
07.04.2016 11:06:57
Действительно! Это очень неожиданно и захватывающе!
Родитель Ссылка
Ирина Фокина
27.10.2015 14:59:33
Добрый день.
А как можно сделать так, чтобы сразу несколько фигур двигались на одном листе ексель?
Ссылка
Милена Курочкина
07.04.2016 11:06:24
Ты че, жесткий чтоль? Одной фигуры вполне достаточно. Ну а так, мое мнение, надо писать вот тот код как-то по другому, хех, не знаю точно :))
Родитель Ссылка
Иринка Сычёва
07.04.2016 11:16:56
А ты жесткая,лалка?
Родитель Ссылка
Милена Курочкина
07.04.2016 11:05:17
Спасибо большое, всё получилось :)  правда мой комплюктор сразу же завис, когда моё солнышко начало вращаться :cry: и учительница начала громко кричать :(  И кстати, можно еще добавить свечение фигуры, у солнышка это оказалось просто потрясающе красиво :oops:
Ссылка
Иринка Сычёва
07.04.2016 11:16:30
Лол,неудачница.Купи нормальный комп!!!11!111!!!  
У меня все летает.
8)
Родитель Ссылка
Наталья
18.07.2016 21:45:45
Подскажите, а можно такую фишку прикрутить как-то в UserForm, которая выполняет роль заставки при открытии файла?
Ссылка
Rita_Margarita
11.05.2018 11:18:15
Добрий день, Николай!
У меня такая проблема. Я сделала вращающееся сердечко. Оно вращается, всё хорошо.
Но когда я сохраняю код VBA, то выдаётся такое сообщение:

[img]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAlQAAACmCAYAAAAcXRESAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAADXcSURBVHhe7Z0LfBXVve9/CW8ftIpvIQRMaKuItNijVAiUE6UfeuytPViqgNbeoxxPU494arHCuZy0YJtiS6v08inelirQlsItvbXliFIaAy3Yao0x2Eoi5IFPROT9yOv+12Nmr5nM7Oxk7wRIfl+YWf//f61Zr1l75j9r1t7Jqizf1gJCCCGEENIhiu59ANqhuuKqa6yJEEIIIYSkSnFxMUpLSxMO1faXnrNRhBBCCCEkFdb++qnWDtU/TH3CRhuysvReyyowkt1bsxfhqwqJDEY7sa7uB9poZYstQO8Tu4DumIWwLmKiksG2CAFdAiPZvTVrRHHVgC6Cr/lBWFc7o1hTUE/sArpj1miL1U1cItKI0bqTTJBcXF2UoOpoIka2xUR4JhF8q8HV7S4R5wUi+EYRnXK15OrGoGVFIirUlrAuipNUxVpF0HpACOjWJIJvNYTyNIEv2EAE1+RUqpXuizYXV08kE4J66/NkBRv4ui8rQrrNI6Gr/1bzA230cXUdOPUwur9zomyuru7LhtjPqQRGsntr9iJ8VSGRwWgn1tX9QButbLEF6H1iF9AdsxDWRYxrixDQJTCS3VuzRhRXDegi+JofhHW1M4o1BfXELqA7Zo22WN3EJSKNGK07yQTJxdVFCaqOJmJkW0yEZxLBtxpc3e4ScV4ggm8U0SlXS65uDFpWJKJCbQnrojhJVaxVBK0HhIBuTSL4VkMoTxP4gg1EcE1OpVrpvmhzcfVEMiGod6drTqAtGWBU37/7DlW2tRFCCCGEkA7CGSobGMnurVkjiqsGdBF8zQ/CutoZxZqCemIX0B2zRlusbuISkUaM1p1kguTi6qIEVUcTMbItJsIzieBbDa5ud4k4LxDBN4rolKslVzcGLSsSUaG2hHVRnKQq1iqC1gNCQLcmEXyrIZSnCXzBBiK4JqdSrXRftLm4eiKZENS709OiIvZzKoGR7N6avQhfVUhkMNqJdXU/0EYrW2wBep/YBXTHLIR1EePaIgR0CYxk99asEcVVA7oIvuYHYV3tjGJNQT2xC+iOWaMtVjdxiUgjRutOMkFycXVRgqqjiRjZFhPhmUTwrQZXt7tEnBeI4BtFdMrVkqsbg5YViahQW8K6KE5SFWsVQesBIaBbkwi+1RDK0wS+YAMRXJNTqVa6L9pcXD2RTAjq3ema47Xllo9/QIcd4ZOf/CTu+s6vtcwZKkIIIYT0aNREUns3tQA9jm7jUF11z1fx1l+/g7de+A7+dM/F1nqSmfwF7Nz8Dex86EprIIQQQkh3JNqhGvkZvFT1Qxza8UOUf+1SawSybroTB199VLZ5WHgF8LH75+HA3x/Bi/dfYlOcHFrwUXz1ixcAtZsweczX8IlHLsIKcazefP42fMGmCfDpmXj9z9+W7Vtme+5bKCu6yEYSQgghpCcxcvS1egsTZ48i+QxVzVtA4RhcrZVLsfBfL8RrNVrR/HXRAgz88D346KI3rOUk8eELkafC2rfxkjakSNlqXPoPX8el13wdBUukrYQQQgjpcVSWb9Oh6zx5shfXFm288nsJ/73zBnz9cyJeMQZTdlVgvYkw3PQveobqwP8e4+v7//YI9r/yA7yvtvWfxpjLP43nt38f+373aXzsf3wJ+yq/hBmS9GP3PYD3Xl6st70vfw9/np2Y5br10e/h3Ze+q7c9sm2717zC++i9X8M75Q/jnRfVtghb//1iPTu18mf/iOEqQcEteOuFr+JPv7oF1+sjrsDi50viZ6pCfH7RQ9j93EN49stmtmrUl2ejfutC1K2+Hvql3aemo+5PC1DrbT+/HiO1/RbUbPmm3nZt+QZ2/azQ2AkhhBByWuA6Ve11phRtrqH6v0+/hMk3XI3bv3IDqje8YK0RKGfqoVFAzdOY9JF/xzkfKcGSXTZOMwrLVLxCHKuNX7oQKF2Bc6+cjXtKgcvu+Cp+/hlxmmbPwSMTgNeWP4zzrvoPnC/btd9/E/jMF/G0eq337Cpc8NGv4t5ngeFfvA8r/+lFzLj199ip8tWv/B7GJz73czyjC9qO2VfPwcVXP4FfaD1EwTT7yu8+zPsQ8Mv7H8R9ZZLvzFswb8RVmD3zfKCuFJ+e9gxeVs7U/MtFfxb/9Il5yP3Eo1hWK3nkF+IP/3k5dq1agtxx/4lh33wFyCnAI/8q7SOEEELIaYPrQLXHmVK0vSj9V+vx6PAv4ofDnsa31llbBDOvN87S08t+ixeygJasNzDvy7/DX7VVyH0b37/iXpwz8ifA9WaR9tMbTezPNr6swxuu/5gOFcrBUjNU3uzUrf9o5nye/v2LOvzZ7yt1eEPhR3XYIfxXft/DgleN6Zf3P4If1Z2PWU9MQyFewX8oZ0rsn58kzpSw8adGb8HbWPiAuG2Fl2OY6MOmF5kZKnGuFMOGivNHCCGEkNOGqFd+qdK2Q4XX8fUbinDW5N8knKOOUPO2uCdt8+LiEpw3zzhYCuVY7flBwtHqfC7EZTlWbAf+DNW4/2W2ryfaQAghhJBTG/c1n/v6L1VScKhSY8UzFTq84a5/wpgWIKvlEiz44acR5QqtfMbOSBWa2FsL7YzVM9Zl+81y/brvvC9sxGvGkpiR+kczI+XPWG00M1aZ4vOL7MzUNauxEZfju3b91C83GXew8ItGzxLHa+63rxdPao+2D5s+CVO1RAghhJDTiag1U+11qjLmUGHd/8EHHhSnKvcGbPrbD7Dvb3NQpN6FRfH/foLCn7wNTJypF6U/MtGsmbrlN2YN1bsVdlH6LwpxWe1G3HCvOFq/+Slu+Ok7wITpelH69ycAO3/6Pcz8rc0zwIt4+HFJ29aidH8NlfrZhNGYt+YhfK8A2Fi8Er/MegmLV4izlDMRv1NO1VOrkFOs1kdNwG//tAA1f/oK7hoqeTz1c+R+8VnsEufrYW9RumybuIaKEEIIOS1wZ6Vc4uxR8E/P2MBIdm/NGlFcNaCL4Gt+ENbVzijWFNQTu4DumDXaYnUTl4g0YrTuJBMkF1cXJag6moiRbTERnkkE32pwdbtLxHmBCL5RRKdcLbm6MWhZkYgKtSWsi+IkVbFWEbQeEAK6NYngWw2hPE3gCzYQwTU5lWql+6LNxdUTyYSg3p3+DIQi9nMqgZHs3pq9CF9VSGQw2ol1dT/QRitbbAF6n9gFdMcshHUR49oiBHQJjGT31qwRxVUDugi+5gdhXe2MYk1BPbEL6I5Zoy1WN3GJSCNG604yQXJxdVGCqqOJGNkWE+GZRPCtBle3u0ScF4jgG0V0ytWSqxuDlhWJqFBbwrooTlIVaxVB6wEhoFuTCL7VEMrTBL5gAxFck1OpVrov2lxcPZFMCOrd6ZrjtUX96Rnl97QX78/MRP3pGTpUNjCS3VuzRhRXDegi+JofhHW1M4o1BfXELqA7Zo22WN3EJSKNGK07yQTJxdVFCaqOJmJkW0yEZxLBtxpc3e4ScV4ggm8U0SlXS65uDFpWJKJCbQnrojhJVaxVBK0HhIBuTSL4VkMoTxP4gg1EcE1OpVrpvmhzcfVEMiGod6eLmyL2cyqBkezemr0IX1VIZDDaiXV1P9BGK1tsAXqf2AV0xyyEdRHj2iIEdAmMZPfWrBHFVQO6CL7mB2Fd7YxiTUE9sQvojlmjLVY3cYlII0brTjJBcnF1UYKqo4kY2RYT4ZlE8K0GV7e7RJwXiOAbRXTK1ZKrG4OWFYmoUFvCuihOUhVrFUHrASGgW5MIvtUQytMEvmADEVyTU6lWui/aXFw9kUwI6t3pmuO1RTlUyf6MTDLoUIUiA7oERrJ7a9aI4qoBXQRf84OwrnZGsaagntgFdMes0Rarm7hEpBGjdSeZILm4uihB1dFEjGyLifBMIvhWg6vbXSLOC0TwjSI65WrJ1Y1By4pEVKgtYV0UJ6mKtYqg9YAQ0K1JBN9qCOVpAl+wgQiuyalUK90XbS6unkgmBPXudHFTxH5OJTCS3VuzF+GrCokMRjuxru4H2mhliy1A7xO7gO6YhbAuYlxbhIAugZHs3po1orhqQBfB1/wgrKudUawpqCd2Ad0xa7TF6iYuEWnEaN1JJkguri5KUHU0ESPbYiI8kwi+1eDqdpeI8wIRfKOITrlacnVj0LIiERVqS1gXxUmqYq0iaD0gBHRrEsG3GkJ5msAXbCCCa3Iq1Ur3RZuLqyeSCUG9O11zvLYs+9pnddhR6FA5kQFdAiPZvTVrRHHVgC6Cr/lBWFc7o1hTUE/sArpj1miL1U1cItKI0bqTTJBcXF2UoOpoIka2xUR4JhF8q8HV7S4R5wUi+EYRnXK15OrGoGVFIirUlrAuipNUxVpF0HpACOjWJIJvNYTyNIEv2EAE1+RUqpXuizYXV08kE4J6d7q4KWI/pxIYye6t2YvwVYVEBqOdWFf3A220ssUWoPeJXUB3zEJYFzGuLUJAl8BIdm/NGlFcNaCL4Gt+ENbVzijWFNQTu4DumDXaYnUTl4g0YrTuJBMkF1cXJag6moiRbTERnkkE32pwdbtLxHmBCL5RRKdcLbm6MWhZkYgKtSWsi+IkVbFWEbQeEAK6NYngWw2hPE3gCzYQwTU5lWql+6LNxdUTyYSg3p2uOYG2ZADXocrconRCCCGEkB5KYIaKEEIIIYSkDmeoCCGEEEIyBB0qQgghhJA0oUNFCCGEEJImdKgIIYQQQtKEDhUhhBBCSJrQoSKEEEIISRM6VIQQQgghaUKHihBCCCEkTehQEUIIIYSkCR0qQgghhJA0oUNFCCGEEJImdKgIIYQQQtKEDhUhhBBCSJrQoSKEEEIISRM6VIQQQgghaUKHKhXqV2PGbatRZ9UOsaUEI0dfq7fiLdbm4pWRibIyRVt1JtGcSucwGadLPVPhVB6rUf2cqb7vTueQkNMcOlQ+u7HiNnNBDm8zHq+xaTrKVhQXVWPOk9tQWb4N88dZc2eQsQtsmnXuCRf67tjG07JNXfj5IoSQGOhQ+QzGzCfMBbnyydkYPWo21itZtpW359o0HaS+DlXIQ+4Qq3cmQ6Zh5RPTkGPVDtOVdSanDpkaP10Jxyoh5BSADlU7eHZBYtbKf62gnuj92aw7saLe2n3k6fnGxSjHOtyt0qin/8AxJdhsU7YiKp07g6DjvePVDJvIXrwNV7RZZ9lazUi0VedEO+tW3ZnIx7dLXebK8RWLMUXsMxaUBGc9IuvotK+tclrVVyF19o8zbY2sW6DMRNpYuyJQJ6e/3Tau2q2tCWqw3J/xdMZFTPtcotoa25bA+FF9kLwfA3Z9jkOoeFWmDSP7w0OnKUGxbWfxlsQsr5c2enwoQudrlVteVBvcdrqExqrakubTjnNh+yD2s+bbvTwcW7gOHvrVpJRVq5RUxohzfJzdw8tb8on8vOjjI9pJCMkIdKhSRW6cOyfaGawlN2HNMnWRUhfzGsyyM1mVTxZiw1x78fIZi/nujNcTOVguN4D8JeaY9fdX4+4FW21aF3OjaJVuSA7yK2qgrsd1ZRuRPxXYpG9e9diJXAxVokdsnRP56tk4mzxBVJ2j25kz/TFjU9uSPJQ8rtoyGDMXJo5POsPn13EOxsf1p9wIHlyUh6XWvnSEaX8CdYObDXhtkk299omumxDZL3H2mPMQbuP0wSqHBBXVGL7QOwYo0f2VwniJaWtkW4ZMw6yp6+z5F7aUYc3Ugvh+TOncO8T1k4vXThVfVAx4sk0bfQ4izleByis8FlL5nITGqpJTGVOpnIs2P2tJ6hiog0U5NEWQc/sYZqoPauwYicqzjf5w80ZbnxdCSGdAhypV5IJ9h7c2Y2iuuRHpVw3Ok7Fc8MrtBTgWdYyTV05BIUavLWv9tBmbbiwmTa1GjTxl1u7KwyRxVqpK5cKq0o/ICb6qiauza0+FZO3UT73WXrQO2FHX+qabDLcuceWoG5u2m6fy8fOcm5Si/o/YgIg2xdUtql8UKfRX7PkKM6oQE+wrKH2MakeyfvSIa2tMW8ZPFOdFnX9hc2k15tw+Nr4fQ21pk7h+cvHaqeJdWUcKUfWOO19ueUn63Z19aT0zKITzieuLts5FW5+1JHUM1EEhDtYU7cA5YzdujETlmayscN5xY0i9zlUOF1+NEtIp0KFKF7nI6Sdjfwvd7DuBocOAnbVbsWmHPCUPuQ6Td8iFtbYG+RPlZtoWkq7Va55UiGqnulneuBGT7WLgNmc8UiGyP8divpYLsEnfACNed4TpjLplgjbHS0Rbk7Vl3HTMUecfajwkbtAnY1y2opPOgTvr1WpmMIq4vkihj9L6rLlIWUtjZ9nSpFXeHfi8EELShg5VOuhXAouxPLy2JBmhY9SrhHL9miZEknTq6RTLfoKqydchB4MxYTKwqRQYHnjfF8O4AtxcsRHPtmcdRbJ2Ok/Zuo5GNLhP/I7cKp1HXDlyYy7WMxHqRrEWc0aZWQMfdaNDxHHJ6pYqbZ2vVrMarfGPSdaPHlFtVQXEtkWd/2psWlBmx4MQV462J859h/ukPUTVO+58ubTV76mStC/aqIOQ9LPWzjoOFUdwKWZHzqr5x8bl2UZZgbzjPi/KweUaKkI6DTpUaSEXLHnqriqyrw3U5i0AjSV4zBS11mFe1NNuknRycUUFMLnAPJ3nyMV9jTxB+7MTSZF81VqWG2191asOGxNPTDvVGp4RZlG2sj24Ky8xA2HX96hXKjPKrsND6gk6Kl2AuHKkvYumWttUbJg8P/Tawqxnco8rrk1St3aR7Dw4bQzfJOXm55U9ZUMh1utjYtpnjjBEtXVc8raom37VWmCWP1sTV47YnXPf8T5JkdjxEXG+ynSEQ5J+bxdJ+qKtc6FI+llrfx3Hz1uMfDm/+qdYUhgjiTzbLsvPW/Vl0s8LIaQzyKos39ZyxVXXYPtLz1kT6VGobwaVFqCyQzcrQgghpGez9tdPobS0lDNUPZHNzlfhR6pvBtGZIoQQQtKCDlUPZPy85AtxCSGEENI+6FARQgghhKQJHSpCCCGEkDShQ0UIIYQQkiZ0qAghhBBC0oQOFSGEEEJImtChIoQQQghJEzpUhBBCCCFpQoeKEEIIISRN6FARQgghhKQJHSpCCCGEkDShQ0UIIYQQkiZ0qAghhBBC0oQOFSGEEEJImtChIoQQQghJEzpUhBBCCCFpklVZvq3liquuwfaXnrOmruH9/Qfw1lvvYM+evdj73j4cPHgYR48d1XED+g/A2WefiUHnnoPzzx+Eiy66AB/8wEAdd8pQvxoz5gIPPTENOdqwGytuKwbuKsSGosUo1zbDzUu2Yf44q2SKVuWnSEePI4QQQkgr1v76KZSWlnb9DNXrb7yFP219Hk8/U4ZDRxvxkZFX4fNfuBVfe+ABfPd7i/WmZGVTcSqNSquOUceeMgy5DpOxEc/WW73+j9iAQkwYKvKo2Vhfvg3irKLyydmoWrYadSZV5hgyDSvpFBFCCCGnBF3mUB04cBB/eaECL79SjfwPX4Gv/Pu/4xOfuA5NLb3x4vbdWLu+Ao8s34LvLvs9frTyD/jdM8/jrXfex8f/4RqdVh2jjlV5qLxOPoMxYTKwoWy3UWtrgMnXtXZwxF4+IidoV7NEt5Wg+LZrMXK02Yq3ePbVWLFA2Uqw2Utr0/i2LSVGl7TaUQukuRMrPCcPW1Hs21UZu7Fi7mKUVyzGFNFnrLJ1J4QQQkhadIlDtXv3G9j2fAUuvmQI7rjjDvQfcCZeqHwTZX87E3/YkYNtdZfh5XeGYce+oag+kIfqQ1eg8t3LsaHyIjz6ixos+fFvcaKhRR+r8lB5qTy7gs3auZHNc14ccobmoXyX8V42l65D/tDBWoZ1WPRxRdWYc/tYY3epqMbwhXYWa8lNWFNknSU5dudEZZ+D8cohunEx8peYdOvvr8bdC7YC4+boma/ROiOVpgaz/BmxQmyYq+qqXkHOBuyxaps/bjBmLpTj7Azayum2voQQQghJi053qHbV1GP731/D9dffgPwPfQgvVOwS5ykPG7cPwgvVWXjnYF/sP94f+4/1wx6R3z7QB+8f6Y9DjWfjcNMHsK/xIrz6/oew6vdH8ehjv8Lwy/J0XipPlXensqUEd6+1sjg6y9Usksu4Aty8tkwcod2o2XETJnnrpAKv/DwHJ8SoQkwYYmWVD6pRUyuyHHuHl099HaocPaegEKN1eQ4qDdbhbs+BEwesvKIGtfoVpJMXIYQQQjqNTnWo1CzSjuoaTL358zh67BgqXjuBsh2X4K+vHsW+I31w7EQ2jhzPwvHjzTjRCEz46EB8ofA8XHBOPxw82oTjTb1wpLEfDjecif0N56LynRw8/Ngf8N6+/TpPlXdXzVRFMxaTpoojtEWclxEFGG+tAYbkIF85OFbtFFwHTm9qdosQQgghXUWnOVRqndMrO3bhhsmfwtvvvIO/vzkQf6jsjzfea8LhE73EmRKHqbEFTU1NOHq8EXdMORf3fO5s3DrpDDx8z8W4dFAfHD3aiEZJI0lxpEGcrBMD8daxHPz4V6+gprZe563K6LQ1VePmYOlUK7szRw7jJ+ahpGgx8idGvNZTbCnDmlG5UGvVY9Fp7IJ2F+2MJWbG6so2onxqyHELpfHRi+Yj7IrOdvAIIYSQHkanOVSvVu3C5R+5HGeceSa21wB/qeqL9w9n4WhDtjhJDbI1ijPVgOMnGnBGP6BwTF97JHBmH2DSmAE4eOQEmpubtFPV1NgsDlg2Dp04A3uOXYIf//IF9O3bT5ehyuosxs+zsz5x36jTr+uc132KwBoqYGnUsamkwVjMV98SLDLppizKw9J5YcctmEZver2XWS/l2vXC9yHTMGuqeUXIRemEEEJIZuiU36FSP2+gvpGnFpGv+92z+Pv+j+GNvU1oaO6FlpYstEiarJYWHTY1SyhO08NFQ5F3aW99vGLeo+V49uUsDBBnq7GpWTtWzU1NkMRy7DH0z3oPV12yGw/cOxPLly/HlZfn4dJLLrJHn+Jk4reg1Df9luViPX86gRBCCDlpdOrvUNXW7saYMWNQ8XIlag/m4c13j+HYiRY0NTShqbFBb41NjRI2in/UiGPHm1Dy+C789ZU9qH39PTy64nk8++IB9OujZrPEmWpUxzWjUZwv5VydaMjGkYYzUVH3AWx97nldliqzZ2B/CkF9e3AhnSlCCCHkVCDjDpX6BfTdr7+FkSNH4oWXd+P1fb1w5Jg4Q+JMNTSp13fKOTJbgzhUDWLvnd2Cqvrj+PKiXbjlwQr89KkT6N3vHMmtGS0t0JveNbWguVmssp1o6o2jzWfjN0+X67JUmars04K0fpRzLObrheePYab3LUFCCCGEnFQy7lCpPyczPC8Pe/a8izcPXYj3D5zQi889Z0rNMDWK3GCdKjX7dOJYA87ql43zzz0bgwZdiMEXfRDZLQ3Yu3cf3tv7Hva8u1dve999D/v27cP+A4dx6NBxHDqahdfePgtvvvkWLsvP12UTQgghhHQ1GXeo1N/my83NRXnFK3j7YD9xpprNjJR6xae2BrUpR0q98lOOVbOah8IXCvvjF9+8BMu/fg7uv/UcvFO9HlVV9Xh3717sf/99HDxwCIePKEdKtoMHcUCcqvf3H8N7h3pj859e0GWqsgkhhBBCupqMO1TqDx1fcsklqH19Lw4fA06cgJmZEsdJzUqp2SmziaPV3IKjR45h7553MfLS/aj6+w688rcdGH5RE/r1zQJaspCd1Vu2XrKpqvZCltpEV1Vvau6FE429sP3V3bj44ot12YQQQgghXU3GHaqDBw9j0KBBeHdfAxqazDf0tPMkzpReXC7OVLNaXH6iCXvf3Yu62jq8//5+NDQ34/DRIzh27JjEN6sv8wniVAn6m4Gy6a8FatksqWppzpK0vVD3lilTlU0IIYQQ0tVk3KE6euwoBg4ciCPHs9HQoBwp820+z6FqFufq8KEjeP31N/Dunr3aeerdS6rR3ISjh49ah0o8MYXvSEVvLeJwNTVn4/CRbF2mKpsQQgghpKvJuEPl0SSOUpM/O6Ve7zVp2/4DB/H222/j+PHj6JWtXt9JFVqyxYkCjp84BvWjn/pbfYos6zzpmSp3U9WWUMVJGi85IYQQQsjJIOMO1YD+A3DgwAH0yT6O5qYT+sc4lSOlXvMd2H8I7+97X/0agl4Tpd/gNWdpp0qicaJB/TJ6i/ajFFniMGVJFfW6KR2azXOssiRhL8nljH5NukxVNiGEEEJIV5Nxh+rss8/E3r17ce7ALDQ2ntA/3ImmRhw6eAgHDqrfiTLOkN707JOHXjSFXr16mWi9U9VTv56uHKreevPkbP1PHKrsFlx6QX9dpiqbEEIIIaSrybhDNejcc/DGG29g2JAL0bv5qHaojh47pn/uQM0oWb9JnCm1U06TWQulqtKnT1/069dfO1Vqbko7UeobfuJEQX+zz3OsVCj27Cw0NRzDVVcMxZtvvqnLJoQQQgjpajLuUJ1//iDU1NTg42NG4cze+9HSdByHj6rF4uI0qRkpcYISTpRxpNCsfh4BGDCgP8444wz0zvb+pp+agzJOlXaiVJglNr31Qt/sFgzodRAF112ty1RlE0IIIYR0NRl3qC666ALsrK6W8ELknvsemo4fRHZzo3ahNGqGSq+NUs6UcqlUFbLRv39fcabOxJlnnYlefZQTpVLol3oSb173mZkpE/YRc9/eDfjIkMO4+OKLbJkX6DwJIYQQQrqSjDtUH/zAQAy+9CJUVlbiU5OuQp+Wd8X5aRAnyMxJmVkpS4sq3rhaffoNwAfk2PMHnYd+ffuKWdK1mB/0TMxMqdd/2eglct/ezchu2INbPjcW27dvx6WXXKjLJoQQQgjpajLuUCmGDh2MF154Adde83Fck3cAfXEUfbKbjC+lJ6pUsWq2ycxOKdsZ/c/E+eddiPPOPx9Z2cpxUqgUKp03MyXuVHYW+vRuwhl9jmDsyMMYe+3VeP7553WZhBBCCCEng05xqC695CIMOmcg/vLnP+Pf/uVmDBlYg/69jminyrzKU6i9eqWXrX7TE2eddQbOPW8QBgwwP32QlS1Vs+ul1CxVLzmut2x9ejXjrL5HMKj/Dtz35X/G83/5iy5LlUkIIYQQcjLoFIdK8aH8YXjlb6+goeEE7rtzEi44ox79sw+jb69GcZJMwd46KeVQ/XX7Gzh2rBHHjx9D5at7cFzk3uJIGadLpQX69G7EWf0OY2DvV/HgPZ/UPw66/ZXtuiwSwZYSjBx9rd6Kt4hevxozbluNOhPbOXSkjK6ol0u4X05nUum7ru7fdDmV2nS69d3pTlx/t/c8JEt/Mq6LXUVntuVU7adTqF6d5lANHHg2Lh8xDE9veAqXXTYMc/9tPHIGvoYBvQ6gf59j6JXdjOysFvNnZ9AH8x5aj8/NfBifnbEYc7/xMxxvuVKviVJp+vRqwoA+R3Fm3/24YEAlvvHV8cgdOhgbnvpvXYYqK312Y8Vt5kMW3mas2m3TnE5sRXFRNeY8uQ2VT85G1bIMDzh3EHdkQJ+0D4HTL+XbMH+cNadKd7yoqGPD4/xUbOep2vfkNCID18XOHoftzT9T9VH5hO59I0eXYHO78z9J99K26pmpfkpCpzlUisGDL8GIvFysXfNLnHfeufjuf92Kgg/X44yst9C/1yH0790gzlIj+vRuwRuHx+DF+jGo2P1RvPL2x9GAD2JA/0b0631EnKn96NNSg2tHVOEH37oZH/zg2TpPlbcqIzMMxswnzE1WfdBGj5qN9UqWbeX003B9Vn0dqpCH3CEiD5mGlU9MQ46JyQydkWdX4PZLdyLd8zHqJuRvKMaKeqsT0h3p7OtiJjiZ9XLue2abg/Htrs9JupeeAuezUx0qxTAZuVd8+DI888zTqNm1E8Xz/g3z7x6OMUNfxcDeNeiftQcDeu3HOWcdwwXn9patLy44Bzir3wH0an4LA7JexZWDX8I3Z+fiv+Z+Ca9VVem8VJ4q7y4j4L2L127NLnWr7kx449YTDthG32luWDovNw95avL0QDk2fYjIPANIfjcuRjnW4W4vXdgzb6sc15sP1Fc9fbhPLaLPlbIqFmOK5DXj8Rqd6tkFXt5Rr9XacUxMPaP6uu2+C/WLOi6V/H17qN4LSoJPPF6f2HCFbk/y8xrZjqSoseLlI/1UZs1e2VqJSaPQrzui+iYXd9yVh5LHt1rdIVB3d9zGEzvu/X4xW+R51ucoTJpjJlnZAaL7ru1ynH6JsXdszMaNRQfdthIU21mB4i3qM+rJJkl8HqH2rnL7KWrsJjn/UW3RdYvu9/g61WC5P8MR096o41x75BgKff7V5p0Hj7i8fULjcNVW3deJsaT6U47botqdOCdqix43Me1T9bJh8jGb/rW0Tbz6WFXT0bxUfTPdXx5OPVt/1sLnrXNmyjrdoVKoWaRrrx6FN9+ox/LlyzHw7DPw3YVfxrKHJuLOzzZibH4lhp/zF1zY/8+4oP825H5wG67Nfwn/+rkj+PGiCXh44V0Y0K+XPlblofLK3MxUKpgPYv4S42Wvv78ady8I3XjkZD64KA9LrSe+dEQNasWcM/0x46mrbYm9YYknPWvqOmzyBsyWMqyZWoDxupwazPLSP1mIDXNDA1mIzDPAWMx3nwyUbGMMKZQzJAf5FaYNdWUbkT8Vtr712Ck336FK1MjTyMJEWStvzwVk0O6c6NXvJqxpNa2e6jEx9Yzs61T6LtQvT+Rgecwx0X0cUe84/PbIE1672pEMdTGaDdhxqLb5BTbKJ0kadcEpgpT3GGZGPYuMm4OlmB26aKu6tzH2I4gdo7HnOVFG6/GqSHPMqCzaHJcxfZdCnRP9EmPv8JhN5fMuVFRj+EIVL/UrKgY82bYxOo+22uuN3VTOf/v7PX6M2LaIff39QEmgT+LKCdYzegxl4LoYHofTx2LmXdKmUlt3fS3/EmaqC6TTDnNelDOaShkObY7ZDHwuXORY5XD4zkikA93ONgSQ+nZmfykiP2vh89Y5M2Vd4lAp1Don9evpV16eh6q/b8ejP/gBXnzxr6IPw1fv+QKW//AePLX2Ab0t/+FXcF/RVFz+4aF44fm/6LTqGHWsyiMza6bagZomlhNxh11vk1NQiNFry4IDTTkg+snHDMDx89TFSFA3MW9wFq0DdtTpwTB+YmJQbS6txpzbx5py3KcnuUCUW6cmQEyeKZNSOWMxaWo1auRpoHZXHibJB7VK1VcdOyIn+bSq01cYmhtxYYsg6pi4ekb1dap955LsmHT72G1Pe9phjoim/o/YIA6Pn28UcWnUhVJfmJKXMf720LoSVfe2xn4Ucf0Xd55de6q0Z8youKj0LnF9l0Kd/X6Js6czZlMZi6MKMUE5yap+rqwjhag8UmlvXHtEdmcBZiwoa3+/x44RW39Bl+f2SVyfherZIVI9H2HGFeBm2yebS9fh5olyLVc47dBpINfTLe0sI67vkhF1TKptk2O1s+lvEdeLjvaTR2f2l6K919UM0mUOlYf6eYNPjL0aN1xfgLMG9MbfKl/CL3/xM3zn29/Gf9w3W29KVjYVp9KotOqYU/unEeTpRw/AAmzSJ19Oprpg3LgRk+0C6MAT0bjpmLNDDaqt2LTDGUhtDehkebaHFD44Q4cBO2tV/XIxdMh1mKzqW1uDfO8D0BVE1jOir2PTtkHUMZnqY5f2tKMzkPKXpjK7NGQaHpq8Ecvd14TtpTP6rz10ZBx0Oh0cs5noy046H+4Mk54ZaU+/p1Onzjy/HcpbPXyqNw5yrVx7Eya15dSdrPGZyXLTyquz+6sLr6shutyh8lDf4Pvwh/Iwftw1+OxnPoWZ0/8Zd/3PGXpTsrKpOJXmpP8CuvJ45Ql/uX0Vol6BletXdA5ygSjW72XVyVyLOaPEu1ZutON16+OMKAzGhMnV2KSe7CZfZ2Z8QuXEEptniqRYjno6xLKf2Pqp+gKbSoHhifd9CdrzhOKRypNGVD2j+lpqmFLfuSTrh2R97NbbkWPPRXvaodcHqFcxEe/5lVOLNtqYJM1QuQGqV3ptrR/Imf4lYJE8CSolVPfg2I+pp6I9Y1SXsRHP2rURSdN3dMykQir96xHXL3H2dMZsup93RVQeKY2nmPYYNUFH+j2FdrUqL64cbU9xDMXRnjaExqGe2S2S7f7p0Td79WpLtXdcB/opFTrzcxEmA3l1an/FXlcFt58kXXAtc/qcNIfq9EJOjDxBVRUpb/daTFHvZ+eFZmlkkGHRVB0/cvRUbJg8HzPHTcOsEYl30g/uygs8hSmHpWotMMt/nxssR2/hxYBq/VWSPFMjhXIUqk0VwOQCU78ccaTW7Mj1L4I+dk2Ympb1FkW2SUrHxNQzqq+HpNimAHH5J+ljt95l1+EhNesTlS5Ae9qh0tdjZ8WVfr8nMOsA3HwCC841ydOMn7cY+VJmcqdK6rvkpoTs1D049mPq2e4xqsrLQ8mNbaRPZ8zY2OSk0r8ecf0SY+/omG13X0YQm0cq7Y1rZ5h29nuydskN1LNP2VCI9YHy4soReypjKCkptsEdh97nSDmno0KfBacdI9XaRf0NtHb2Uyp0+uciTAby6sz+iruuRp23DJNVWb6t5YqrrsH2l56zJkLISUV9E6+0AJWRN65TiNOlnoR0NuqzsCwX672v7avZj7nAQyf5a/ynLN2sv9b++imUlpZyhoqQU4262urEQs1TmNOlnoR0Nnpx9V10nlKlu/YXZ6gIIYQQQjoIZ6gIIYQQQjIEHSpCCCGEkDShQ0UIIYQQkiZ0qAghhBBC0oQOFSGEEEJImtChIoQQQghJEzpUhBBCCCFpQoeKEEIIISRN6FARQgghhKQJHSpCCCGEkDShQ0UIIYQQkiZ0qAghhBBC0oQOFSGEEEJImtChIoQQQghJEzpUhHQFW0owcvS1eiveYm2nCvWrMeO21aizqibK1hEykU8qeWSqvoQQ0kHoUPnsxorbzA0vvM1Ytdum6QLcG8OpfpPgTSxFtqK4qBpzntyGyvJtmD/Omkn7SGe8KYfWPVblNfpOrKi3OiGEpAkdKp/BmPmEueFVPjkbo0fNxnoly7Zy+mCbposZMg0rn5iGHKuecpzq9TtVqK9DFfKQO8TqpGOkM97GzcHSEYux3M4Obn58MXD/fMzkOSGEZAg6VKmin2i9WasSbLbmIFtR7Mxs6Vc7UcfZJ+0VC0Jp1SzZ3MUor1iMKWKbsaDEPJHHpbf2wFO3pwfKjX4Sr1t1p5+f9/QesHnH6bzcNqt2iu6VZ8PW7REC9ZDNra8lssywvR3H+eh6laDYzjwWb0nMQnr1i88jdC5XuW10zqOfJsmYuFHOKdbhbi9t0nycOsTZPXT73PPt1UG1M0kd7XGBOnjoV5NSVq1SarDcn7WNq5dzfJzdw8s73I5WhPq+zJptvc04iEmjiCln/O2zUbXMjNcfrb0Js7wHpUC9E8e1Nf4IIcSFDlVKmJti/hIzY7X+/mrcvWCrjfNQN7HZgE1jXu0kOU6cpp0TbdolN2GNutCrWbKFidmxlbfnmrSKyPRxqHJrMEulVduThdgwN5RebiIPLsrDUptm6YgaqHtozvTHzDFqW5KHkselvkOmYdbUddjkOUlbyrBmagHGW1UTWb9g+/XMn03uEllmTP1cIo8LU1GN4QtVvNSpqBjwZNt/0XlEnMsClZfXxjnS9lTGhGIs5rsznkpulU/UuUrhHA7JQX6F6Ze6so3Inwp7juqxE7kYmqyOgTpYlGNRBOnzxzBzqOhe3+ljgRK/XlF5ttEfbt5JZ4Vi+j5AkjTJylHjeMRiPDhX+mqJ1+6Yfk5h/BFCiAsdqlRQr2zkhniHXfuSU1CI0WvLgk/g9X/EBiTSaJId59gxNDfS0QjQnvT6FZMzIyI3unJ74/VRN2OdxswkjJ9nbzDqhuQdV7QO2FGnb+LjJ4oTUmpukJtLqzHn9rFa9omqX6j9sUSVGVc/l5i6BhhViAnqxqrq5Mo6UojKI+pcKty2JDm37sxG5Pq7cD5R5yqVcyjO2qSp1aipB2p35WGSOOBV6hypY0fkICdJHQN1UIiDNUU7Fk4/e/0l6GO9ekXlmaysqLzjiOt7l7g0KZSjZqmAwsSxcf2cyvgjhBAHOlTdFbm5eWvAzBa+IYzFfG0vwCZ9M5Ebh3IubtyIyXbxdGBGadx0zNmhbpBbsWlH4kablNoalFsxltgyI+qn7ZZkdU2VTOQRgTvrldL6u7hz1eY5FN9wGLCzVp2TXAwdch0mq3Mk/Z4/MeTwtoWUtTR2li1NOjNvl46WE9nPbYw/QggJQYcqFfSrlcSCVvV6pTz8ykvdzJBIo0nluChazUQkwUmr81dCqNxIxJko1rMn6saxFnNGVaNGZeTMSvj5aQZjwuRqbFpQhqrJ16W2MHhcAW6u2Ihn21ozE1VmVP3C+cTWtR1E5RF1LsN09NyGiTtXqZxDQc0EYdlP7DlR5wjYVAoMV6/s2lnHoeIILsXsyFk1/9i4PNsoq3Xe6rVdxAxeSn0fnyZZGyKJ6+e48aeccDpXhJAI6FClhFxUn5yNqiLzWmCKWlsxLzwDYNY/eWnUVrwlleNC2PVK6hXEjMdrrDEGSfuQeiK35T24Ky8xu+OUq7fwolq5kWDRVBs/FRsmz8fMcWaNiVoQH8zPoG7eVWuRWMzbJlIPtS7pRlsH9TrFxvjYdS2tyoyqnzsrFndce4jNI+JcuoueNR04t5HEnasUzqFC9VMFMLnAnJMccaTW7Mi1TmL76zh+3mLkS7/rsSeOhtc3UzYUYr0+Ni7Ptsvy89aOSj12Vlzp1ztBKn2fPE2wnLaI6ee2xh8hhITIqizf1nLFVddg+0vPWRMhnYT69lVpASo75HiQbgXHAiGkm7D210+htLSUM1Skc9ns/JTCSPXtK95AiVBXW42b27vOixBCTmE4Q0UIIYQQ0kE4Q0UIIYQQkiHoUBFCCCGEpAkdKkIIIYSQNKFDRQghhBCSJnSoCCGEEELShA4VIYQQQkia0KEihBBCCEkTOlSEEEIIIWlCh4oQQgghJE34S+mkR6H+BE5PRT7rVmo/6hrRE/nkJz+JJd//ttU6BvuOkO6N90vpdKhIj0I5VC0tLVbrGagbm/qwp+tQ9bRrhHeRzIRDxb4jpPtCh4r0SDyHqqeMd++DToeq/dCh6jh0qEhPwhvvXENFCCGEEJImdKhIj8dbV9XdQkIIIV0HHSrSo1HOh/cqrDuFdKoIIaRroUNFejSeE9Ld6K7tIh2kfjVm3LYadVYlhGQeOlSkR5OxmZwtJRjp3rDUDWz0nVhRb/Uu5rSbodL9dS1mrNptDQKdgGii+oV9RchJhw4V6dFkbCZn3BwsHbEYy7cYdfPji4H752PmEKN3NaflDNWom5C/ofikOaGEEJIOdKhIjyaTMznjb5+NqmWrUVe/Gj9aexNmTR9sIuzsiyprpDNrVbfqTmuTLcOzC6fdDJUmF3fclYeSx7da3SHQhyXYbM0kgpjxptEzWSUovs2LvxbF9iGAEJIedKhIjyajMzlDpmHWiMV4cO5G5C+Zg/HauBXFN9ZglpSjyqp8shAb5hqn68FFeVhq7UtH1KBWp88Mp+UMlULN9GF26Cav+nCx9Knpq/X3V+PuBRFOV0+iYjGm+E6TbNI/5ToiZrzpOEtFNYYvtPFLbsKaIjqohGQCOlSkR6NuRplEzVIBhbhjnNFRX4cqrMPd7o2vQpynITnI13ZzMxs/z3PAMkOm29WV+DN9Vtd9OGq236c5BYUYvbasZzsB0h/rPadJO06zMVrZ48abPsgyqhATvFfR4wpwM6pRw9eshKQNHSrSo1E3o04nfPMrV87TWMzXcgE26ZtfZmcJuqRdncWQaXho8kYsL7M6aR+R440Q0tnQoSI9mk6fyVEzURWJxeo+9atRrL/RphyrtZgzKrOzBKfzDJUiZ/qXgEX2NVaoD+vKNqJ8agGdhCjixlscW8qwxp2xIoR0GDpUpEfT+TM54jA9ORtVRfYVjNrUAnS58WHRVGubig2TM/uNwNN6hkoj/bbkpoTs9OEUtfZs3lgbR4LEjDcbq3HXXxUBS5+YBhmNhJA04R9HJj0KdRNx/ziy0k9/56M1Xrv4x5E7Trf848jqW35zgYc62YniH0cmPQn+cWRChEw6U/qJP2I7GZyOTmJU33kbCRLVR95GCDk50KEiPZpM3oCUExO1nQxOxxtrVN95GwkS1UfelpQh07CSr/gI6RToUJEejboBec5HdwrbvLESQgjJKHSoSI/Hcz66W0gIIaTr4KJ00qNQszdqUXpxcbG1dH+4KL1jdMtF6V0EF6WTnoQ33ulQkR6FcqgmTpxotZ5DJhyqnuSEemTKoWLfEdJ9oUNFeiTeOqOeSDoOVdG9D1ip55GuU8C+I6R7Q4eKEEIIISRNPIeKi9IJIYQQQtKEDhUhhBBCSJrQoSKEEEIISRM6VIQQQgghaaIXpasFVYQQQgghpP3ob/lNnDixxeqEEEIIIaTdAP8f7NAxqNsDfUUAAAAASUVORK5CYII=[/img]
У меня Excel 2010. НажимаюYes или No. Но при последующем открытии Excel документа кода как не бывало. Не сохраняется. Может какую галочку где то надо в каких опциях установить или какие библиотеки подключить. Каждый раз при открытии Excel файла с сердечком по новой приходится писать код. В чём дело, ну никак не пойму. За ранее благодарна Вам. С уважением к Вашим знаниям.
Ссылка
Антон Кутькин
28.05.2018 15:50:36
сохраните в фромате .XLSM или .XLSB - формат *.XLSX не сохраняет макросы (вроде как для безопасности)
Родитель Ссылка
Salavat Islamgulov
15.11.2018 12:25:51
Здравствуйте. Вроде бы сделал пошагово. Возвращает в окно VBA и выделяет Жёлтым название макроса+ синим букву i  
Ссылка
Влад Балан
06.03.2019 18:10:09
Добрый день!
А возможно ли сделать что-то схожее, когда пересчитывается книга? Понятное дело что это не ускорит процесс пересчета, но все же)
Ссылка
Илья Гришин
20.10.2021 19:54:20
На работе MSO 2019Pro, дома MSO 2016, ни там ни там не заработала графика. И на скаченном примере тоже..
упд.

в коде не хватает команды на перересовку.

 Sub Heart()
    For i = 1 To 2000
        With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD
            .RotationX = i
            .RotationY = i / 20
            .RotationZ = i / 2
        End With
    Application.Wait (Now + TimeSerial(0, 0, 0.1))
    DoEvents
    Next i
End Sub
Ссылка
Наверх