3D в Excel

Если на прошлый День Святого Валентина вы уже подарили любимой женщине гепардовую шубу, а на позапрошлый - 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"?
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
Классно! Я тоже попробовала :) Работает! Спасибо за романтику!
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
Ответил - см. комментарий ниже.
Спасибо за весь материал, вот дочитываю до конца этот сайт :)
Подскажите можно ли тоже самое проделать с картинкой? что нужно написать в первой строке макроса для этого?
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
Спасибо за весь материал. :)
Николай,

я только знакомлюсь с VBA, пыталась сделать, но вышла ошибка 400??? Могли бы мне помочь.
Заранее спасибо.
02.12.2013 20:33:44
Не видя файла и вашего кода сказать сложно. Пришлите мне по почте - посмотрю, ага?
21.04.2018 11:28:21
оставьте открытым редактор VBA и посмотрите куда указывает ошибка?
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
Спасибо огромное,разобрался))))
23.02.2015 11:20:13
Добрый день. Подскажите, при открытии файла у меня открывается сразу заставка. Можно сделать так, что бы после ее закрытия автоматически запускалось 3D изображение.
24.07.2014 23:12:39
Добрый день. Скажите, а можно сделать так, чтобы текст изменялся динамически в объекте?
MEP
15.01.2015 12:46:03
на Win 7 64 bit не крутится((
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, которая выполняет роль заставки при открытии файла?
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 не сохраняет макросы (вроде как для безопасности)
15.11.2018 12:25:51
Здравствуйте. Вроде бы сделал пошагово. Возвращает в окно VBA и выделяет Жёлтым название макроса+ синим букву i  
Наверх