PDA

View Full Version : vba selective copying and pasting on the same powerpoint slide



vanhunk
02-21-2023, 01:27 AM
Using copy and Paste to another position on the same slide during presentation
Good day,

I hope what I am trying to do is possible in PowerPoint.

I have a series of shapes and images in a line at the top of a slide.

When I click on any of the shapes or images, that specific shape or image must be copied and pasted in a next line on the same slide, starting from the left. When I click on a second shape or image, that shape or image must be copied and pasted next to the previous one, and so on.

With the push of a button, I would then like to copy whatever is pasted in the second line into a third line on the same slide, this time repeating the pattern a specified number of times.

The final result will look like the picture below.

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAaAAAADrCAYAAAAv3kJCAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAOwgAADsIBFShKgAAAZs9JREFUeF7tnQlczdn7x0MYjBljN3aDsYQsM8x//AYzlqxtyr6vY2zZImsIbVLaSIoWu4hkGUSSEjXUkCYxSaiUIlLdz/8833uvSW5pu917Oe/X63nde7/ruff73PM5zznP93zVHj9 jKtXr4LD4XA4nPKCdIcLEIfD4XDKHS5AHA6Hw1EIXIA4HA6HoxC4AHE4HA5HIXAB4nA4HI5C4AL E4XA4HIXABYjD4XA4CoELEIfD4XAUAhcgDofD4SgELkAcDofDUQhcgDgcDoejELgAcTgcDkchcA HicDgcJSHzzVvYHw FoelB9DPapbJmuP4gLA9cQUZmluSbyYYLEIej8uQCIsDKcht69vwZP/f FQGXLknWFQcRst/mwNHREVpag2BuboG3b99K1nHkDYnP E2HobfFH4bbr2OcSySzKBW0SIxyCIOVkYmO4vVIS4AHE4nwDhN 7ihx69kJj4DA7bvWBoOEqypqgwBWN4ex5DhQrqqFSpMjN1XLt2TVjOkT8U ZD4yK7UVdMMLM7CfH g5Bt CBcgDucTwMrSGUaLlgrv70U/QbQ Dv7y98LhpiAdpsZofGjRvDY88xfFnjG5w65Scs58gf6nYTRz6yK3NVtNFOERix0lPyDT ECxCHo KkPn NqZMWol ffkh moDoO/eh2fUnhIaGSrYoOlvMnNGyVUuc9r KmjVrMwE6JVnDkTc0dqK63W4FG32vguACxClTHiW9wPmbsfA4G45Nnmdh5HBYsKkWXhizYQ/017i/G6jUX MmLKN10u1oH9qXjvHwaarkqJzCSEl5AZ0RI2Hn6obnOcAet6Po3KUb0jPSJVsUnS2bnNGCCdApv ysqKUA0jpKYkoGsbPZDMOh1t/9NTLU8hnGbjmD7sWvCNv6h9zBvux/GbDyEZTvP4P7j58L2ikQsQLIrcVU2LkAcuUEDjCeD72L17mMYbrIb481csM59O3ae3MSWr0R4zO J3lpgyT6bl3Yb2oX3pGOPNdgnHNHHxgW/QHaSkZ0rOysmLrY0LRo biOOxWdgblYrYuFRoaRnCbNNmyRZFRxCgli1UToCosbLE Qy0jPdi2Eov9urOfOgCft92Atrrj8PA7hoMt4dCd5MfhqzYg GrD0Df5oowWK5neRFDV3ggIOK 5GiKgQsQh1NEcnJz4XoqmAmEKzbs3coilhVMjOawNTPL1OiYgbeMWWRkLZzLyTdIODdHTFYWoKs zARZO7nCMzIF1SDoC4jOYcFxD2zYaiIy8LdmyaJAANVdiAaKIhqJjY5dzmGXjizVuFwThGG7iCV 2L86zCE3dhjXG haFrj2Cwyb53y8hGOdzAIJP9GLvj1rtl4uVhTIT2Iu3la8mZyh8uQBxOEbE6cA7GO7azqOQP9km 2eJS10blW77ZlLVs LpGbI0JO9ls8S0pHv1 0sMLKAbuiRdgamoYj95LxNCUTC auhvYIHYhE4gSDoiAVIL TgUonQNS1Nmr9Qeht8IGuVQBGbguGjvl5DFvljYHGXqyye3/8ZIxzhBD15F1WmOmYHsVcu5NCN7IiKKkA3XiQLljM00zsvZr4zmgdvUYnvhLWZ7zJEV5PR6a895 m2iUx4 c5oGe37MOU1zkalCO8T07Lena 4xgWIU YMWroLMY8WsneyxUJe9ix1LvovdmXvP2Ponh8LR7Rp0watv2uPatVqok79 li/cz8usQok mE8RLk5iLj1L1q1bI/1603hvf8A1rFXC0tzhIYG49XLDMnB3kcQoBYkQMoVAVFXL2VTiaOc/JVcJBOjIBnLi2eG28OgbXYKWsZ7FDL WBoBolefm88EwcgvQNL1 UVE nn7 XhBeKTLSXgW7Lsn7Cd9zwWIo1SQU03a7IywaEr9lS0WZW00RjTVwqlQh/4cYIEPJk cj169esNz70Hs3HUApmus0VmjB4aO0IPhyJEIDmYt/7ETUL9BE7Ro0Q3t2v ITp17o2mzDqhS5Rs0b/4dxoweDXd3d0RH30VOjnjQ3srCVRIBKZcAuZ4Kg86mUzIruLI2iq4mbD4iOXP5URoBIoFIefn2n fgUR4Dybk9G20v3k75yAeIoFeRU52/ yATBGuPNnFgFsVEQiLIcB8p8Mxu37i8Wjj3DyomdxxZnw3p99gKUkw1MmjgXM2bOQPTdf/DbbwNx4tQ5PHmWAR fMzh01BdTp/3Blg/Aw hIpMR64MUDO2Q8tMS/d7xxwucYFi02Q9cffkH1GrVRtUpVaHbWxOJFizB29Cy0bNUK/qeC8NVXdXD69GnJWRULJRXQPSWyKjh52BATz3LviiuNAEnfk1CQaEi7zuj9lZi0d uk2 X9TNvkjYCky6XHpXXUXSddX1zjAvQZQf3k5YHYqdQEi3rQCu6ndbHEaSOGLN JMRuchfEh2yNWbLkpDl9aA//QlYJRQoE0443eS5fTNrQt7UP7kqjRsebbbWECZMCEqM27833uApTFgpWJk di0uRpWLBgObpq9kKTJm0wc9ZMvHjxAqJcQF93EizMt7GtL0EU1RCiMPbbhTK7 QVwryNE8fOQGueJ0KAL2GrvjuG6U9CwYTuoqVVG5cqV0U3jB6hXqgK77duQmflSfGIFUtLKuaSm t/4I89HHkrOXD6URIDISChIeaZcZLZN2odF2BQkQGe1LRuNIUvGSCtD6E3HIys59t21xjQvQZwJl8 Oiu9ioXEcorQPnt4dOGuBrVmYnKACYqI2B1YBLMvf/AOvdlMHIwZbZFYuuxevdyYR1tQ9vSPrQvHUPWscnKQoDoGIq00vCWCdCUaUYYPHgkev74K9aZbs LZ09fRvPn3 GPu78I248bOZss3IDTkMkIDPZCZaAE8HAJE1gZC1JDDBEkUVpGJUxMgbgyyEpwRe/cijhz1w3wWHWl274 vv6rPBKkCE7cmGDXKELt2uSAqKurd/HDFSW4oKTQWs97jIgYsdZNZucnLRqzah7v/JklKUT6QX8gqi6pbYf6uFAJEoa5PYBSrgG4IFnjrwbsbyYoCpeWGRSe82//wpUi5hc 37j B64nLMHHch6mbXDF8uYtg9N7YwRtOxwKEbRTBZu/L0FrhhTVu5yVL5IfYqWQLhLyttBU4QcdYqOmuECtt UmAJk9dwERhHPz9rkJDowd27HCD/8lgNG/ZCnfuxGD vNVYuHAZ9HTHoE69b9Gz5wAsMTZCwLmtePHPMiY6/YCor4WoKPc6 10pOgqvCVFsH Q 3oLkR cRfDUQNja7MXToKNRjx1BTU4O6ujo6dOiIZcbL8DpTvinLJD4jVnkJiQe61pdkVm7yMJ3N5wTBo zqlPCG/kFUeVbfC/F2hAkQiMd/MG2MW2MNqyHS4/zQCrv ng/nTzTBk8S54nAz56D0fhy/egs5iF/wxY7OwLx1j68BJGD/XFrNNPcrkDmfKwHE9eQWGa3Zh/ubN8Ng5AuGHv0fM8aZIPFVXMHpPyw7sGsy22QT9lTthfySg3G6ejHmUjKErvcRzL63eJ3cRFDvV 8JQXlbaCpygY8gSh/Kw0pZfKkATJ04QPjvaeuO3/r8iJSULurpTMHbcREyePAt/zFmC4cPHwtbWGbtcDkNffxratO6Kdho9MXPqZJzYvxopkSORe4NFQzE/4m2sAYuI2giClBOuDtzvw5zfB9k5OXgYlwRfnwAsMTJFyxYdmCDVQ0LCYyZQ1pgxYybu3YsRylK WLHc5J6RZy6rU5GlD15 A9pY/hZTs8oT8QlZ5VN0K83eFCVBgeCwMFznDv9P/WJ3CKpZ89qhWfRhNXMMq8/0yK3FatsT6MP6YZob7dRrLPEZAm 4wNHJCwI2S/TlI/Nz9r4vFxHEyUs6wFmMAO3YRLO3sl3DdOVrY190/RJj Q57MtD4uZO/QBdezDsTEzUfkesOm2KnYd1WAlbYCJ gYssShPKy05c/KBqZOM0LHjh0Qdj0MDtvdMXyYFkSZoThxLAQtWnaGepVqmDdvOUaMGIdNm60xa/YcZLx8hQexT7DX4xBGj12A//Udhkt/7geSLLF/nwO6/9AbSxaNRmrMcmQ/sUPs3ZOIjg5GzL2/cf/ P7geGoLQkHBYbN6Bhg2aYpXJZnTS6Ioxo6dAW1sP6enFn/qnMHTXeH9ww2h52WjHm9Bm0Vd5Qn4hqyyqboX5u0IEiPpW9Y2cBZGRJRxSy6lYEa59DTHD1PO9L jmqWI0sD8GWRTq0jax9pfbsy2 gv8Cx2BEBCdz8bQexeusKIcKRJTJFMRKtTbYLMcNiH56lymcwl 4M11578L2LToOoNH2NvBA7FfuOCrDSVuAEHSO/MJSXla78ImRlieDmegzduvZGjS9roWaN2jDQ10buv8PwMn4f7j MRwgTi6hbDzBISw9GC9ei98 /4tWr//wvJeUNXN28cCngDEKu30K79l1gutYKUycZ4caNcDxOSMXvs2cxcTHE9KkzsWLZSnTT7AqtQUNgZ bETdeo0gb7udCxfvopFQTvg4lL6a5IfEiCaoSCvX8vDxu68LXN5WfhZcaDzySqHqlthv6NCBGjS Snec//5HVpewCqUItkl3Hsxd/0sHtT94GcbjV8rcVpZdbdUZ stcixwRULed4Vo3uO4wlCkqJTEPFz3or9pd5l1jJMw6q72Eua7yXnSa1n24iYfQfSgPxE7FvpsC rCwqBjqGLHEoDytt UWU5sbIyMjGhfM38MccY1hZWgAxfSC6UR2599h/698JePE8DQMGjmSRylZoaPwIewdbPHgQK yblvoG nrj4WS/nf33b6Nzl 7w9T2DI0eOIjE AQcPHMU33zTCLpc9iP/3CWKiHzLBmYCBAwbD0pwJUN0G2LnjMNq37y6IoJ2drXDcsmTb4avQ3njiPb8uaxu57SoGmRz4IN IS/k byvdeIPILPhu2nAm5E4 pc6xZPcIqkyJaZuWqGD/HRkiLpLEOimgyqlaXuW1BRl11FCl8DIp8SHx83H6VKSSlsfPePzERci3TLLVdfmHQLeBPqrfpFG yPyOe6ip2KfS8FWGkrcIKOIUscysNKW/7s7Gyc9DuBlWtWwNrGGqf9zyM5JZGpyj4guhtyKaEgogXSkp gXz99GBhMZALlCkPDmejS5QcMHjwUFuZ2 O23wThyyBvp6SIsWLAOM2cvgIujE26F2ONGyF3Urt0U/v7iG1HZKTFhwlz0HziI7evCBKge7t Px7mzV HlfRCpqWU/mzR1W082P4pBK/ZhuJm8HtQWiWHrTwgilLfy197giz1nwiUlKR9GrttfLhFfeRqNSQ9b4SH5hh9S7gK02vYoTmrIH vcpzPw7/gyjTd5YbX8ch3sMkrlNYUYR1xKLA5JSyIYiJOp2K8vIJ79579LGDAvvMhkTIiEbbLy3wBv0hAkZ 2cWXx7QiXIBKbqUpfxbzm nTZzGXVnvPGjduiFkzf0fAxaN489SJOcdsZKTR01EPobNmDzRr9h3Gj58ORwcPrFu7Fb/8bwjmLViKgNPuSL /EUnPHiDhcQqirjjgxd9DEHb9Hr6p/S38/MQPpMt6K8L4cXMxYIAWLLe4MHGqi6Qk aYpU3RPlbKu1SXomP8p08fLykiAaG45ek zY49ef1Du47b5Md9/RXiMdf6yqbIZWJ7HBo8AyTf8kHIXoKmr3BBTrymrR1hlUgyjsR7KbKOxoyz1yjK3KcxovMlwWeF/fEo4oDEfWcJRlmZuOxdOx4MkZy05K3f/Cb0thTvsSKuLmLe97LN5uACV3EpT/oP7fJk7q6H3z7/A3W0/Nm20xeSJ81C/XkthuXrFKvip12/Y4 mGl5KkgPhHqXDb7cMiHm3Uq98Iffr Bjs7F0RERuPh7YtID6wKUexAiNI8EfNnB CfXrgR/gB16nz77qmq1Os3ZZIRBg4cjG3Wrqhbty6Sk5OFdW/evEFaWhoSExNZVHQfEX9FIDg4GGfOUJfeYbi67sKWLVuwbdu2d/cQFQXKkqX7cWT5dVnbiE2nMXjNUWHslMSnvG7ozgt1l uv24eR5ufKddYHeRiVn8SHxvEKm2G83AVokJGL0KWWVxyKaj6av8LjZx2Z64pidO6C7i8SLv7Kn R8kHFA2m5n9FAxfbYNhzDZsn4Zn/t 8t01 e3 fbR/sQ4kJ it3lCpFm7ojh630LnAA9T LhPaa/bga9VCyZ9nABajkVpryr121nbmyGrZa22LYMB101fw/HD/mh5vXQ2G8YhtattYQ1pN1bN8RO3a6IONVmrBv6vMs PuFYML4Ofi2UQusXL0Sf908jcy/dZH57yqkPjmLa/4LEXV1Gby8fFDr63pYu3YtDh48ABsbe3auX1ik1RQ/9OgtzJbw008/oWtXTbRp2waNGjVCzZo1heXS80utQoVKwqu2trZQjqJCyUraa6lrTJZfl8wWsgabf/ J Pv7HzAxz7iPnvVl6K/dV b/k JClTVFDDTxKvmJqhp1u9H3 NjjLcpVgKiLqz8rHPPGEhmN 3wsc64wM1zoWGDLhu7zoVTr/EIy1MQO7Q47oMY/Yvv uD0GL7cvUISKuo 7iyHsD/8pOXvxoN RJkukdOu8f66CjLoWDEz3Fyi JYGcjP2oCjHxuUsHHUOWOJSHlab8NtaeqF7jK4wYMRZGC5bDeOlmHD6yn4U5o/DmzkxE3AjEelMXfN uK3N5sQC0b98BO3bswIsXYiHKZW4Q dcD B4/BS9PF4wbY4DBQ4dhm60t/o9FVmpqYsH40CqgUqUqqPbF12jUsDmaNf0OHdprsoirD4YOMWAR0hwsXbIGlubbsXuXF44cPoHz 5y/DZPkWYX87Ozvh/MWBnvNjYFf0RyoUZCZrjuDS/ kgp2Il5kLMj5j5DJ39bj1FQDtOXJeclVNeqFQEVFor7I9PN5nmv8 HohgSkgqp9u9Za18HmNj88d62xd0n41x16Ji4FDkzLy/Hr9yBjumR9/5gH7ORZr7wOhchOULp4QJUcitN c/4X0ed2t9CmwnQYC1t7NzhjksBF5Hx9AwToSEQRbbGq7iNiIgIY0K0Hd 37cxcvzI6afTAhQsXkJPzFoGBl7Bo0WKsX2 GSRPGsfVqaN68FRwcnGG8bBUGDdRlYjIfy5aawmKLPXbt9MbBfSdY9HQRlwNCEX4jCrf/ikZUZAwibkbhemg4Ll64hJMn/bDP2xuOjg7s2Osxb/5CWFrZwmSFWIAuX74s RZFh2YjoHFMXRa5UINLz6p4MyJsXOKOm537MLdhvpPPSIzWG3sIzw0avLxsblrnFI9yF6AxxruQ FVdmQ4hT0ur9iWGL3aRlOJ9KDWaZjjIKyRk1IVGEUx MamSYI Bxo4fbF/cfZZYrC/2dB/UVUjp1cXNlqEb6 iPXJpuv7xwASq5lab8j JT0fcXbXTr1gu/9hsuvNZr0EDIbvPy9sKrpMPAv78h9uyEz5E5G3nuHypWvMgoTutA4dOrC/A4tmKlSAkdEiFq2Yw87GHnfvxOLN62w8epSIixcvs8hoP3Y474C5 RYsXboUkydPga6ODvr26cPO2VV4bHeDevXwdc1aqPl1XdSt9y1afdcJPXr0x7Bh4/H7nFXYYm6PgMAQzJiyGFWqVEVcXMkeeU1jQVsPBWGc2SEMXbWf fPHU5W3zrHD/RYdmbswnynEntVuhFGLd5V7xhtHTLkL0PyNXgj8rqtMZ5CnhTXrgNnr9kpK8T40txtNr5NXHMho zKe4AlScfU7u R 2HiheN5zVwSDomJXsuSh65mew0eOi5EilgwtQya005X TlYPdrj6oVu0rTJ82H4GXw FzNABagwyYm1dAx2494LF3D4uIPAFRDJ6/yIS 3khUriIem2n8bTOMHjUee9w9kZSUgidPnuLlS/ENquls25079mDx4sXo3KUz1NXF 1RkkUKTxi3Qtm0XdO3 CwaPGI8/FqyEufVueO47hUuXQhB19zoSE4LwMulP5KQcAJLNgKTVyHqdijEGc1Gnbh08f166CIN6C bZnYTuJr8Pxj4p41Nr1WH2/rbQtSb93xfFkoew/z5HIZS7ANFEoZv05st0BHna1iHT4HH6hqQU70MTi9I8bnnFgczUfjraHP9QTJqfcYSxzbwPtv/YPktt2PfOs22UTyvM38oqiiJC6dRDWBRDf7a8f76iGv1ph5p4IurBU8kRSw4XoJJb6covYqKRhs WLzKBeWR0OTg7C0seP0 Bovx8d2vVg7q6GTpo/IvhyCO7GPEGTpm2ESUQpSWDq1Gm4di0Eb99mC/s9ffaUCdEzmJltRHBQOIZo6WP69Gnw9z LgIBQXLlyE5GRMUhIeILbN6/iRVIwctIuAGnuwLO1LDyZKExgir/bQhRRB7k3qgpzyeWGqEEU/g0yXtzD6HHz0aB PeFREaWFUqPX77mIwcv3QtvMT0jPpvnidNcfQf/FbsIy8vXNi3YhvnEb5i7MZ4piHgXfq8KRH UuQDQdzRCjnSVKpS6NGS5wKHCGbJrJmiYTzSsOZJQ0oLVcPH5DEQwZCQlFMo/86n wfXH3oYy7MeuKXhnR5Ih6lhc EJbi2MitgZhueUxyxJLDBajkVloBIuLiUjBrtokQnaw3XcuWipDLNOXWX4 wbKkFKleuhqVLliA5KRPt22nixx97w97OE7o6E9CoUUu0bt0GI/VHwNbGEnvcvNCwYSNcvhSGjh16oItGFzx7egeJURsQf2MB4q OQ y5X/DkfGMmKjUgCqsAUSgTGCYy9GgHwejmV5pVm547xF7p UOiG9XwKiMcRoutUL16dcTHxwtlLwvov xxNlyYLYFmgacZ9Kl7eobVcWivP4ZRDjeELDePUcZ4We1L5jasXIXZl2wbOd/XxPmQchcggmbApolCZTqCHIy632as2SM5 4fQ4xQKmu NBIWSB0hAyCjyKUh8pFbUfbIuVC5yZUR/sBFr3r9bu6Smu 4w/EPvSY5cMrgAldzKovwkQ3FxqVi4YIOQ5jxu3Fikporvy0lOeotfmgxw/d8eRxKjaaOqFTp57o3LkbNm 2FZ52amG S3iWUPVqXzMRq4KmzZvgr4h/0K5dV7RtrYFXz84g50YV5DBxoZkVhAfa3WRGIpPfJKKT33LZ8uy0EyxKO83 hmo4ceKEUD55QpmeBwMiYWh6kEVEu4VIafFGL/yrbcBch5VLlmlpgamj5Aic8kQhAkS59lP/2PrRiUTLymganrNhBc IXZgAydOKKkDSO8Kld2qX1iitVXu1V6nu9OYCVHIri/KLESE 4QU2btzJhKQ22ndoh6CrV5CTA2zc4MiEqSI6duyIVq3awvfYZVha7GaRTye0adMeZpss8det wi4dAuDh ijSbPGCA PYeLTBfUaNMPTuD BCBYVMCERXa8oRD1ioWGv YSmICPhynlkhCuhcWhQtykMDEZKyq0grl8HevViLsTKl9fU1YFDhyQbccoThQgQYWR oMBHMZSlUcLDjHWF9 8W1AUnbyPRM1zrKilFwXiei4DexuMyxaSkNnKzH5x8QyVnKD5cgEpuZSdAYp6nvIbnXn 0baMpjAstN1mG0GvRMN/kgqFDDOHsvBPBV0NhY70DQYF3sW7tNjRp h2 bdwYq9asw8QJc1C/fl0EXvkLLVt2gHqV6rgdth IrCUWE2n3WjGNoqbcqHZ4 uw pkxfIZTtZvhNSakVRAxriLZowdyIlTGvkQjt2yfZiFNeKEyAKPV5/AJ7uUZBdOwZsy2FCVALg55kKisJQd5WlCQESpsesnyvkEYtS0hKanTvA6VlFzQu9jG4AJXcylqA KBJ6/ToLVy5HQ1d7CnP9Cmj13Xew2 aER/GJyHz1Bgb6Y9lyNXTU6AhXV0/cDHuAxYs2olGjVsLy6jWqwefYBWh06i589vN1Au40lyksRTVhHChEDW8TrHDmYhQaNGwJff3izY ZQZtD4zuTJYqGR1A8yzcZGsgOnPFCYABEbdp6C/ZCpsh2hDMy9z0gYWx WnK1g6DHah3cPeicMiUfFr/I2SsO22ndOUgrZrHO/AN0tZ2SKSGlNz/wcljqfkZypeHABKrmVtQBRAgKQg9xcER7cT4O15S4WybRjfwE11K5TB02bthCSFUiYaJm5hbmwX 0Z6NoKD7mHGNGNh d69R6CtI74x1dzcDIj7n5BgICqw242Wk7FGJH0mwaFuOoqYaD9mOREVILo/AK9epcFm615UZdHV8ePHhfOXOxThNGnCXIiVrzDjIlRuKFSAKGtljIkbAtv2kO0IpTBKPKDJR4t y46X4RtRNgii8PquGJvXUsGEaO04 wSip0TFXTfhQ2FbbrCl07ilKl6a06Y/P91ZSi8SI1ftL9Ox7LkAlt7IWoPcR4VVGFq4F3cG8uaZo9K14klKySpXUsWDBgg8mBA0J/gd16zVmEdEKbNvmIWw7YNAw5DxehRzqRguTCEw E7HluZQRx97TeA lXueGVWGRUyvgkSFEyZZIfeyD4Cu sLLagn59tISECZoaKCVFnDBR7rx DaxaBXzxBXMl9j0KsuXLJTtw5IlCBYgQnu zaEeZzo6QUuNrYd634jz8jSYipXncSBjiD6lBs7Uaxg9QQ pJdsw8olFci/ESH2uylliIpMsz/6wKnRU7C52fbZrlMehZF2/qkeKavk0Qxmw8VOwpgbgAldzkK0DkT JU7bS0Nwijcc7Q/AYrMTLl0Mgui960zb5SIpKVN41k/r1m1x/nwE2rbRQEX1qrh62QO420wQmPfEhyIcZhTh5N6shNw7LYB4XSDFAulPfHHj kk4ODlBz2A0mjb/nv0l1Zmp4euv6uHXflowNd2IhITiN3rKFBoLouy3fHXHO9PUpDRDycYceaFwASJ8A6Mwe7ZFmYw H0TGWTFoD71PFG2C3PxIA152j3wlEhr9YNGp9qYbtC9SQfV68vKhG0c7CkeL9XZZ uP7ArqGw2ndWcvYPORVyDyPWHpIpGmVtehuO4VBApOTMRYMLUMlNvgL0McTiJEYsQKRJZ06HokG DZrC0sofZBmf2V1KDjv5YZD9bI9xYKtz3Q68UDd1uDDwYBjw3xesUH0RGnMNut70YP2EavmvdDh UqiSczrV6tJqvHe2H gmVw2emF2JhHOOB9At279cLcuX Ii6BoKDW8dWvmVsy3pEbCxCkXlEKAiE0u/lg3ZlmpRIj2XTfSCOvsi9/HTF11FAXln5A0fJca ncXd8uRoARu/29dfiPR8tmohtkjxMJD28saT6KJSOlxDAUlAFDXJKVJG24v/SzARTG6aY8SEj42dXpeuACV3BQrQLIQIfnZaxgvsRYerXD bBR6/vAr 0uxxpOLDZBgyKKBvkDyOmQ9P47ou6eFeedmzPgdGh17QF29mrBt1arV0e77Lpg6ZQ6227kiIOAa i3SSWeNyHpo2a4xz587hWlA0DPRmwth4heTcSkBqKtAj3zCAm5tkJUeeKI0AURfQOme/EovQO/HZfqxEM0wT7v4hwsPi8gsGGXWl0bgQdad9UUUNrRuroa m2Hp3UkOLhmr4spoatH5Ug XvhScy2DpMFyKugnA4HgJds5MyxUJepr/lNMz3F322Yi5AJTdlFCAi8lYCfvnfcEybPhv7vS gRo2vUKtWHRw54oFjPocxd74xNLv3xhdffMX cmpQr1QFbdp0xMhRE7F1qxM8PQ4hkQnOxQtBTJg6o2evnnjwIBFuu49Ce8RoBAVdEc6T/uINRKK8kZgCoSl46sro/qeZEcL5BKXyRmkEiCipCJWF BB0YyY9Lpsemy1LOKRG3XEkSBe3/Wdx 98f4ynIfPcMwiQzjwJvAqWoiKIRSpOWJRTyMppfbthKT2FMrihwASq5KZ8AEbnIepONU77hLArS wM4dB7B0qfgxCtLsuQpqFdGieStoa4 EmZk1PPcexZnTF/DqVTaLaExRSV0d60w3IOafFKwwsYHxilVIT09nx83B2yzpWKeSCI U7GzAyUm2CFHXHEVHHLmhVAJEFFeEykp8pNBcdfqrXBHg3V2mgJTGAvb9CB0TV2FS0YJY5Hgauh bnZYqEvE3PKgCzbXwlJSkcLkAlN UUILEwpD3PgoP9AWhq/oQTvlcxymAWfus/GGtWm8HL8zA8PQ8i l4sbt ORZfOPfBlzS9x7WoYLl38G/PmmuDMWfG4ZiYTHTqi0kQ6H4OEZsmSD 8TGjZMsgFHHiidABEkJHSPkNG0DUJG23sOkcfoCanG41eWmfhIoew5EqGPRULFMYp8SHwKy8yjG 2aHraRn4Jd vreSms66gzh/M1ZSooLhAlRyU04BIkgscvEoPh1 Jy8g7sEDnDt3BXv2eCMj/RW2bLJlfzt1DBs HAmP0rBn90msNzXH02ePkcuEJjtbRcSmMCg7jkQnb12zdq1kJaesUUoBkkKPTxiz0AEx9Zq 7xDMHtZuiEl/bMPOo0FlKj5S6NHd1B1HY0L5ExOKY5RwQGM 1O1WWORD32HU oNCWrQsYSgvM7C7Br213h99fPegpS6slVuVvWPfsxwtK7voE7gWBheggpFGLXfvPMBP/9eP/d3U4O62BzF3k2Fl4YxTp/yE9dStJt70ExCe/Pj7A 3aMZdjfkdREX3mlDlKLUAE3aipv8QFZzV FjsDs6utOgv3Dp0NuSvZSj7QOI390UAhY83dxVAQE1kiI8voPh9KtaZ9KeHgYxN/0gy OuuPyRSF8jZ9sxNwPRUmKZlsNnmewDr3JcjIZL JDKGQh9G5zL3nYvXu0t9JzwXo47xIe4OAC7fh6OiOx4mPhGW5OXkbe/S 7Bt/SgOND23fDtSqJR4j4vcFlTlKL0AERQ7jV 2Ba/ x8PifHgyNXXH33/J7dgelaNsf/hM6Ji7CY7RpCh2ax40mE6UZrcnoPS2jdTTDAd1kSvf5FGWuNUq7Hrpij1AxKYsNXOpW6CwSFLFt PXQew03Y9zwwG2HRHdiyimyNbPEoqdEx6dj2PpOhs4rOdf6jYl4UZH3n8jSOCkHjQ3PnimfSppk UOGWGSggQQZW08TYfYRbtokyvIw oW4qmraH522gSUZrJWlqh0HtaRusoavtYF9anAl0L7z8jYOSwD0OWu2CG1VYWpcxjywYjIKI7wm O R8yjpkhMqStY3oiJ3kuX0za0Le1D 1odmIPZW62EY8638xYePkbdohyOwrhzhz 2oYxRGQGSIo/xHk7ZQNeGIlPfoDtw8g0RusqMHLww3mwPxmxwZRHMh5HAcJNdwjrahralfZx8g4Vj0LE FyHncD5HVE6AOBwOh/NpwAWIw FwOApB6QUoIyMDmzdvho6ODpo0aYK6desK72kZrVME ctEpsgy7du3D9OnT4empiaOIL4ZU e9A0I0qCsv1mJUEVfueS8ilcH JT R6fC0otQBcvXkSLFi0wevRo4c9/ /Zt3LlzB4cOHcLkyZOFdbRNeZK3TFQOKhOZIsoUFxeH/v37o0ePHti fTsCAwOFZcHBwXByckKvXr3Qu3dv4TdTJMr0m5UEVfmdS4qqXx8pn8r3 JxQWgEiR6lVq5bgPAVx4sQJNGzYUHgtD5SpTFQB0nksLS2RTfcrFABVmLQd/REVgTJex KgKr9zSVH16yPlU/kenxtKKUAUKlNrpTBnkuLv7y E2alynjRQmcpEFSG1um2K OhgNzc3obvodTnfw6CM17E4qMrvXFJU/fpI VS x eIUgoQ9ddSGJ2XiIgIjBo1Suj yM/s2bOxih6zK0cKKpO5ublQLuoizIs8y Ti4oJh SZJjI2NhYmJCX7//Xc4OztLlv7HyJEjhVZ8eSLrNyOofPSb5ac8rmNxkPU7E SD9DvTtaffPS K J1LiqzrQz5E3yu/PxPKdn2k5P8edE3oO5BRt2l lPV7fI4opQDRoGH 1kxycrLwx5clQBRS9 3bV/JJPsgqkxQqEzl7XuRZJvqzUeUoCz8/vw/KQvj4 ECrnJ/0WNB1lFZy SmP61gcCvqdC/JDQhG/c0nJf32oQSWr8SJF2a6PlIL m7L l4Syfo/PEaUUIAqRZfWlF/THT0pKwpf0ACk5UlCZCKpQ85dLnmWi7gZZZaFW66BBg2T RvHx8UIfeXki6zej34pESFbFUB7XsTgU9DtLW9gUBZHg50URv3NJyX99yG kkZ2sCFXZro Ugv6b9F3I1/KjrN/jc4QLUBEpqExU6cvqrpBnmQoqixQSofwoiwBRxUYVnCyhVLaK4WO/M5U/v5CqugBJIyBZPqRKAkSNBBIgWXABUh6UUoBkhdT05yCHIsvf704Di5QGK09klYm6LKiPmSqh/CIkzzJR1xANeOeFfhOKLshkdaMoSxeclPwVN1Ee17E4yPqdCWk3J4kp UBeVLkLjqIFaQREfpQfZbs UmT5GZU//7WRoqzf43NEKQVow4YNQt5 UVm4cCGW0NMM5YgylYlSfulPVxyo7PQdyhNlvI7FQVV 55Ki6tdHyqfyPT5HlFKAKEWSwmoaLPwYFBlRbj F1fJEmcpE6cGU7ltQIkJ qHXYunVrIV21PFHG61gcVOV3Limqfn2kfCrf43NEKQWIIGciRzl37pxkyYdInamgbp6yRpnKRHf d03k VjnSNDE0JhEeHi5ZUr4o43UsDqryO5cUVb8 Uj6V7/G5obQCRJBTUctm7ty5wvvExESh5UJ9uBRGK8KZ8peJyqOoMtHAK90oSSmlNAZFn kmSHqlMtBYBLXgacoYRaJMv1lJUJXfuaSo vWR8ql8j88JpRYggsJrummM5uKiFiZlr9AAIvXhknMpAmmZqEKi8iiyTNRNRAPldAMkdf/Q8/vplcYuaJ4yWq8MKNNvVhJU5XcuKap faR8Kt/jc0HpBYjD4XA4nyZcgDgcDoejELgAcTgcDkchcAHicDgcjkLgAsThcDgchcAFiMPhcDgKgQsQh8 PhcBQCF6Bi8CjpBc7fjIXH2XBs8jwLI4fDgk218MKYDXugv8YN/Yx2CUbvaRmtk25H 9C dIyHT/kTGTkczucNF6BCyMjMwsngu1i9 xiGm zGeDMXrHPfjp0nN7HlKxEes/idJabMk2l5t6F9aF86xnizXcIxTVyOwTfoDlLSMyVn5XA4nM8DLkAyyMnNheupYCYQrtiwdyuLW FYwMZrD1swsU6NjBt4yZpGRtXAuJ98g4dylg 0vAqwst6Fnz5/xc 9fEXDpkmRdcRAh 20OHB0doaU1CObmFnj79q1kHYfD4ZQeLkAysDpwDsY7trOo5A/2SbZ4lLXRuVbvtmXR0Sn2uXSE37iLH3r0QmLiMzhs94Kh4YdPtywcpmAMb89jqFBBHZUqVWamjm vXrgnLORwOpyzgAiSDQUt3IebRQvZOtljIy56lzkX/xa7sfemwsnSG0aKlwvt70U/Qr 8QYULGoiMWoM1mdmjcuDE89hzDlzW walT7z9 msPhcEoDFyAZUBLBpM3OCIumSly2WJS10RjRVAtH4dylIfX5a0ydtBD9 vRD8tMERN 5D82uPyE0NFSyRdHZYuaMlq1a4rT/VdSsWZsJUOmjMw6Hw5GiEgL0LPWl5F35QCJw/uaPTBCsMd7MCa6nNgoCUZbjQJlvZuPW/cXCsWdYObHz2OJsWK9SC1BKygvojBgJO1c3PM8B9rgdRecu3ZCekS7Zouhs2eSMFkyATvld4QLE 4XDKHKUXoLSXr6GzyhOJKeX3lEmxCKgJFvWgFdxP62KJ00YMWb4TYzY4C NDtkes2HJTHL60Bv6hKwWjhAJpxhu9ly6nbWhb2of2JVGjY82328QESJ8JUZt35yutANnauGD0u Ik4HpuFvVGpiI1LhZaWIcw2bZZsUXQEAWrZggsQh8ORC0ovQJu9L2PQci Y7Cr4SYdlTV4Bym8PnzbE1ajOTFQGMFEZAasDk2Du/QfWuS DkcN6Zlskth6rdy8X1tE2tC3tQ/vSMWQdm6w0ApSVBejqTICFkzscI3NgHZKOgPgMJhzX0LaNBiIjb0u2LBokQM25AHE4HDmh1AIU8 ygZQ008MdopAkNXerNI4YlkjXwpTIDkbSURoNwcEXKy3 JZUjr6/aKFFVYO2BUtwtbQNBy5l4ynKZlYMHc1tEfoQCQSJxgUBakA Z0M5ALE4XDKHKUWoFlbj0PPKgDjXKKgZx2I8ZuPlMF9Mh9HpQSI7vmxcESbNm3Q rv2qFatJurUr4/1O/fjUsJLRD Mhyg3BxG3/kWrlu2xfr0pvPcfwDr2amFpjtDQYLx6Kbt7UxCgFiRAPALicDhlj9IKEE1Xo732kCA UtNedwQ gX9LtpAfqiRALPDB5Inz0atXb3juPYiduw7AdI01Omv0wNARejAcORLBwaEYN3YC6jdoghYtuqF d x/RqXNvNG3WAVWqfIPmzb/DmNGj4e7ujujou8jJyRGObWXhKomAuABxOJyyRykFKCs7B9qrvWBgd 09ATLcfh3DTDyEKXLkiSoJUE42MGniXMyYOQPRd//Bb78NxIlT5/DkWQZ8fM7g0FFfTJ32B1s AA jI5ES64EXD yQ8dAS/97xxgmfY1i02Axdf/gF1WvURtUqVaHZWROLFy3C2NGz0LJVK/ifCsJXX9XB6dOnJWflcDic0qOUAuR6Kgy6G0 8Jz5S0zE7BetDQZIt5YMqCVAWC1YmTp6LSZOnYcGC5eiq2QtNmrTBzFkz8eLFC4hyAX3dSbAw38 a2vgRRVEOIwti5Qpnd/AK41xGi HlIjfNEaNAFbLV3x3DdKWjYsB3U1CqjcuXK6KbxA9QrVYHd9m3IzCzflHgOh/PponQCROnWQ5bvFRIPZAnQGOdbGLzcQ66zSauSAL1lAjRlmhEGDx6Jnj/ inWmm3D29HU0b/49/pj7u7DNuLGz2fINCA25jNBAD2QmWgAPhwCRtYEQNeQwQRKFVWTi1ASIG4OsBGfE3r2II0f9MJ9F R5rdPrr ozQarAxK0JRo0yxK5dLoiKino3P1xxkhs4HA6HUDoBWrX7T htOStTfKSma3EBc2xPSvYoe1RNgCZPXcBEYRz8/a5CQ6MHduxwg//JYDRv2Qp37sRg/rzVWLhwGfR0x6BOvW/Rs cALDE2QsC5rXjxzzImOv2AqK FqCj3OisHRUfhNSGK7YPcx1uQ/Og8gq8GwsZmN4YOHYV67BhqampQV1dHhw4dscx4GV5nvpaUiMPhcIqGUglQeMxjDFvpjbE7b8sU nv8sEsNW78fVqIeSPcsWVRSgiRMnCJ8dbb3xW/9fkZKSBV3dKRg7biImT56FP YswfDhY2Fr64xdLoehrz8NbVp3RTuNnpg5dTJO7F NlMiRyL3BoqGYH/E21oBFRG0EQcoJVwfu9wEyfJCdk4OHcUnw9QnAEiNTtGzRgQlSPSQkPGYCZY0ZM2bi3r0YoSwcD odTGEojQJRePWHzESHdWrbovG8jtwVj5Lr9QsJCWaNKApSVDUydZoSOHTsg7HoYHLa7Y/gwLYgyQ3HiWAhatOwM9SrVMG/ecowYMQ6bNltj1uw5yHj5Cg9in2CvxyGMHrsA/ s7DJf 3A8kWWL/Pgd0/6E3liwajdSY5ch YofYuycRHR2MmHt/4/79f3A9NAShIeGw2LwDDRs0xSqTzeik0RVjRk BtrYe0tOLP/UPh8P5vFAaATp 5Q501x RKTYFmfb649h7NlxyhLJDdQRIhKwsEdxcj6Fb196o8WUt1KxRGwb62sj9dxhexu/D/YfxCGFiEXXrAQZp6cFo4Vr0/vlXvHr1XzJBSsobuLp54VLAGYRcv4V27bvAdK0Vpk4ywo0b4XickIrfZ89i4mKI6VNnYsWyleim 2RVag4bAymIn6tRpAn3d6Vi fBWLgnbAxaV4IsrhcD5PlEKAKK2a0qtHOYTJFJqCbLTjTQw23lvmTxNVpQhIRGlujIyMbFw4fwN/zDGGlaUFENMHohvVkXvvR DfCXjxPA0DBo5kkcpWaGj8CHsHWzx4ECvsm5b6Bvp64 Fkv535wW107tIdvr5ncOTIUSTGJ DggaP45ptG2OWyB/H/PkFM9EMmOBMwcMBgWJozAarbADt3HEb79t0FEbSzsxWOy FwOIWhFAJkfTAIupv8ZIrMx0xn82msc78gOVLZoEoClJ2djZN J7ByzQpY21jjtP95JKckMlXZB0R3Qy4lFES0QFryE/Trpw8Dg4lMoFxhaDgTXbr8gMGDh8LC3A6//TYYRw55Iz1dhAUL1mHm7AVwcXTCrRB73Ai5i9q1m8LfX3wjKjslJkyYi/4DB7F9XZgA1cP9 /E4d/YqvLwPIjX1ubAdh8PhFIbCBYjSqYcs9xDSq2UJzMeMEhaGmHgi6sFTyRFLj6oIUNabt5g fZaQkZbXGjduiFkzf0fAxaN489QJSJyNjDR6OuohdNbsgWbNvsP48dPh6OCBdWu34pf/DcG8BUsRcNod6fc3IunZAyQ8TkHUFQe8 HsIwq7fwze1v4Wfn/iBdFlvRRg/bi4GDNCC5RYXJk51kZSUJKzjcDicoqJwAZpndxJ6lhdkiktRTc/6EqZYHJMcsfSoigAd3OcrCE7vn3 Bu9t bNpoi8kT56F vZbCcvWKVfBTr9 wx9MNLyVJAfGPUuG224dFPNqoV78R vT9DXZ2LoiIjMbD2xeRHlgVotiBEKV5IubPDsA/vXAj/AHq1Pn23VNVqddvyiQjDBw4GNusXVG3bl0kJycL6968eYO0tDQkJiayqOg Iv6KQHBwMM6coS69w3B13YUtW7Zg27Zt7 4h4nA4nycKFaDAWw gveYAE5HID0SluDZ8zUGcCrknOXLpUBUBWrtquyA0W61tMWyYDrpq/h OH/PDzeuhMF6xDS1ba7yLijq274gdO12Q8SpN2Df1eRb8/UIwYfwcfNuoBVauXom/bp5G5t 6yPx3FVKfnMU1/4WIuroMXl4 qPV1PaxduxYHDx6AjY09O9cvLNJqih969BZmS/jpp5/Qtasm2rRtg0aNGqFmzZrCcun5pVahQiXhVVtbWygHh8P5fFGYAFH6tIHpfiGdWpagFNcM7EIxYp UXMt UvlWtKgJkY 2J6jW wogRY2G0YDmMl27G4SP7WZgzCm/uzETEjUCsN3XB9 26vhOA9u07YMeOHXjxQixEuTlA5F8P4Hv8FLw8XTBujAEGDx2Gbba2 D8WWampiQXjQ6uASpWqoNoXX6NRw Zo1vQ7dGivySKuPhg6xIBFSHOwdMkaWJpvx 5dXjhy ATOn78Mk VbhP3t7OyE83M4nM8XhQmQ57kI6G08LlNMSmraG0/A/nio5AwlR1UE6Iz/ddSp/S20mQAN1tLGzh3uuBRwERlPzzARGgJRZGu8ituIiIgwJkTb8X3bzqzyr4xOGj1w4cIF5OS8RWDg JSxatBjr15th0oRxgjg0b94KDg7OMF62CoMG6jIxmY9lS01hscUeu3Z64 C Eyx6uojLAaEIvxGF239FIyoyBhE3o3A9NBwXL1zCyZN 2OftDUdHB3bs9Zg3fyEsrWxhskIsQJcvX5Z8Cw6H87miEAGitOkhKzyENGpZQlJSG McIRz3UdILyZlKhqoI0KP4VPT9RRvduvXCr/2GC6/1GjQQstu8vL3wKukw8O9vyP27KzJT/kTkrWe4fOkasyChO61Dhw6CGKhVqAAjo0UsWjGHnY097t6JxZvX2Xj0KBEXL15mkdF 7HDeAXPzLVi6dCkmT54CXR0d9O3Th52zq/DY7gb16uHrmrVQ8 u6qFvvW7T6rhN69OiPYcPG4/c5q7DF3B4BgSGYMWUxqlSpiri4 5JvweFwPlcUIkCUNq1nfkamiJTWdLecg5Fj6R4boCoC9CYrB7tdfVCt2leYPm0 Ai Hw doALQGGTBhqYCO3XrAY 8eFhF5AqIYPH RCX29kahcRTw20/jbZhg9ajz2uHsiKSkFT548xcuX4htU09m2O3fsweLFi9G5S2eoq4v3qVixEpo0boG2bbuga/dfMHjEePyxYCXMrXfDc98pXLoUgqi715GYEISXSX8iJ UAkGwGJK1G1utUjDGYizp16 D5c56qzeF87pS7AFG69BATzyLM91ZSi8SwlfsQFp0gOWPxURUBopkQnjxJw JFZlCvrA4HJwdh6ePHaXC0348O7XoIotFJ80cEXw7B3ZgnaNK0jTCJKCUJTJ06DdeuheDt22xhv 6fPnjIhegYzs40IDgrHEC19TJ8 Df7 ZxEQEIorV24iMjIGCQlPcPvmVbxICkZO2gUgzR14tpaFZBOFCUzxd1uIIuog90ZVYS653BA1iMK/QcaLexg9bj4a1K8nPCqCw F83pS7AE2zPCakTcsWj7IxfZsgGJoeLPHju1VJgIi4uBTMmm0iRCfrTdeypSLkMk259dcjLFtqg cqVq2HpkiVITspE 3aa PHH3rC384SuzgQ0atQSrVu3wUj9EbC1scQeNy80bNgIly FoWOHHuii0QXPnt5BYtQGxN9YgPir4xB77hc8Od YiUoNiMIqQBTKBIaJDD3aQTC6 ZVm1abnDrFXev6Q6EY1vMoIh9FiK1SvXh3x8fFC2TkczudLuQqQf g96OR7zLa8TGe9Dw4GRErOXDxUR4DEkAzFxaVi4YINQprzuHFjkZoqvi8nOektfu2ngx4/dMeTx6nYaOqETp16onPnbti82VZ42qmF S7hWULVq33NRKwKmjZvgr8i/kG7dl3RtrUGXj07g5wbVZDDxIVmVhAeaHeTGYlMfpOITn7LZcuz006wKO20EJWdOHFCKB Hw/l8KTcBovnetFd5wXB7qEzBKGsb5XBDeLBd2sviP6dG1QRIjAjxCS wceNOJiS10b5DOwRdvYKcHGDjBkcmTBXRsWNHtGrVFr7HLsPSYjeLfDqhTZv2MNtkib9u3UfApV sYPEQfTZo1Rnh4DBOfLqjXoBmexv0JRHwpCInoekUh6hELDXvNJzQFGQlXziMjXAmNQ4O6TWFgM FJSbg6H87lSbgLkcDwEumYnZYqFvEx782ls3lf8dF/VFCAxz1New3OvP9q20RTGhZabLEPotWiYb3LB0CGGcHbeieCrobCx3oGgwLtYt3YbmjT9Dt82bo xVa9Zh4oQ5qF /LgKv/IWWLTtAvUp13A7bD0TWEouJtHutmEZRU25UOzx9dh9Tpq8Qynbj5g1JqTkczudIuQgQpUUPXUHz vcl zLa8jOaXG2riiZhH4u6ooqLKAkSR0OvXWbhyORq62lOEbLhW330Hu21OeBSfiMxXb2CgP1boBuu o0RGurp64GfYAixdtRKNGrYTl1WtUg8 xC9Do1F347OfrBNxpLlNYimrCOFCIGt4mWOHMxSg0aNgSenojJGXmcDifI UiQIudTkPP4rxMkZC36VoFYIbVcUlJioYqCxAlIAA5yM0V4cH9NFhb7mKRTDtBSGrXqYOmTVsIy QokTLTM3MJc2C8jPRvBQfcwY5qxsHzv3iPQ1hHfmGpubgbE/U9IMBAV2O1Gy8kqij T4FA3HUVMtB znIgKEN0fgFev0mCzdS qsujq PHiXRsOh/PpIHcBCrkTj Gr9jMxKP18byW14WsO4FzYP5ISfRzVjoDyIsKrjCxcC7qDeXNN0ehb8SSlZJUqqWPBggUfTAgaE vwP6tZrzCKiFdi2zUPYdsCgYch5vAo51I0WJhGYfCZiy3MpI469p/EeSr3ODavCIqdWLAQ2hCjZEqmPfRB8xRdWVlvQr4 WkDBBUwOlpBQvQuVwOJ8GchUgSoMeveGgkBYtSxjKywzsrkF3jXeRH9/96QgQfV9xqnZa2hsEX/0bjvYHYLHZCZcuBkH0Xpo6bZeLpKRM4Vk/rVu3xfnzEWjbRgMV1avi6mUP4G4zQWDeEx KcJhRhJN7sxJy77QA4nWBFAukP/HFjesn4eDkBD2D0Wja/HsmaOqCqH39VT382k8LpqYbkZBQ8nu2OByO6iJXAToUEAnd9cdkikJ5m/YGX7j4XZeUrHA HQH6GGJxEiMWINKkM6dD0aBBM1ha2cNsg7MgGDr6Y5H9bI1wY6lw3w 9UjR0uzHwYBjw3BSvU3wQGXEOu932YvyEafiudTtUqCSezLR6tZrQ1OyF QuWwWWnF2JjHuHgvpPo3q0X5s79Q1wEDofzWSE3ARIes71ir1ChKosNXLK7SI/vHrTUBZlvqrJ3skVCXpaVXVkop2IRIfnZaxgvsRYerXD bBR6/vCrICIuLjZAgiEQ1xdIXoes58cRffe0MO/cjBm/Q6NjD6irVxO2rVq1Otp93wVTp8zBdjtXBARcY5FOMmbPnoemzRrj3LlzuBYUDQO9mTA2XiE5N4f D ZyQawSkqmzyPIF17kuYiFZnn2SLRVkbncvcey5W71b0oLw4Koq8lYBf/jcc06bPxn7vC6hR4yvUqlUHR4544JjPYcydbwzN7r3xxRdfCYKjXqkK2rTpiJGjJmLrVid4ehxC IhOcixeCmDB1Rs9ePfHgQSLcdh F9ojRCAq6Ipwn/cUbiER5IzEOh/O5wAVIBjR2tfXQeQw32QmrA7MRFt2BLavI1sgWj5IaHZOObe8zGTqr6Fzny R5RqUnF1lvsnHKN5xFQRrYueMAli4VP0ZBmj1XQa0iWjRvBW3tkTAzs4bn3qM4c/oCXr3KZhGNKSqpq2Od6QbE/JOCFSY2MF6xCunp6ey4OXibJR2L48LD4XzOcAEqBOqu8/4zAkYO zBkuQtmWG1lUco8tmwwAiK6Izzme8Q8aorElLqC5Y2Y6L10OW1D29I tK/VgTmYvdVKOOZ8O294nA1n22UI51QOxMKQ9jwLDvYHoKn5E074XsUog1n4rf9grFltBi/Pw/D0PIjoe7G4fTsWXTr3wJc1v8S1q2G4dPFvzJtrgjNnzwrHyWSiQ0fkkQ6Hw8kLF6AiQlHR3X T4Bt0B06 IUJXmZGDF8ab7cGYDa4sgvlwzGm4yS5hHW1D29I Tr7BwjHoWEXNylMMJBa5eBSfDr TFxD34AHOnbuCPXu8kZH Cls22bJISB3Dhg9HwqM07Nl9EutNzfH02WPkMqHJzuZiw FwCkdpBSgjIwObN2 Gjo4OmjRpIhi9p2W0jlM SKOWu3ce4Kf/6yd0v7m77UHM3WRYWTjj1Ck/YT11q4k35cLD4XCKhlIK0MWLF9GiRQuMHj0ahw4dwu3btwWj95MnTxbW0Tac8uNF2hsEXLgNR0d 3PE58JCzLzcl7HxG9L9njLzgczueJ0gkQCUutWrUEsSkImsq/YcOGSjWl/759 zB9 nRoamriiyEF7ps4eHh2QLDofD4eRFqQSIutYouilMfKT4 /sL3XKpqamSJYohLi4O/fv3R48ePbB9 3YEBgYKy4KDg Hk5IRevXqhd /euHPnjmQPDofD4RBKJUA0vkPdbnkxMTGBubk5Ro0aJVnyH7Nnz8aqVaskn8ofEhqKxCwtLZGdLX 6stSxImGg76kbkcDgcjhilEiBKMpAV/SQnJ2PQoEGST/9BXXB9 /aVfCpfSHAourGxsZEsKRw3NzehW 716 I/II/D4XA RZRKgKhLLX UQF1aFP04OztLlvxHUlISvvzyS8mn8sXFxQXDhg2TfPoPEkvqjqNy52fkyJFCtMThcDgcFRAgKb IiIEUKEHUVkgjlh7oLKSFBlgD5 PhAS0tL8km54UkVHA5H3iiVAMnqgpOOAf3SJf9BiQg0wK8IKFkiv1jGxsYKZSXxkSVA8fHxQoaf MsOTKjgcTnmhVAK0YcMG4T6forJw4UIsWbJE8ql8kRWtUdRAgkliKUswlV2AeFIFh8MpT5RKgCi lmir2otzfQy1zqgSpG04RUBccJRbIoqAISJm74HhSBYfDKW USoAI6U2m9LyYgpCKT1HuF5IXFAVQl2FxoOiOojxlRFZSRUREhBDJUbcidS/mhydVcDic0qB0AkSQCFEkNHfuXOE9RTlkNOZD3W6KFh CIgaKAGQlIsiCytu6dWulncdOVlKFrG7EvKhSUgWHw1E lFKACOqOo5tM6T4fynQjo8FvGvNRVLdbfmggnsTwYyJEmWM09hMeHi5ZonzISqqQRj UBi rS1EVkio4HI7yorQCpCpQpU1jJySUlIRAn2lchF4p6qEIgSIlyiJTZmQlVUhnnyDxISHKDxcgDo dTGrgAlQHUHUeD8jQmQt1s9MgCeqUxIkpdLiyjTFmQlVQhzeojIZI1BsS74DgcTmngAsQR NSSKjgcjvLDBYgj8KklVXA4HOWHCxDnHZ9SUgWHw1F uABx3uNTSargcDjKDxcgzgd8CkkVHA5H eECxOFwOByFwAWIw FwOAqBCxCHw FwFAIXIA6Hw EoBC5AHA6Hw1EIXIA4HA6HoxC4AHE4HA5HIXAB4nA4HI5C4ALE4XA4HIXABYjD4XA4CoELEIejQ B4lvcD5m7HwOBuOTZ5nYeRwWLCpFl4Ys2EP9Ne4oZ/RLsHoPS2jddLtaB/al47x8Gmq5KgcjmrABaiI8IqCUxZkZGbhZPBdrN59DMNNdmO8mQvWuW/HzpOb2PKVCI9Z/M4SU bJtLzb0D60Lx1jvNku4ZgmLsfgG3QHKemZkrNyOMoJF6AC4BUFpyzJyc2F66lgdt1dsWHvVtYQW cF8bA5bM7NMjY4ZeMuYNXishXM5 QYJ5y4dbH8RYGW5DT17/oyfe/ KgEuXJOuKgwjZb3Pg6OgILa1BMDe3wNu3byXrOJ8jXIDywSsKglcUZY3VgXMw3rGdNTb YJ9k 0RZG51r9W5b1ug5xT6XjvAbd/FDj15ITHwGh 1eMDQcJVlTVJhjMrw9j6FCBXVUqlSZmTquXbsmLOd8nnABygevKHhFIQ8GLd2FmEcL2TvZPiAve 5Y6F/0Xu7L3pcPK0hlGi5YK7 9FP0G/vkPg7 8vfC4aYr/abGaHxo0bw2PPMXxZ4xucOuUnLOd8nnABygevKHhFIQ9obHDSZmeERdO1ke0DZW3U9TvVwlE4d2 lIff4aUyctRL8 /ZD8NAHRd 5Ds tPCA0NlWxRdLaYOaNlq5Y47X8VNWvWZn5V kYXR3XhApQPXlGI dQrisSUDMm78oGu7fmbP7LrbI3xZk5wPbVRuO5l2b2b WY2bt1fLBx7hpUTO48tzob1KrVfpaS8gM6IkbBzdcPzHGCP21F07tIN6Rnpki2KzpZNzmjB/OqU3xUuQBzlFyBeURQdXlEUjbSXr6G72qtcfUt8bdUEi3rQCu6ndbHEaSOGLN JMRuchW5f2yNWbLkpDl9aA//QlYLROCH5Hxm9ly6nbWhb2of2JV lY82328T8Sp/5V5t35yutX9nauGD0uIk4HpuFvVGpiI1LhZaWIcw2bZZsUXQEv2rZggsQR0CpBYhXFMWDVxRFY4 PHJQw09sSq3X9KlsifvH6V3x4 bYirUZ2ZrwxgvjICVgcmwdz7D6xzXwYjh/XMtkhsPVbvXi6so21oW9qH9qVjyDo2WWn8KisL0NWZAAsndzhG5sA6JB0B8RnMH66hbRsNREbel mxZNMivmnMB4khQagHiFUXR4RVF0Yh5lIyhJp4Y7RSBYSu9WQPgiWSNfCnMr RtJfGr3BwRcrLf4llSOvr9ooUVVg7YFS3C1tA0HLmXjKcpmVgwdzW0R hAJBKPGxYFqV/5nQzkAsRRXgHiFUXR4BVF8ZhhdRy6VgEY5xIFPetATNxypAzS3z OSvkVcxMrC0e0adMGrb9rj2rVaqJO/fpYv3M/LiW8RPTDeIhycxBx61 0atke69ebwnv/AaxjrxaW5ggNDcarl7J7LQS/akF xSMgjhILEK8oigCvKIrFubB/MGLtIcGnpKa7/giOX7kj2UJ qJJfsfYMJk cj169esNz70Hs3HUApmus0VmjB4aO0IPhyJEIDg7FuLETUL9BE7Ro0Q3t2v ITp17o2mzDqhS5Rs0b/4dxoweDXd3d0RH30VOTo5wbCsLV0nDhgsQR0kFiFcURYNXFEUnKzsH2qu9YWB37T2/Mtx HcNMPEAzX8gTVfKrnGxg0sS5mDFzBqLv/oPffhuIE6fO4cmzDPj4nMGho76YOu0PtnwAHkZHIiXWAy8e2CHjoSX veONEz7HsGixGbr 8Auq16iNqlWqQrOzJhYvWoSxo2ehZatW8D8VhKqoPTp09Lzsr5HFE6AeIVRdHhFUXRcfG7Du0Nv u/5lNR0N/lh22H5 r8q VUWa4NMnDwXkyZPw4IFy9FVsxeaNGmDmbNm4sWLFyyqBvR1J8HCfBvb hJEUQ0hCmPnCmV28wvgXkeI4uchNc4ToUEXsNXeHcN1p6Bhw3ZQU6uMypUro5vGD1CvVAV227ch M/Ol MSczw6lEyBeURQdXlEUDcqiHLx8rzCeKMuvxjjfwtAVHnKdJFaV/Oot86sp04wwePBI9PzxV6wz3YSzp6 zaPl7/DH3d2GbcWNns UbEBpyGaGBHshMtAAeDgEiawMhashhfiYKq8h8rgkQNwZZCc6IvXsRR476YT5r9Gh274 vv6rP/KwC89kmGDXKELt2uSAqKurdtE/FGbPkqCZKJUC8ouAVhTww2XUOulvOyvQpqelZXsA8u5OSPcoeVfOryVMXsGs9Dv5 V6Gh0QM7drjB/2QwmrdshTt3YjB/3mosXLgMerpjUKfet jZcwCWGBsh4NxWvPhnGfOlfkDU10JjJ/c6Kwc1esJrQhTbB7mPtyD50XkEXw2Ejc1uDB06CvXYMdTU1KCuro4OHTpimfEyvM58LSkR51NFq QSIVxS8oihrwmMeY hKb4zdeVumP/1nkRixZj uRj2U7Fm2qKJfTZw4QfjsaOuN3/r/ipSULOiyCHnsuImYPHkW/pizBMOHj4WtrTN2uRyGvv40tGndFe00emLm1Mk4sX81UiJHIvcGa TE/Ii3sQasodNG8LOccHXgfh8gwwfZOTl4GJcEX58ALDEyRcsWHZif1UNCwmPmd9aYMWMm7t2LEcrC bRQGgHiFQWvKMoaypocv/mIkEUp25fet5HbgmGwbr8wDlnWqJJfZWUDU1lk3bFjB4RdD4PDdncMH6YFUWYoThwLQYuWnaFep RrmzVuOESPGYdNma8yaPQcZL1/hQewT7PU4hNFjF B/fYfh0p/7gSRL7N/ngO4/9MaSRaORGrMc2U/sWKR9EtHRwYi59zfu3/8H10NDWKQeDovNO9CwQVOsMtmMThpdMWb0FGhr6yE9vfgzenCUG6UQIF5RiI1XFGWLT Df0F53RKYPFWR6G4/D81yE5Ahlh r4lQhZWSK4uR5Dt669UePLWqhZozYM9LWR8wvIzfh/sP4xHCfCDq1gMM0tKD0cK16P3zr3j16r8xwpSUN3B188KlgDMIuX4L7dp3gelaK0ydZIQbN8LxO CEVv8 exXzGENOnzsSKZSvRTbMrtAYNgZXFTtSp0wT6utOxfPkq1rjZAReX4v03OKqBUggQryjExiuKso OyJSlrcpRDmEz/KchGO97EkBUeZf6QQNXxKxrTE99vl5GRjQvnb7AI2hhWlhZATB IblRH7r0fgX8n4MXzNAwYOJI1QLZCQ NH2DvY4sGDWGHftNQ30NcbDyf77axuuY3OXbrD1/cMjhw5isT4BBw8cBTffNOIReR7EP/vE8REP2R NAEDBwyGpTnzq7oNsHPHYbRv313wbTs7W G4nE8LhQsQryj M15RlB2WB65A28xPpu98zHS3nMEGjwDJkcoGVfKr7OxsnPQ7gZVrVsDaxhqn/c8jOSWROcs ILobcmmcMKIF0pKfoF8/fRgYTGR 5wpDw5no0uUHDB48FBbmdvjtt8E4csibRcQiLFiwDjNnL4CLoxNuhdjjRshd1K7dFP7 4vvL2CkxYcJc9B84iO3rwvyqHou243Hu7FV4eR9EaupzYTvOp4XCBYhXFP8ZryjKBsqSHLzcQ8i alOU3HzMahxy60gtRD55Kjlh6VMWvst68xfTps4REk7zWuHFDzJr5OwIuHsWbp05A4mxkpNFDDw hs2YPNGv2HcaPnw5HBw sW7sVv/xvCOYtWIqA0 5Iv78RSc8eIOFxCqKuOODF30MQdv0evqn9Lfz8xM ZynorwvhxczFggBYst7gwn6uLpKQkYR3n00WhAsQriveNVxRlwxzbk9C1uCDTZ4pqetaXMM3ymO SIpUdV/OrgPl/Bj3r//Avc3fZj00ZbTJ44D/XrtRSWq1esgp96/YY9nm54KRnri3 UCrfdPqwho4169RuhT9/fWCTsgojIaDy8fRHpgVUhih0IUZonYv7sAPzTCzfCH6BOnW/fPSyRgvkpk4wwcOBgbLN2Rd26dZGcnCyse/PmDdLS0pCYmMgaO/cR8VcEgoODceYMReqH4eq6C1u2bMG2bdv4o NVDIUKEK8o3jdeUZSewFsPMHzNAeYbkR/4SnFNZ 0h Ifekxy5dKiKX61dtV3wn63Wthg2TAddNf8Px4/54eb1UBiv2IaWrTWE9WQd23fEjp0uyHiVJuyb jwL/n4hmDB Dr5t1AIrV6/EXzdPI/NvXWT uwqpT87imv9CRF1dBi8vH9T6uh7Wrl2LgwcPwMbGnp3rF9aAaoofevQWboL 6aef0LWrJtq0bYNGjRqhZs2awnLp aVWoUIl4VVbW1soB0d1UJgA8YriQ MVRemgrEj9tfuELElZflJcM7ALhfYqL2SyaLO0qIpf2Vh7onqNrzBixFgYLVgO46WbcfjIftZ6G YU3d2Yi4kYg1pu64Pt2Xd9d1/btO2DHjh148ULsX7k5QORfD B7/BS8PF0wbowBBg8dhm22tvg/1mBSUxP7wYdWAZUqVUG1L75Go4bN0azpd jQXpM1pPpg6BAD1vCZg6VL1sDSfDt27/LCkcMncP78ZZgs3yLsb2dnJ5yfozooRIB4RSHbeEVROvaeDYf2 uMyfaSkpmt2Eo7Hi/9I8/yoil d8b OOrW/hTbzq8Fa2ti5wx2XAi4i4 kZ5ltDIIpsjVdxGxEREcb8azu b9uZXdPK6KTRAxcuXEBOzlsEBl7CokWLsX69GSZNGCdc8 bNW8HBwRnGy1Zh0EBd5iPzsWypKSy22GPXTm8W0Z9gjaKLuBwQivAbUbj9VzSiImMQcTMK10PDc fHCJZw86Yd93t5wdHRgx16PefMXwtLKFiYrxH51 fJlybfgqAoKESBeUcg2XlGUHMqGHGy8V8iOlOUfJbUxzhHC9E Pkl5IzlQyVMWvHsWnou8v2ujWrRd 7TdceK3XoIGQtOLl7YVXSYeBf39D7t9dkZnyJyJvPcPlS9eYBQlRcocOHYRrrFahAoyMFrFGiDn sWNR8904s3rzOxqNHibh48TJr8OzHDucdMDffgqVLl2Ly5CnQ1dFB3z592Dm7Ck/jbVCvHr6uWQs1v66LuvW RavvOqFHj/4s4h P3 eswhZzewQEhmDGlMWoUqUq4uLuS74FR1UodwHiFUXBxiuKkrPG7YKQFSnLN0preubnsNipdLOBq 4pfvcnKwW5XH1Sr9hWmT5uPwMvh8DkaAK1BBsxfKqBjtx7w2LuHNXQ8AVEMnr/IhL7eSFSuIu5ybfxtM4weNR573D2RlJSCJ0 e4uVL8X1n6WzbnTv2YPHixejcpTPU1cX7VKxYCU0at0Dbtl3QtfsvGDxiPP5YsBLm1rvhue8ULl 0KQdTd60hMCMLLpD Rk3IASDYDklYj63UqxhjMRZ26dfD8OU/VVjXKXYB4RVGw8YqiZFAW5GDW Pj4NE4ltUgMX7UfYdEJkjMWH1XxK YszBfSsHiRGdQrq8PByUFY vhxGhzt96NDux6CL3TS/BHBl0NwN YJmjRtI8wNSGN/U6dOw7VrIXj7NlvY7 mzp8y/nsHMbCOCg8IxREsf06dPg7//WQSwKPrKlZuIZBF0QsIT3L55FS SgpGTdgFIcweerWUtrYnCvIT4uy1EEXWQe6OqMEVUbogaROHfIOPFPYweNx8N6tcTZoDnqBblKk C8oijceEVRMqZYHBOyIWX7RNmYvk0QRq8/WOKn8qqSXxFxcSmYNdtEaHSsN13LloqQy1zl1l PsGypBSpXroalS5YgOSkT7dtp4scfe8PezpNFxxPQqFFLtG7dBiP1R8DWxhJ73LzQsGEjFn2HoW OHHuii0QXPnt5BYtQGxN9YgPir4xB77hc8Od Y UoNiMIqQBTK/Ib5Ds3YLhjd00aT5dLjRNgrPVZEdKMaXmWEw2ixFapXr474 Hih7BzVoVwFiFcUhRuvKIrPqZB7GL7moExfKGvTXX8MhwIiJWcuHqrjV2LIu LiUrFwwQYhe3HcuLFITRWn2ycnvcWv/XTQ44fuePI4FRtNndCpU0907twNmzfbCg8xtDDfJTwipHq1r5lvVkHT5k3wV8Q/aNeuK9q21sCrZ2eQc6MKcpjP0A3TwnOqbjIj38lvEl/Kb7lseXbaCdb4Oi00tk6cOCGUj6M6lJsA8Yri48YriuJB0ziNWOUFw 2hMv2grG2Uww0MWb4XaS L//gJVfMrMSLEJ7zAxo07mX/URvsO7RB09Qroqe0bNzgyf6uIjh07olWrtvA9dhmWFrtZg6YT2rRpD7NNlvjr1n0EXLqFwUP00a RZY4SHxzCf6oJ6DZrhadyfQMSXgn IrlcUGjNi/2Gv fynICN/zHlkhCuhcWhQtykMDEZKys1RFcpFgHhFUTTjFUXxsD8eCu2NJ2T6gLxMb8sZmO8PlJSg6KimX4l 5nvIannv90baNptDdu9xkGUKvRcN8kwuGDjGEs/NOBF8NhY31DgQF3sW6tdvQpOl3 LZxY6xasw4TJ8xB/fp1EXjlL7Rs2QHqVarjdth ILKW2EekUXMxjRpDuVHt8PTZfUyZvkIo242bNySl5qgC5SJAvKIomvGKouhQtiNNRkvZj7Kuv7x MeCqviSdiHomjzKKiyn5FDZzXr7Nw5XI0dLWnsCi2Alp99x3stjnhUXwiMl 9gYH WCG67ajREa6unrgZ9gCLF21Eo0athOXVa1SDz7EL0OjUXfjs5 sE3Gku01 KakL3LovM3yZY4czFKDRo2BJ6eiMkZeaoAnIXIF5RFN14RVF0jBxPQ9fivMxrL2/TswrArK3HJSUpGqrsVzSuCOQgN1eEB/fTYG25izVQ2gn UbtOHTRt2kIYgyR/o2XmFubCfhnp2QgOuocZ04yF5Xv3HoG2jvh M3NzMyDuf8K4oajAaJqWk1UUfyY/YiY0hGg/ZjkRFSC6PwCvXqXBZuteVGWNpmPHym5qLo58kbsA8Yqi6Pa5VRTHjxfv2kgJuROPoSv3sWtc mmcSmoj1hzA ZviR1oUBVX2q/cR4VVGFq4F3cG8uaZo9K147kGySpXUsWDBgg/m QsJ/gd16zVmDZ0V2LbNQ9h2wKBhyHm8CjnMT3LDJH6Tz0RseS4lurD31I1LGZW5YVVYg6gVa9kaQpRs idTHPgi 4gsrqy3o10dLGAdt1649UlKK1/DkKAa5ChCvKIpnn1tFQVMDFbeioOxGQ9ODQrajrOtdXmZgdw16a72L/FTeT8ev6PuKMzDT0t4g OrfcLQ/AIvNTrh0MQii97JPabtcJCVlCo/waN26Lc6fj0DbNhqoqF4VVy97AHebCX7znk9Rw4UZNVxyb1ZC7p0WQLwukGKB9Ce uHH9JBycnKBnMBpNm3/P/FRd8NWvv6qHX/tpYd26DUhIKPmtGJzyQ24CxCuK4tvnVlGYmm4sdkVxMCASOut9ZF7r8jZ9sxNwPRUmKVnhfDp 9THEPidG7FfkamdOh6JBg2awtLKH2QZnwQ909Mci 9ka4X4xIZ2fXqmRc7sx8GAY8NwUr1N8EBlxDrvd9mL8hGn4rnU7VKgknqOwerWa0NTshfkLlsFl pxdiYx7h4L6T6N6tF bO/UNcBI5SIzcBUtWKYtBSF2S qcreyf4zy8uysivziuIjUDbl0BV7hd9JWWzgkt1Feirv5 NXshAh dlrGC xFmZMP382Cj1/ FXwDRcXGyDBEIjrCySvQ9bz44i e1qYTmrGjN h0bEH1NWrCdtWrVod7b7vgqlT5mC7nSsCAq6xBkwyZs eh6bNGuPcuXMs4o Ggd5MGBuvkJybo8zIRYBUuaLY5HkC69yXsO9QnX2S/acua6NzmXvPxerdJRsTKTt4RSEvPne/IiJvJeCX/w3HtOmzsd/7AmrU Aq1atXBkSMeOOZzGHPnG0Oze2988cVXgh pV6qCNm06YuSoidi61QmeHoeQyPzo4oUg5m d0bNXTzx4kAi33UehPWI0goKuCOdJf/EGIlHeBhZHWZFbBKSqUNfh1kPnMdxkJ6wOzEZYdAe2jLX2ZfzBS2N0TDq2vc9k6Kyic50vk8dJl A5eUciLz9uviFxkvcnGKd9w1rjRwM4dB7B0qXh2dGlSTAW1imjRvBW0tUfCzMwannuPsoj8Al69 ymYNFVNUUlfHOtMNiPknBStMbGC8YhXS09PZcXPwNkvaxc6FR5XgAlQAFC15/xkBI4d9GLLcBTOstrLW5Dy2bDACIrojPOZ7xDxqisSUuoLlbdnSe ly2oa2pX1oX6sDczB7q5VwzPl23vA4G862yxDOqRzwikKefL5 Jb7eac z4GB/AJqaP GE71WMMpiF3/oPxprVZvDyPAxPz4OIvheL27dj0aVzD3xZ80tcuxqGSxf/xry5Jjhz9qxwnEzmS3REHumoNlyAigC1Xu/ mwTfoDtw8g0RujSMHLww3mwPxmxwZS3ND7v8hpvsEtbRNrQt7ePkGywcg45V1KSI8odXFOXF5 VXBPlALh7Fp8Pv5AXEPXiAc euYM8eb2Skv8KWTbasgaOOYcOHI FRGvbsPon1puZ4 uwxcpn/ZGdzH/rUUEoBys7OhouLC0aPHo0WLVqgSZMmwvvt27cL6zjy5tOsKDIyMrB582bo6OgIPlW3bl3hPS2jd ZzyQdoYuXvnAX76v35CVO3utgcxd5NhZeGMU6f8hPUULYs35cLzqaJ0AhQXF4devXph2LBhggjd vn1bMHpPlYWmpibu3Lkj2ZojTz6liuLixYtCY4YaMvv27RN8ivzo0KFDmDx5srCOtuGUHy/S3iDgwm04OrrjceIjYVluTt7bA h93s cTw2lEiASn4YNG8LGxkay5ENIiGgbqkCUBcrqWrhwIXr06IFatWoJr/TZ399fsoVqo oVBQkLXRcSm4KgGbrJr5RpSn8SyunTpwuNri EJ4pc8eHh6SLTgc1UapBKh///6wtLSUfCoYEiGKkhTdHUfdNlQhtGvXTig3CRGJKL3SZ1pOLe7U1FTJHpzyhq4RRTeFiY8UajBQ1 5yirxf5EP0XqCFD3c6BgYHCsuDgYDg5OQm 37t3b94TwFF5lEaAqLVHf7i8omJiYgJzc3OMGjVKsuQ/ vbtCzc3N8mn8ocqNg0NDSxZsgSvX8t 7AMtp/VUASYlJUmWcsoTGt hRkBeCvOr2bNnY9WqVZJP5Y 0F4AaMIU1sEiYlK0ngMMpLkojQBRJ0J8qP8nJyRg0aJDk03 QYI0cqbgHUFF5SVyKwtq1axVa1s8ZGjeUFf0U5FfUBUeNG0VAgkPRTWFd0HmhBhh1yxXUAOJwlB 2lESD6I1FXQ17oM7VSnZ2dJUv g1p rVu3lnwqX6iLjbrX8v/xIyIi8M0330g /QdVLPT9fHx8JEs45QV1qeWPEgrzK4pUv/zyS8mn8oW6lin5Jj8kltQ7kP//QVDDpijd1hyOMqI0AkSDrNT9IAtZLVWq/CkrSxFQgoGsP/3vv/8udO3IgqI7yrbilC yBEiKLL9SpABRVyGJUH7IpyjilyVA1KjR0tKSfFJueFIFJz9KFQHRIGtepH31VLHnR5ERELVGKQ rKi7SCKEiArl /LkRNqsCnVFHI6oIrzK8oEYEG BUBjRXmF8vY2FihrORbsgQoPj5eyPBTZnhSBacglEaAqIIjZywqVKlQ5aII6A fP1qTVmrUqqYKPD UtKCoiK2ofIoVxYYNG4oVeVJ0W9SxvbJGVrRGvkS RWIpSzCVXYDIf3hSBacglEaAaECVKriiQt0OxRGsskRWBCSloAgoPDxcqSOgT7WioJRqqtiLcn8 PCS59N0VlLFIXXEGZnQVFQMrcBceTKjgfQ2kEiKDWNVVwH4O6gshRC6so5UlBY0CFQX3748ePl3 xSLj71ikJ6k2lBjQZCKj5FuV9IXpDvFzeqp iOojxlRFZSBSVUSMdKZQkqT6r4vFAqAaKuHZqfq6BWIEEVBHU55B8vKk9onKA4Aiit4GV1zSkDs ioKyuiTVhQ0DpEfVasoSIQoEpo7d67wPjExUYh06FpSg0LR4kOQn5BfyUpEkAWVl8ZBlXUeO1lJ FZR5SL5VEPSdZGUCcj5NlEqACOraoT8hVXDUvUB93GT0nlp79Iej7ixFQ38uur nKFBFrcx/KlkVhazxhryoUvaVFOqOo5tMaZyLGjGU7UZRN435KMuNwtQIIzH8mAhRLwB9B2X4LxQEJVXkLx8 1aMikY6b5UYWkCk7ZoXQCRFDXDt3BThUcOSMZvaeuBmVp7VFlRn8wEqGCIiFaTuJDLW/6YykrsrKvpNEP3S8jq6uEVxTyg64FRcx0QyxFzfSZ/hP0ShEC/ReokabIXoCiQEKaP2GFfEoaAclKg6fIVFFp8JzyRykFSFWgVjNFatJuE2rtUUVBr/SZKhGKfJRZfAhZ2VfSaWpIfHhLtfyhxgt1RZN/UdRPGZT0SmNElHxTUKNHmaCy5 9Ol3btkvn5iWdTz4sqRtacksMFqAyQdg9SlhtVFPRKCQfKOuaTH1nZV9L0XxIiWWNAvKLgfIxPL amCU/ZwAeLwioIjFz61pApO2cMFiMMrCo7c JSSKjhlDxcgjgCvKDjy4lNJquCUPVyAOO/gFQVHXnwKSRWcsocLEOc9eEXB4XDKCy5AHA6Hw1EIXIA4HA6HoxC4AHE4HA5HIXAB4nA4HI5C4A LE4XA4HIXABYjD4XA4CoELEIfD4XAUAhcgDofD4SgELkAcDofDUQhcgDgcDoejELgAcTgcDkchv CdA3Lhx48aNW3maIEDcuHHjxo1b dpj/D8dlL40FMX/VgAAAABJRU5ErkJggg==

vanhunk
02-24-2023, 07:24 AM
Good day Guys
Are there no one that can solve this question, or is it impossible?

Best Regards
vanhunk

kmcbest
03-05-2023, 09:25 PM
Do you mean, just after you clicked on a shape (and hence select it), it should be replicated down, just below the shape selected (you talked about "line" but this is not Word but PPT). But when do you start the macro, before or after the click?

You may want to check out this post (https://stackoverflow.com/questions/49146019/trigger-a-function-when-clicking-an-element-in-powerpoint) to see how to trigger some actions when you click on a shape.

vanhunk
03-08-2023, 07:13 AM
Good day kmcbest

Thank you very much for your response. I replied to your questions in RED below:

Do you mean, just after you clicked on a shape (and hence select it), it should be replicated down YES, just below the shape selected YES, but to the left, just below the firs shape in the "line" (you talked about "line" but this is not Word but PPT). But when do you start the macro, before or after the click AFTER, the click, or double-click must copy the shape? The next shape will be in line horizontally to the right of the previous pasted/copied shape.

You may want to check out this post (https://stackoverflow.com/questions/49146019/trigger-a-function-when-clicking-an-element-in-powerpoint) to see how to trigger some when you click on a shape. I will have a look.

Much appreciated and best regards
Vanhunk

vanhunk
03-24-2023, 12:13 PM
Greetings

I'm not winning, any help will be appreciated

Thank you so much
Vanhunk

vanhunk
04-04-2023, 12:15 PM
Good day

Can I now post the question in a different forum since there is nobody in this forum that can help?

Regards
vanhunk

Aussiebear
04-04-2023, 12:56 PM
By all means vanhunk. Clearly your question has not resonated with those who frequent here, for what ever reason. Hopefully someone can assist you.

kmcbest
04-10-2023, 08:53 PM
I've asked chatGPT for what you want to achieve, here's the reply:

Yes, it is possible to achieve the functionality you described in PowerPoint by using VBA (Visual Basic for Applications) code.

Assuming that your shapes and images are grouped together, you can use a macro to copy the selected group and paste it into a new location on the same slide. Here is some sample code that will copy the selected shape or image group and paste it into a new line on the slide:

```

Sub CopyAndPaste()
Dim selectedShape As ShapeRange
Set selectedShape = ActiveWindow.Selection.ShapeRange

If Not selectedShape Is Nothing Then
'Copy the selected shape range
selectedShape.Copy

'Add a new shape range one line below the selected shape range
Dim newShapes As ShapeRange
Set newShapes = selectedShape.Parent.Shapes.Range(selectedShape.Count + 1).Duplicate

'Reposition the new shape range to start at the left of the slide
newShapes.Left = 0
End If
End Sub
```

To repeat the pattern a specified number of times, you could create another macro that duplicates the second row of shapes and pastes them into a third row, as many times as specified. Here is some sample code that will duplicate the second row of shapes and paste it into a third row a specified number of times:

```

Sub RepeatPattern()
Dim numOfRepeats As Integer
numOfRepeats = InputBox("How many times do you want to repeat the pattern?")

Dim secondRow As ShapeRange
Set secondRow = ActivePresentation.Slides(1).Shapes.Range(Array(2, 3, 4)).Duplicate

Dim i As Integer
For i = 1 To numOfRepeats
Dim nextRowTop As Single
nextRowTop = secondRow.Top + secondRow.Height * i

Dim nextRow As ShapeRange
Set nextRow = secondRow.Duplicate
nextRow.Top = nextRowTop
Next i
End Sub
```

Note that the above code assumes that the shapes and images are on the first slide of the presentation and that they are grouped together. You may need to modify the code to fit your specific situation. Also note that enabling macros in PowerPoint can be a security risk, so you should only run macros from trusted sources.

John Wilson
04-10-2023, 11:45 PM
Good demo of why chatGPT doesn't usually answer complex questions!

vanhunk
05-02-2023, 11:42 AM
Hi John

At least it had a go at it, which is more than what I had before.

Regards
Vanhunk

vanhunk
05-03-2023, 05:26 AM
vba Selective Copying and Pasting Shapes on the Same PowerPoint SlideFor Clarity: After you clicked on a shape (and hence select it), it should be replicated down, just below the shape selected, but to the left, i.e. just below the first shape in the "line".
The macro must be started after the click, or double-click (preferably if possible).
The next shape will be in line, horizontally to the right of the previous copy and pasted shape.
The next step is to repeat the new pattern below this line.
See attached file for clarity - The first slide shows how it looks before doing anything and the second the final result.


I found the following working code from PPTools and tried to modify it for my purpose. The third slide of the attached file shows how it is used. If it can be adapted for copying and pasting or duplicating shapes it would be perfect:


Sub DoItToMe(oShape As Shape)
With oShape
' Add code here to do whatever you like with the shape
' This will make it unfilled if filled or vice versa
.Fill.Visible = Not (.Fill.Visible)
End With
End Sub


Any help will be highly appreciated

Best Regards
Vanhunk

Aussiebear
05-03-2023, 11:34 AM
Vanhunk, Please stop with the enlarging of font, and all upper case. I know you think it's emphasising the intent of the words/ phrases / sentences etc, but we can all read..... It is so unnecessary. When wrapping your code with code tags, use [ ] brackets not < > an the slash goes in front of the last word "code".

John Wilson
05-04-2023, 07:35 AM
This might get you started at least.

Note you can only use in show mode.

30793

vanhunk
05-08-2023, 07:38 AM
Dear Aussiebear,

Thank you for bringing it to my attention, I for one really appreciates it if someone does it the way I did it, it just saves time and energy. Why have the functionality if you are not allowed to use it? It is not as if I made it massive you know. It even helps me when I go back to my own posts to quickly pick the ones I am interested in. And yes, you are probably correct, we can all read (although our non English speaking people might also appreciate the focus on exactly on what the post is about. Why don't you run a pole and lets find out.


Vanhunk, Please stop with the enlarging of font, and all upper case. I know you think it's emphasising the intent of the words/ phrases / sentences etc, but we can all read..... It is so unnecessary. When wrapping your code with code tags, use [ ] brackets not < > an the slash goes in front of the last word "code".

vanhunk
05-08-2023, 07:39 AM
Hi John,

I like it, I think we are getting there, much appreciated!

Vanhunk

Aussiebear
05-08-2023, 12:00 PM
Dear Aussiebear,

Thank you for bringing it to my attention, I for one really appreciates it if someone does it the way I did it,

You might, but we don't.


Why have the functionality if you are not allowed to use it? . Functionality comes from the use of punctuation not shouting.


Why don't you run a pole and let's find out. Just post normally and every thing is fine.

vanhunk
05-11-2023, 06:38 AM
Good day

I have adapted the code by John Wilson and it is working perfectly, solving the first part of the problem

The following code is in the slides code and a button is used to reset the global iCnt variable to 10:

Private Sub CommandButton1_Click()
iCnt = 10
End Sub




The following code is in a normal module:

Option Explicit
Global iCnt As Integer
Sub copyme(oshp As Shape)
Dim newshp As ShapeRange


oshp.Copy
Set newshp = oshp.Parent.Shapes.Paste
newshp(1).Top = oshp.Top + 100
newshp(1).Left = iCnt


iCnt = iCnt + 110


End Sub

The second part is to copy whatever is in the second row a number of times to the third row, i.e. repeat the pattern created in the second line a number of times.

Any further assistance is greatly appreciated.

Best Regards
Vanhunk