PDA

View Full Version : Placing shapes on different slides


YorickG
06-10-2021, 12:51 PM
Hello,

I wanted to add a quick VBA automation as I have to move multiple shapes to dedicated slides. Unfortunately, I can't figure out how to do it (I'm not familiar with arrays). For example: I have fifty shapes on a slide. Each shape should be 'cut' and pasted on a newly added slide. One by one. Below I have attached a code snippet.

28598

I think
slide.Shapes.Paste should be change to something like
Set oshp = slide.Shapes.Paste or
ActivePresentation.Slides(oshp.Parent.SlideIndex + 1).Shapes.Paste
What I end up with are multiple empty slides and shapes moved from slide 1 to the last one.

I really appreciate any help.
Thank you in advance.
John Wilson
06-11-2021, 12:50 AM
Hello,

I wanted to add a quick VBA automation as I have to move multiple shapes to dedicated slides. Unfortunately, I can't figure out how to do it (I'm not familiar with arrays). For example: I have fifty shapes on a slide. Each shape should be 'cut' and pasted on a newly added slide. One by one. Below I have attached a code snippet.

28598

I think
slide.Shapes.Paste should be change to something like
Set oshp = slide.Shapes.Paste or
ActivePresentation.Slides(oshp.Parent.SlideIndex + 1).Shapes.Paste
What I end up with are multiple empty slides and shapes moved from slide 1 to the last one.

I really appreciate any help.
Thank you in advance.

You are a lot more likely to get an accurate answer if you include your slide with 50 shapes.
YorickG
06-11-2021, 05:47 AM
Thank you John. Unfortunately I can't.
I managed to improve it. However now I get an Integer error. Before I use macro I have to have the specific number of slides.

28600


http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmQAAADICAYAAABGUP0AAAAgAElEQVR4Ae2d0XWs KhSGrYuCqCMl JYq8moBKSIvlnCK4KwNohtEwJkxmWS u9a5GoXN5gOHfzaMDI7/IAABCEAAAhCAAAR lMDwo6VTOAQgAAEIQAACEICAQ5DRCSAAAQhAAAIQgMAPE0CQ/XADUDwEIAABCEAAAhBAkNEHIAABCEAAAhCAwA8TQJD9cANQPAQgAAEIQAACEECQ0QcgAAEIQAAC EIDADxNAkP1wA1A8BCAAAQhAAAIQQJDRByAAAQhAAAIQgMAPE0CQ/XADUDwEIAABCEAAAhDoEmSjeXPDUPhnvy4nOI/v5bLN50PKjvbt9BBzZSOTdcMw H9mnMtpnHOTHVztfsg4OSu2zHho5 yNyV7Ztou/S/0f6Xdezz5 ea7236MJbRfbcBiMs5V2bFv8mymu4t mNbvRmu0Zs9YZ/Xw8 fPXrh8pIACBVyDQJcgExGg XKJZ5k9nvkGQSdkimsz4b2sPKftBgizav1SQLZ7Po kQXFs1j88mZ/WAc5zw1J0d51O5G4nn0Q SkzXuFi0zGpv2v0Zxj70tolKXHwTALfV4rF/91u7ld2/ fk/Pp5TnSgvkeQp9Lbf07M9f7i9/QwACr0XgtCArD9r/3Gi3SJaIJS3eYgRGRNU0fjgj0bZc4FW4b2V OVsSYtOns2sU793ZMY/c/XOT8m8wkv59FQZi346fwa TvgW382/oJv2GvtTtcEBofYOfRYDFKI1xdsoEWXJ/cMaO7jgOdwx647ylkWsSHTV2abeb IioFr99GLAgSmcnQm2NQJnRWbMINxFyMbqmjomArvCTqE2066OPKu0arWvyywWZqs8S2ZQyxP40 2uCvFpBN 43 U8kvXH3ZEhWKfJKye/gJ78hJxI16eu/kX3w zLh PjT937ri4Vl4rqZmnw/pCk G6hPFCHXC/5bnr9G hzXjBgQg8EoETgiybVoriVb56Nkmbjy8OQin5KNv nDD8O6jarPcmL cP3bQjqLAT5uWBJn7l9gSAagHbBFjdtIRti9nh83nYP/DTYvDkj6vY83NfECY5QO EME6HBAW4 X7Ir7s6ptzi3hR9kdr08FIBhB7fkqzJMjENc9HBPSNfMRnibCE7LOP7i2mfM1FjNlo3BcoAiiNp PVEaMr8gnhKBtrJOqM6SJtfLsikPql/zg/qxtsN/Xta 2TLfqv/9OQfVB8Rnkl9/TOqI3xLh1sP8 qrXBIRq/D4VPfw37HyAmf70iD1b/m/ulo8Cc9EFKT C4nuYEueo/4RTZbv3//8tdo3ls8RAhB4bQInBFmYstwN2gdTlyJqkimd6eOUyNHNspV5ECGbdYTszRmjBdlBHlWA2E8GoN O 6gjW4IwaHFUxPkqUD5TN yIeEpBeIW0RuIMIxpBMselSjs83zmmau/lkAigIsFhGFu2Ll7PjPYJABKGI2jhGJwKhi58IshhBkmMmIMXXUjvJ9V77a4Qq6z8d WXAT/vvvs9U c06QiblP1CQif Jc6FhpQ/Ebt3jf9Ydqn8 9AtRqV2lTvELUUf7ONf3 VCtFDchAIE/T C0INsR VZBtivdObdEu1QELBUQhWhdZiZNL4Pr7eJRQg3z MAIWWtA8B/256NhGQL/51WCTE8bxunDYR2kgyCLYqnkl1yrCoolUznCEW6ug34mDsNg2eKXR8gKXpbaySfrE5yrxV3/aedf6xaNFHw55rdEI1WEcmfvHv4/IMh8mxa kNT6h6Ar3i w9CI7CrKzz9 ufWOjcYQABF6dwP2C7MSU5ZlpQN0wJaGw/sjAL/D/WKdc5mU92TreDFWxKdm/2U6hZFu1eQScRFT7nJN/RSVKD4ga8qWr4vA3J9yjJMUal1P8rmmdMSZ8l/H5 S4ApTmNHj/Nd587JmR7ehjmqJ4DXDFvGKdSzzi3eDH9rOesdP8UVv4lV9vEeQSfBMphCP7bf6Tyu/1FuzKkXrdL0Tfj7aY9XzE6JliT3/jOuI1jn umxPtTBlmZRXEkES5fRRynzqdS8ovWBKDIa2rPePA0HmBdd9z1 rfXVP4xwCEHhdAl2CLH3tRTYV6dnVFvVLBGtbfxZfn1H4vCy2goiBmCc9br/61GmM/XSTz6P9TP0bZEH/ElHTeb1Pfq1b8LdXQEr0wSaL0vUHuAwYerornseBpXVfFJGIiZhPBt8lz/otPV8Uv6xlKhLdX4w/ukj4Lr gvYtPMp0TB3Rd33gtXfQ8yPosFbERj73IjRwTgartRUZyjHy3 sqAvEXmtuvrurzVfsovfe1F9DnmL5ef9u96 9T7j6999qOHzT9fp8Xv0H/Lr1g55heESIxcyvqryf9QIK3ncf5y/VP afvKdF Up73 h6hXqV2lfLN//mLziKCK7ZocY/9o3b// Wu37 osJxCAwAsT6BJkL8yHqkMAAhCAAAQgAIHLCSDILkdMARCAAAQgAAEIQKBOAEFW58NdCEAAAhCAA AQgcDkBBNnliCkAAhCAAAQgAAEI1AkgyOp8uAsBCEAAAhCAAAQuJ4AguxwxBUAAAhCAAAQgAIE6 AQRZnQ93IQABCEAAAhCAwOUEEGSXI6YACEAAAhCAAAQgUCfQJcjSF8Oql7wuLw tF3HfXf1i0uTFpcVNxs XFe2nL/I8b fWHPHFmFeWX3vx661 n8rnN94OL23d7cupDOVv7Fe31OnyIs/1pbjq1s2n2YtLrV33KvyO9rnZbTJCAAIQgMCfIdAlyKS261ZFseoHe1jG2488imhK3prvt0v6fF gRYv9KQdRyVAb97yh/x7Hl2IPvSz1rgqy/uLANUn/6ekrPP 507V/MrjaPlr /qX3qXnIXAhCAAAT MoHTgqw8qKdbExnzuW6NIvBihEZE1TR OCNbKZlt66MW4K3MsFH4Lv2yf2WIoL07O35lSf65yaotmMyns7J90rKjtRdk42fw66RvoaAswqK 2hinel70NVYQnCILRmbi1i2wNtNQgbNtj3Oj3b1y2BjJ29T2raPXPjeOWTK4JN2OXdnlE/bP6xdIOBVkrglbaOkrxS7eWGpxs/9ParDz6JMfg13SYp9Y 3s4U9n8M2w8ZZ9W lV3tl9Sv5H/Wvw746jpxDgEIQAACv4vACUG2TVUm0aoTm4sPw7sz9itsZDwvxw5eUTR4wVWcqvy3bo4s5kQA6o iTiDG77F3pi5PNxYdUkA3Dh4vbJ0r6vI41N3s2T5bNpaNIkH0BByUoZMD3e/8tCcJm0jG1RCeXQXq9lG7OXfNN3ysJMrnv YpAXss/V/9c0OT1iz6EdGsl4uX1WL4v0TC9N iyL6TiN9pso3EROHZc7bZPgs0oiL2gU2622kf2wpxVepl61f2v1X4t/3v5tutJCghAAAIQeFYCJwRZiGjtBvWDqUsRNTEC5Ss/fZwSORrYVuZBhGyWiJcSjEYLsoM8qgCxrwdQd8ZX2UA7yRwMi6ja6q83Bx cSQRGYUpsssnU3k7w3TiNtnFUlV8EWVKFM/X3pur1i6WVBVe8GyNVStnIrYyFTy3MoyBLNjBfIog 0rhFGbcS s5yQSl p3zS9nGzjpBJaCTPeF4MNqs8v/Pr59tSMVBCAAAQg8I4HTgmxXiW8VZLvSnXNLtEtFwFKBFQRZNswnhtL0IgJOiMcuQaaKm2c3j/sIWW3Af35BVq9fvHuJIHMiVs5Ew6I3taP8cGATdKt4ilkSkShpjRtjeLEgluvtd9L/Qv JbnGEAAQgAIHfS B QXZiyvLMNKBGWorsrD8y8Av8P9Ypo3lZT6YFjkxh6rJnmbJUUbS7BJmvfxYB8WuCtnVMMiBbPWD LgK4crA/43zNlqdw5J0iX tfqF9vyJkHmBVd9yjJM8cZVd7G0/Dg7W4yc7QWVRLy620fSGqv6X4iWaZ6tKcuW/63 k9eUvyEAAQhA4PcR6BJk6WsvsqlIX faon6JYG3TifHVFXrAqmETsRTzpMftRwE6jbGfbvJ5tJ pf4Ms6F8iajqv92n6WMvTIq7mo6whGq2sA1te7ZAt6h NdVbdH9SUpYiUmC Ub9e/4y8SfYRlUtNWKn/dr3A3/qgi4be8suQR9a/Vz4mgij9WSI4xAtW6LyEnVfdBxO2SZ42MLevKon1jvKBKo6KxnFhuJCfXzb59lts97aPTyPqzyb fpJtLb7Vf3v8431oMjBCAAAQj8ZgJdguw3V/Av O4H9FRd/IVqvUwdaL XaWoqCgEIQOBmAgiym9F9T8bw2oT4uotHr5X6njq8cim03yu3PnWHAAQg0E8AQdbPipQQgAAEIA ABCEDgEgIIskuwYhQCEIAABCAAAQj0E0CQ9bMiJQQgAAEIQAACELiEAILsEqwYhQAEIAABCEAAA v0EEGT9rEgJAQhAAAIQgAAELiGAILsEK0YhAAEIQAACEIBAPwEEWT8rUkIAAhCAAAQgAIFLCCDI LsGKUQhAAAIQgAAEINBPAEHWz4qUEIAABCAAAQhA4BICCLJLsGIUAhCAAAQgAAEI9BNAkPWzIiU EIAABCEAAAhC4hACC7BKsGIUABCAAAQhAAAL9BBBk/axICQEIQAACEIAABC4hgCC7BCtGIQABCEAAAhCAQD8BBFk/K1JCAAIQgAAEIACBSwggyC7BilEIQAACEIAABCDQTwBB1s KlBCAAAQgAAEIQOASAgiyS7BiFAIQgAAEIAABCPQTQJD1syIlBCAAAQhAAAIQuIQAguwSrBiFAA QgAAEIQAAC/QQQZP2sSAkBCEAAAhCAAAQuIYAguwQrRiEAAQhAAAIQgEA/AQRZPytSQgACEIAABCAAgUsIIMguwYpRCEAAAhCAAAQg0E8AQdbPipQQgAAEIAABCEDgEgIIsku wYhQCEIAABCAAAQj0E0CQ9bMiJQQgAAEIQAACELiEAILsEqwYhQAEIAABCEAAAv0EEGT9rEgJAQ hAAAIQgAAELiGAILsEK0YhAAEIQAACEIBAPwEEWT8rUkIAAhCAAAQgAIFLCCDILsGKUQhAAAIQg AAEINBPAEHWz4qUEIAABCAAAQhA4BICCLJLsGIUAhCAAAQgAAEI9BNAkPWzIiUEIAABCEAAAhC4 hACC7BKsGIUABCAAAQhAAAL9BBBk/axICQEIQAACEIAABC4hgCC7BCtGIQABCEAAAhCAQD8BBFkHq8m uWHI/tmvXc7Jvqt0785OuyQPvzCPxg3DcFlZkx28fTPO3vdYnpQ5fEcFW8SmD8X8zQ3m0wVP9xmlHc34 b3cjtO 7W6q4u3/3hcl6hsIr8os8xfZoAmPPVLjGf9/Md7KhL4XyzWV96oinsClWucHvyJ5cn0f9TOpnOLR3vF8st2aYexCAAAQeTABBdgKofHiXBnRvYv 50xnwcioETxZxOejiQnbZUziADtTHWrfpyHp0xYznxD10VMXyPoBrNffmr1RZew C8CFvERS4ARs1XjEmePFG1kDtv ja1P9N/p9GN0 zFqpXj8vdaow5 a9rsRD zIrwjUt3ekiZez7LzJwQgAIFvI4AgO4Faf7jrbMUImvnUSRrnsxtVdELEzip fM7svhdImyDygmwMg76PbqjBPURfjBtH60VBvH9GvIgg8/njqOUH7618N43OrlEe4 wYvZ clWiPsct966Zp8UP56OZJ5R cseNpYVAVZCqKdiSo4wAtbbxGQ2O0bf5y1mzRFWOPo3DFhl4EhcfnBZnZiccoyKQtdfRM7Oko5R Tb8Qy/Bt9of43M TZT7euy/pf1z5hf/E7962x/0Z/RR7Gdhzg7 BW5Zxe1INO3vCAbP52JUXDzkT5/lfaP/cXYj P8ujDOIQABCBwQQJAdgCldPhJkPq2PkJ0RYVsJo8kGaD84baIkDNLTKlJmGdRVhEruD4NdBzIf0 VKKS0SZFznrQDe7KAA2L47PvCCbRRgsfuaCzM1uXm0HARG1m4/0DCHfPMrUXfBTbMU0o80iM1J/qwXBsW/xTlWQLYlq7RcF2TREinFgWjzSKfMkDbM20twkSxEwbR8eWopy1zQeaTLEJOomae9bwcZcqzwa91 39vftenmYKt/Vv3zYqre/pLf92Ezul1ZwXiT3 bt8VlNkA3Dh3p 0kh4q/29KBMRtzwD0hePhP xd9yBAARenQCC7EQPqA3o7lZBJgNWVCbKl1X8 GtZBEmiI0oAyWCWmJAoVCLIFjGg7O/yqHv56erLMmjP eA96wjZ4IxRa9p0WhEVi6Nr XI/rplKjnvRkvul/75fkL05I1Ew 7UKX29f2jVGTpJjFkXRztxwHgWycNFtt5rK2nS93uLXuh8N6XaK1 Qo15POFW6ufSKmrfkXvzyU2n/JP41LVFjE BphjcYfc6wJsqSK08cmqDraXz4XDvM/xnWsQAACL0AAQXaikX9OkCknZ1lrs4 QpQPCRYJsiWRYmR6Ng6xboj9KIa5iS9zWA31xQBaxeS4apmisp7kg2w2S3pXjyMVo3pyVaad8us rJdOWZaNjq0qmTKMgOMx0JHuFf5de6v5So20k78U2CTBd51flNgqyj/Xd9TQu6qyqDXQhA4M8RQJCdaNJLBJn/lV0WwcqmLGUaRxY7x/9kylJHLRIBJImywbtvynIO670K02lpNGSJ1kUR4Adyu05ZyoJsWU 2CkQ90BcFWZgKNXdGRe4XZMuifhlMM1EWpqD2v6qN7fGI4 2CrM1P2q/JV7dTVqHdNGLWP33yrM tJrTdg/Zf0158cpsgE74i5I/bH0F2ccNhHgIvQgBB1tHQ8kG LvSO01bqtRcSXandbxdRXzQtg7VVi/5lkXzUZyLG4mJsL4Jk0Fum/uLUlx9Qp0VI QXbW/7Nt2UBdibI4oJtsRntieDbr2FbXo9hRzd5n0RkRpvLKzIW38RO9DsIt9mvT4t D8Z4wblJ0M3L3ZlasJ 3QbD95Wxss S4TTmG9g2CTLf1tg7onx UV/vm3Zl8anPnWP8FvX5siGvN1uyKoZrSXQWvT9fiV7 flr 8diMpoNY/a/6pe2LvsP3Xyl5zsusjW9uLmIrt6qus0va0f1/ a6qFVQhA4G8RQJD9rfYs1mYX4Sim4iIEIAABCEAAAj9FAEH2U S/qdwk hGnGb pbIqBAAQgAAEIQKCPAIKsjxOpIAABCEAAAhCAwGUEEGSXocUwBCAAAQhAAAIQ6COAIOvjRCoIQA ACEIAABCBwGQEE2WVoMQwBCEAAAhCAAAT6CCDI jiRCgIQgAAEIAABCFxGAEF2GVoMQwACEIAABCAAgT4CCLI TjenSl AerOZRsb0xZ ykbi8nDV5t2fDArchAAEIQAACEPg5Agiyb2C/29rowWWGrY3Ue 3n2cn7xxBkDwaNOQhAAAIQgMBFBBBkXWBrW8eIgey 7B2oXsLqBZlsyB23vpGtj5Zyw4tbjRtHm9wflb6quih7BTaVV afGfvLF/ve722/zRj109snVX3kJgQgAAEIQAACVQIIsiqecHO39VC2ubIIFNm8OWoo2fxbi5UgYLb9I8NmzzG189E smWac10sS4dpEW9XFo02dVaaW/yIKq Xvyjjhn/KDUwhAAAIQgAAEygQQZGUu29WDCFSYJozJ1Mbdsgm32vxbUvgIWQyJyYVM4OwEUylPLCo/Zrby267D/3b5mQBrlblzggsQgAAEIAABCNQIIMhqdOReh6BJTMyzm8d9hCyZVcwETVsQJSWkf4h/ano0vdnnf1f5q8 ZONsVyAUIQAACEIAABM4SQJB1ENsJlmzKUu7baZ1vdDJlqdd1tSNkjSlD7 PsrF/LtZ/KzKdAnfdv 5Vl2/8mUa1a91617g1gGXJBCAAAQgAAEIOARZVyc4XhQv2UWoWGvcoBftL/osrB8b/D0fJZP1ZUs6swgbL5gmNe2ZTXkGF6dDQSb3JSqnfzQwKoG4 9GBWtQf/DdubJYfplqHYS8Ig3/8HwIQgAAEIACBWwkgyG4l98B8uwjWA233mOouf5227LFKGghAAAIQgAAEegkgyHpJXZQuvPYiRN D0LzMvKm5ntqf8yS7 Za /2BnjAgQgAAEIQAACNxFAkN2EjUwQgAAEIAABCEDgcQQQZI9jiSUIQAACEIAABCBwEwEE2U3YyAQ BCEAAAhCAAAQeRwBB9jiWWIIABCAAAQhAAAI3EUCQ3YSNTBCAAAQgAAEIQOBxBBBkj2OJJQhAAA IQgAAEIHATAQRZE1t8Iev1r6aQ10vEl8U23TqRIHm1xfLqCsvb9ncEr K/K2h3IXvxsLXpdliFlwnvTPj39vb0n6U/17bbKhk/ca37vXYdNuOLlZOtxzrynUny95 P5 5f6Wt1ls/Zmxv8 v59pm/1pJ3nyU3yYm9z8Pwu2 Nte8H0WNVpjtv/O54v7ckV5/vnd3C/dXxDkPX2kOWhSDcV780c3uav9xfvz/mIlPIhpd wHx7Q36TJZDeEe/jdm/8RrXBkw2 tpRpjnsr7k0q6xwh22RViPHLnvusiHm8eTMtFez73NH7ZrLr6/M/HPf33t/SvX9G/Va/Znd774uxKfhGttz5Wrfa//vnakXrwheuf33uevzOVRZB10lo7bfGhmZ0Itbglkrzg1Rrj/BgrQi5uqaSOycNViYDob49 MFZp1xfJ r0rt5e3Gju69NtU3mFlq6Vtr8tYhtj339TETy2Amvbzb2AmjfBU8osfws1IVCjyScru4Se8Y/2Ns6Mave/kH7pHVj 19VTT/47 JTbMOGVtts8Y0qUt61OpPlEUbAl/afdMkCX3l31Nk Kz tusfVVa baa9G1/L8uv IWs2f3MvtTbjqofqP4Rvh2bsMeq6j9K3yrvjk7rz4ebKv1riUz6PnzD89PsPz3996hay/Xn71/B0VL/bvKRrEn/Pdm/FV/fb9dnafn8brBNbhfHhiRF/Y9afvHT5J/rdXPxbqv95f7R8 VtVPp/1/OXtM99ny xTunxvud3t7Wg/vxR/WMd34fsM65Zv9Tb2l8Ishqd9d7s96sMQ Hsowt6WBQxpjcX9x8QQ/pA9yjs0geSuLC7Lg uGvVGa9PBXDqI1RGQvMNKfVL/nP8gMt7uLJWbJ ePsldnw37 wMvm6qtY7MzvBeACdbdZ rJfqJJZa8uEk3n1Vf4ufZu8h/ OlX8Atw9HqX/L/8zh7M8g6KMg9YJad7Al9a4f5FaKETQRX9ZtW5suXx5UhOze9t3cyPtZuNPDTwvSvP94vhLhPegf MiikzMLzetxfNo/DWe53/ny0 9e9z0 r//T037xW29/P3b in0f9u/583d /nR90ly o jw61nusCaoeG9X80kezz wemz5Nvf1bz5cIljgWiLn887X1/D3u8 Wowvc9v6HfbV I888fKbX2/LXqd R16TqCrEQlv5YJoCDAYqIs2hAvZ8dag8akRx9I8kDIoBrH6GSAO1Dw6Sbg0mFjBEmOmYAUB44 DHrtrxGqwRktADryS72Vviz6UuU36wiGlJ99g2k8UFX 4n/iXEgtfSBGYXr8j2X0HEsfCJLvuH8Eq8X7pXaVOkVB1tE zkkf3/pP0r66Qt7W1k/9rQ5 LfstvsnzsPizy6P93J03no O/nXP87PztdBm1f6/q0/9wvP1r Bvsf8u/T55BDUffR6rfbp/hy g4QvR9lxHc9Xj4fOz/wyq2pGbpbqoTCJ8Eg7q3pnTvP2b/a/R/6vP3yEfvQSl8/PlsJL3Pr/t8g fv676HTq u4Eg2yHZX4hTejpkua2TCYIsiqV97nDlsEFVhqMPJEmyPjTy0CZPZShfmSmc5t8gSknswfqkHvv K3jy7edQRsnb tW7RTOGD6Zif1M24MYZPNKto75cJMi9QkjV/oSK1/iEpivcLLH1EIAoyL7Z0NFVBK53u2lcl8h9OtwgybSPvP6rvx2RZnaoDQsxTPdaej77 dTyYXt3/qxU7uFmub7H/KAvF 1lb OTSD27oX0X7pedZl6nPo683lO9FyiBT8YUvq9Fu61jypZVH32/kf5Qgyz9fhHs6pOixoN3/689fu/9rBBKKS8eP5O7BH X HBK3/U MHpRfHX/Wvp5YuukPBFkTW hQqeBKp0REsOm1O/KrGYko6E6uO610ODNkA9fRgLr6F/zQduKtMMVXm6CpddjFSuXDoGVffNJTtvLhpkVjK3/9AyH4p ud8PMfvnYNqcuC Jy9WDjMHyFW Ou8PnlhylK3dXlwnpcopf5mKNb2HxheMCUGg5NHA1asQvm 9Jttuk irdIeekq51T6t9o3l5x/08XqLX8t q3 0pkwWegf85W7l ejsX U2DyW3 LbqJ1Y0w6T/hyKk9x7U7/n7V6xCuf 2BPn9/VvK3aaMw2e3/jyP/jWPlc/QZl5JUM2/tGM6ECmzt7d/tf919P/W89fq/63nP1TyqH4eXPajNY1FvhzUx4ee8mvPX6t ypvmKYKshkg64zrVF0PZ8mDE6Zt4LV2UPMj6LBWxkSK8SIn5kgFS24t25ZgP3OGDaYvMaceXQXa 1v6wFW5LIA7NF96LPMX 5/FQPtOxbZ5MfNWgB4Guf/ehh889/GC5zLXRbWZyJUPq7V qX1tQ9YSTf6HAmk97 Oftq98 4/yV5dd8z8M qV2DR 0O36xebxY0O0Xz2P/KLdf0n WLwihD4h4XvKs3 zubd/VWVf Fn/MT3LKt89d/ZeBp4ev/7D0P1RY2CTPV/Qtcorc4nUpPzKVY9pvJJX2Yd /ol1tI/0ytorgtf8 tv HmkQ/8vrJdbPnu1Y/5kv93/pP677/cFNT2uf7V20GQrM/fL7u6N9d9ldWjZOqoDrOW6z/ mwu bww2tat7q3FdjrX/j3112n2/X/5slB9/h7x XJUv3uf3/rnT R8PH5Iinr9oo2eI4KshxJpIACBPgIiqFM135fvjlT62 sdZsgKgaclIKLtmx rbhY8f92omgkRZHgxKS4AAArmSURBVE1EJIAABM4Q M4P6CS6lUcVzjhNWgg8K4FmdOznHOf5eyx7BNljeWINAhCAAAQgAAEInCaAIDuNjAwQgAAEIAAB CEDgsQQQZI/libWTBGShOf9BAAIQgAAEXp0Ao Gr94Afrj C7IcbgOIhAAEIQOApCCDInqIZXtcJBNnrtj01hwAEIACBjQCCbGPB2Q8QQJD9AHSKhAAEIACBpy OAILu4SeJL9S57h0zy8trl5Y7FF2NWKnrwMtZKjofdQpA9DCWGIAABCEDgFxNAkH1D44kou0yQi f/5yzj9e2vyNza3Kyp 3rRlSOdekSUPEGQlKlyDAAQgAIFXI4Ag62rx tYvsnXCqLYOMlY2qd02bPaCbFTbMEkEayk3vFjPuNHvb7lFuMbDPcsKDueCbNnuZRVXydYig5Pt L0rmDwVZLX8pQjdkb5Wu5EeQFdqTSxCAAAQg8HIEEGQdTb5787gXGJuoCUJmWkWO7HulN2 W 35vuEUFhc1IN0kkosyLpPVSunl508WCINNRs9FmG5mL/3YTjNH kSDryS/7EUaRGe3FYy0/gixS4ggBCEAAAq9MAEHWan2JABXmG0VUbVGsSW2uO/jd5fXe4iJ0EhPZJrQ7wbdEuJI8NT9rguwggrVtHrwZLgqyzvyHgqyRH0G28ecMAhCAAARelwCCr NX2XYJMGZlnN4/7CFkirr5BkG3iSsTiPhqmPF5PtzzrJVmg1pX/UJA18iPINGvOIQABCEDgVQkgyDpafhfByqYs5b5VITGZstRRtXaErGfKcnZ2kDVmhanBPELm/dvShSnSownFDUBZkMlvBmSxfz2/ZiSC1AzbNGktP4Js488ZBCAAAQi8LgEEWVfbZ4v2zZisl5LokFWL gf12gkROSI65J Pkol4Wv6Oi 69mJnUtKfKv7k3lQVZaUpwl3/2oiqWOxjjBWNYshbtLj8oWHxLhV8tf/DQi9CY90T54hP/QQACEIAABF6dAKPhE/QAHV16Ane 1QUE2bfipjAIQAACEHhSAgiyH26Y8NqL LqLvrVeP zyQ4tHkD0UJ8YgAAEIQOCXEkCQ/dKG ytuI8j SktSDwhAAAIQuIcAguweeuS9mwCC7G6EGIAABCAAgT9AAEH2BxqRKkAAAhCAAAQg8LsJIMh d/vhPQQgAAEIQAACf4AAguwPNCJVgAAEIAABCEDgdxNAkP3u9sN7CEAAAhCAAAT AAEEWaMR5/HdDcPb/p/5bOQ8uv3lrNg7kX yhfLt166AyWpf39P9M3epuQABCEAAAhCAwLMQQJB1tISIMjP 21LOn86cEFRbxnj25ewN Xd RHNy9D59uPD2fX2DcwhAAAIQgAAEnp0AgqyjhTYhtBdSMYJm7IczMZJmPpKtldws WKUSyJXezsdbrjNjzR1MYJ2g BLrfIXBCAAAQhAAALfRQBB1kE6ii4/dVkQOv6 iLAlPCVTh1tETcTXds 5f85PLRbstFw5EmQ 391Ru1bp3IcABCAAAQhA4CoCCLIOspsQKke25L7fODzamj42QabP4/0bxdPmRzSkjjfaVBY4hQAEIAABCEDghwggyDrAV4WQLN9CkHVQJAkEIAABCEAAAkcEEGRHZNT1k iAb1TqxqiBzTFkqlJxCAAIQgAAEIFAggCArQNGXRGwVX3sxhIX7 r6ftpw 1vTrOrLSov4Tr74oLtpXr70Y1x8MxB8OvLlB3df14RwCEIAABCAAgecjgCB7vjbBIwhAAAIQgAA EXowAguzFGpzqQgACEIAABCDwfAQQZM/XJngEAQhAAAIQgMCLEUCQvViDU10IQAACEIAABJ6PAILs doEjyAAAQhAAAIQeDECCLIXa3CqCwEIQAACEIDA8xFAkD1fm ARBCAAAQhAAAIvRgBB9mINTnUhAAEIQAACEHg Agiy52sTPIIABCAAAQhA4MUIIMherMGpLgQgAAEIQAACz0cAQfZ8bYJHEIAABCAAAQi8GAEE2Ys 1ONWFAAQgAAEIQOD5CCDInq9N8AgCEIAABCAAgRcjgCB7sQanuhCAAAQgAAEIPB8BBNnztQkeQQ ACEIAABCDwYgQQZC/W4FQXAhCAAAQgAIHnI4Age742wSMIQAACEIAABF6MAILsxRqc6kIAAhCAAAQg8HwEEGTP1yZ4BA EIQAACEIDAixFAkL1Yg1NdCEAAAhCAAASejwCC7PnaBI8gAAEIQAACEHgxAgiyF2twqgsBCEAAA hCAwPMRQJA9X5vgEQQgAAEIQAACL0YAQfZiDU51IQABCEAAAhB4PgJNQTbZNzcMb86M/7z38/ju/5Zrg/16vhrhEQQgAAEIQAACEPhlBJqCTOoz2XdnzIebYuXmT2fMZ/zrIcdR23 IRYxAAAIQgAAEIACB30GgW5CN44czMSKWC7L5y1kTImk mmY/3RzrL2klmja8OSuKbvpYImzvbpRE6r6Puum00QZHCEAAAhCAAAQg8IcJ9AuyOUTKVhGlImSj/dgEmMASgWZVBM2LrvcgyPS5AkuETMHgFAIQgAAEIACBlyJwSpD5aJb5dLOIqijIDiJcw6CmOAXp/LVEypbIWIYZQZYB4U8IQAACEIAABF6GwDlBJrpqfHd2VILMyXSlioYdoJv9VKWsRZNIWfiBgE6K INM0OIcABCAAAQhA4JUInBZkzguwNzcoEeYX/Y/Hv7j0v8yURft YVlYbxZ/tRlhj2aLnM2yXm3IpkFjQo4QgAAEIAABCEDgjxFoCrL42gu/WH959YVfmK8EmXP//C8x10X55t3/AMCv2VevyUgX9W v0hCmEkGLi/ HVbz9MdpUBwIQgAAEIAABCBQINAVZIQ XIAABCEAAAhCAAAQeSABB9kCYmIIABCAAAQhAAAK3EECQ3UKNPBCAAAQgAAEIQOCBBBBkD4SJKQ hAAAIQgAAEIHALAQTZLdTIAwEIQAACEIAABB5IAEH2QJiYggAEIAABCEAAArcQQJDdQo08EIAAB CAAAQhA4IEEEGQPhIkpCEAAAhCAAAQgcAuBpiCLL4aNb9b3b90f3px/Caw9fjv/Lc6QBwIQgAAEIAABCLwigaYgEyh ayR5e34kpDcXj9fuPLKX5Z0AyQ4BCEAAAhCAwK8l0C3IRtlfMkbEckE2h/0p49ZJxn46v22lYJG0S0Qt3Tpp2btS3Y/55ejT/lqsOA4BCEAAAhCAAAT6CfQLsjlEyka/QeWnM2ovy9FmG4GLQLOfmxdedL0HkaXPtxSOCJmCwSkEIAABCEAAAi9F4JQg89Eu8 lmEVVRkB1EuIZBTXEK0vlriZQtkbEMM4IsA8KfEIAABCAAAQi8DIFzgkx01fju7KgEmZPpShUNO 0A3Tx9uGN6dMRIp 7dLhSDbIeECBCAAAQhAAAIvQuC0IHNegL25QYkwv h/PP7Fpf9lpvwowC8sC vN4q82I fRbJGzWdarDdk0aEzIEQIQgAAEIAABCPwxAk1BFl97IQvtVxEl0S4lyJz753 JuS7KN / BwB udn4Hl6RERfq 0hZeG3Gak8ib5OIsOV1Gqt4 2O0qQ4EIAABCEAAAhAoEGgKskIeLkEAAhCAAAQgAAEIPJAAguyBMDEFAQhAAAIQgAAEbiGAILuF GnkgAAEIQAACEIDAAwkgyB4IE1MQgAAEIAABCEDgFgIIsluokQcCEIAABCAAAQg8kACC7IEwMQU BCEAAAhCAAARuIfAfPcvwUwzNr18AAAAASUVORK5CYII=

Error: (For example 3 shapes. 3 slide created)

28599
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAWgAAADICAYAAADFjnuPAAAdrklEQVR4Ae2dMW7k uNPF 04DOJijTNTRnOGfTeDAqS9gYMIBjM0Gmy6cL5x wUZzA99AH4piUcUSqVar1d2U9TNgSKLIYvHV42OJ3bYOHT8gAAIgAAJNInBo0iucAgEQAAEQ6BB oSAACIAACjSKAQDcaGNwCARAAAQQaDoAACIBAowgg0I0GBrdAAARAoCLQf3ffD4fu8P3vIkL/PX/tDoev3fN/Xdf999x91fNi7RsU/v29O4i/X587can28/f3Q/c1OG1qSFsZ51XGIThGnEyXXRfxFZ/jbwXqrNXo4io j3qhAARA4E4ITAj01 7r1ylxKd27xyh6sRsEriaKXdepGBs3RbSHtubGKqc1X1x5ENrvXXk5XMURjIAACGwQgUmB/v79ayXj/F7JDO BgBO7kJ1WFo REErbawqj903x8eX WutxBAEQ2DMCkwL9/J8XsP 655BVW0Gx5wKl1PGP7n0dEfyDCmIQS1 v1l63Unx9sTuUfX1 zq7HWzS9byljzjJqO476GIYdEltfkvPBj6HfvM5ANFee VGzNcenUp2hV85AAAS2hcAJge7FIgmaiGrY57UCY897gRjt88Y916Fc2pithSDWMet1YtXDOVF/lDFbf8bBkP1z9SPf3jDtqj7YzNzUz7qx5fbcVpJyI i6aNkq4dy0P lTDfuRUQpAAAQ2gsBJgQ4fnsUP3wZBM8JhBXK0haAo2PqaDedbC8l2zKxVRIOFgt1U3/YfKru 1AU9iq0wHhG0iuCWfDjVjwhoEl21W/PFlYf tE3cK/e2TvkU7ueY6pA5ggAIbBOB0wIdtiy ds9/q7DJQK3AmPOqSJg60rxQbxDcHsj myIxy56s72xnvpWCEoU5G48fU8GHkV3Tb afFX5TJ3PFl/fZb3hSqdo64VPWLuuMCxAAgY0iMEOgh4xuyGqtwNjzXmiGeoqKrSNlcu23OMbZ37AdMVW/ZNtko qCOar45356O32DwQcjomEIkjHHfiR71q/4BaHU/ss28wVOF6xTtoYBDD5Z zXsh3acgQAIbAuBeQIdsmgroFYY7LkMXq6H/dV /9rXUVHSeipow2LQbxeYPoPwFeqPMlvzIVvaPHdByURU7xkfs 0K44Mt/26/ydKLY/9d7O/d97R1YmxqN GYY5SEPtyr2LJ9pz1rbz 3Wxt 5goXIAACzSJQEehm/cUxEAABENgNAgj0bkLNQEEABLaGAAK9tYjhLwiAwG4QQKB3E2oGCgIgsDUEEOitRQx/QQAEdoMAAr2bUDNQEACBrSGAQG8tYvgLAiCwGwQQ6N2EmoGCAAhsDQEEemsRw18QAIHdIIBA7yb UDBQEQGBrCCDQW4sY/oIACOwGgcPHx0fHLxjAATgAB9rjAALNAsUCDQfgQKMcQKAbDQzZTHvZDDEhJrfmAAKNQJM9wQE4 0CgHEOhGA3PrlZr yA7hQHscQKARaLInOAAHGuUAAt1oYMhm2stmiAkxuTUHEGgEmuwJDsCBRjmAQDcamFuv1PRHdgg H2uMAAo1Akz3BATjQKAcQ6EYDQzbTXjZDTIjJrTmAQCPQZE9wAA40ygEEutHA3Hqlpj yQzjQHgcQaASa7AkOwIFGOYBANxoYspn2shliQkxuzQEEGoEme4IDcKBRDiDQjQbm1is1/ZEdwoH2OIBAryHQ70/dw HYva5h6xPaeHo4dIfj67aztNdjdzg8dE/vcRIT823HcyPzbJZAPxwO3cH8JpKuMUgh sNT9y627Pkatm9lY8rvMJEH/B6e3kfEPur4nb vx0N3iPfenx6yGIR4ONHL7Lh U8xq5abvzI6UB3Hqx2D9PyZO1Ben4Lf6OdF3zVatXLM9xShc1 y7cjsGbyfw8OOjK/YrODw89fETm5W4qU2O7WWkW4vJPIFWkZDJGshen5BnA/BJiF6drK/H7vg6EPVosrAkuoWJLsLzcDxWRSDcj2I/tvPePT2YbC8Ky/tHrbz3b2xHxXkcb lfx5WJsBF64cIw3nLfUqdmq1auHAsYJIzK9oPgTsRA 7dYT/UrTwP9uF rsVH/OA68B4tlWJwv0B vw O8F1e9jscnyQBjlqWT2QcqPP7GOmmShPbH7iiPxgeZEDL59DwOVOqkDO4wPHpagSjVyXw7dq/ Oi1C6nsUp1I929fM80w4tS8n0CJ4IcuLfWpWl7CTcr lktV1YpXu1coNeVLdvuz1aITejPFo 49tkn9aLy0MYqvW92tXsvX US7XPsYY1eybsUW/bAzGdmb2q2OUo4zfLLzqI8cx9mByHibnC3ScdGG/1U3mtEURCKuZRszCnAilQFkbeh7aR2GQ/pT8acJPTyK1XZr4/WQyvnlf4 OtLigpOyzU035mH3V8fnIbbJJg6MQ397SfkDn6rRJjuxd0wUgXmXwBq5UH 8bORxDJwUa/WPYEy7ANmI2z7Gwscczjvl0sk61a UeX2U3 ytZRfcyKXeLoR81Ovd9gQzioWzYaR/FBOaplHEdbeSkGYDMbm3kCbSZ62hMVkNPkiKuCXutRA2Gug BpxiwiY 6l81KZ7U/uW5/CuROIWh1r29os JoES7JF307ru NofOb 8LhvVtHMrmSBuSCGJxAr0mFcbqzSh7EjAj08pkebUVRq5WnyGDu94Jm Ut8nRCyOORPSqk81W7XyjypG8sTWL6z5mNPYRlsuJawfRk8n2WKU4WPiaOJsMcjC7hwDyBVoGIE 1QEIGRpnqx6rUclrb/Wcjnae3quxzn3rS17bm1Mlft6peszBLoWjKI4 /FZPyv3itmzr2vG0GfT8fH/dfhgKyvXbyZ4O36b4UPEUZ5snHjG/vy3WDKBrvlUtTWvj8Sfqv1BIKoxyMZttvBMeRpbKYOWevyCwRU4cJZAh0kdthyOg0Af4nl8ZAwZ tpksgbj 2g5E7qkNradHqVc8l8mr2VJ9chTrWHvefvTLtgsZsWSfvp0dw9S5tJt6/J2y6 8FWyajtf1mdQd80kIa9oxr5QZDY0faZguC6X/IxPutgtFjv/gWt6RUvBTX3Ceb7ee2ZvWR/J0YW/C7vJeuvtn4TvWbLTqK/xz7WpcjQn4GB84SaCVzEK0oOv15/6iYf8gXvzonzqRJZITAOCkTQh7li 1t23QeBdNuc2iWb yGfl2dkS/JpvFNylK7KIileravyrnFJ2xXyDj9ty9iX7rvrTjnvvaP7do21dGFMfkbF65sDGYPulZesxM 3Bu2AtLX9eJefT myqKRbSlEHhg/59gSUZ/sI8VlzAm1PxWDhGOyIzzoxb7U7/AtDs XEwtAhR pf 4j3AUOzBJoSGQmYwFE8KnjE8TRf6i2VQzjE0F4AtjqGPB7UwsBAg1hr07Y8MHn1kU6bO2RJZOM1 JORa2CDQCPQVxfoaxAXm7cVCvC D94INAKNQMMBONAoBxDoRgNDxnKfjAXcwb0lDiDQCDTZExyAA41yAIFuNDAtreL4QlYJB 7DAQQagSZ7ggNwoFEOINCNBoaM5T4ZC7iDe0scQKARaLInOAAHGuUAAt1oYFpaxfGFrBIO3IcDC DQCTfYEB BAoxxAoBsNDBnLfTIWcAf3ljiAQCPQZE9wAA40ygEEutHAtLSK4wtZJRy4DwcQaASa7AkOwIFGO YBANxoYMpb7ZCzgDu4tcWC5QMc3UFQHk72h4rKgL/p/wiv2Xx3jPcX90vHx/40vyxoDfv3bXkZvwrknLz5z35dy/hxsYl/VuX8jX YJtDiTXj0UX9mkDurRD75W7uuduF78Ro6V q8G6ITfV2 3xvjiG0LO8lX6TVyov oq2FzDx2vjvNDHyRfQXtvnBfbDa X8a EWjn0WX2q2a W1Mdn69rxWf61y7UuP3m6t3Ne78HqWQHsyHue8RHWlAfi Z5FDQFmp/9n9XRiIs/tZaXzFd ydGsvcvufWO9XfNe8v8VHahJfwXvZkeHbMF Ig4pze97nQxtm LsG15Ju1Y89LddcsO9XXqfsr TJboNNr57VjdTAeQwDlPGVXhy684Vvqu/LiyzwfnsaPnDHDS2 BthmA6/8pvnhWXvQZHjn1vvSvj/OvT93Dw1M3qjvyMX9R7DC2IWN8ejh2r7GPor0Mp2N3fNDH4f7lr8nPUd/xBa/B9kS72LfaFXuKaxHvzNdhHPKEUnoRbW j8oqnaMvGpYRB2JqKfAh9SDvDj5q/wpsBc31prMVFYziMIwlI1kcex/QuweT/EAvBb4RDyVb2QlnDcY1j4lfft39hbRhz7L EmY/dJBbKsYljim8as1lUYplgl/mp Kvd2f5qPCZwVT mbGq/Hx9dxqHjceb8NXNBbUl/blE9xuts7DqPnJ8lPiZ90z6ucJwl0PrW7YN9r5wbwHskbtqP0/vhzc4aOJPZOsBej6ZOHGgil1wbewksEexgJ4qy1FNR1/q2n1pd53sIWBirvN15mGjH47EXfxnTw1Mv0Log2L6j/8nP Ab0tFC8Gz9D32bs0e9MIHWBse3CWAYBDT6HBWzwOfUvE86PXX0U2zauWu7sB1v2ni6W3q7iL3Xl ntarjLPOmzPHEX2Tt4ArB1McMz cX/6ejjG tXxk6yO PTyNywme6T/DTOwq1lXM reJa58DfhUsjK jvqLopkWnNE4tC/4MHBzNxZn Jrw/3l3sHUaCXdWmqSvjUx/13OKbuDYPH9GxhK3GwmOo5dqvHp1GZH55GytezxLoFHxxXjIgu8WhA9CjOqfXcjRZU2gfRK8n48 GtaqmvUwSz9u1kseWh34F4I1BtXW8j vV67EUwkFbq69j16NvZa8FC 6idy/0SPnPa2b6CnZjVn7KnMfI 2fKp85pv3p6vN8cvbRPGM2TPiTd6v SfvxdsDE864wzaxcfarNnyY5xqo3XtuCVmJdunyq2NcG54bX0w5zb77PErZ/y6SFbn4jn 6nz2bdQvLdejL9drPdp69lzu67Uc5 Cj4vvx0em8Dnrj29tY2D78fLPX6u/Kx/MEOnYeskrvuF6rg3qtRy0vHCXrKZFDVuRqBqB29ah29ToeX58ehgxR71XqZhM4Ek18OL6 hoz5/UMe3Y7d62vMpGv21L4cbZ3SuS27pJ3YEZ/n2LP9GNLaxXHy3PZhz eM1/Yt59K/Jbra06OvXyv3fet1CRNrw57bvny5XM8VH7UT2gxPOYkLJduCwblYaD9zjr5PaZPKXtP2YnEupno xu9VrPWr/cj0Xo1JbywNrU8trbXy5ti0cw/yVbNja1Cdcqa 2ake1qff1 krHWQIdskZ1QB3zx/AIMJAxPO4EENxjm7FzfHpPxHh6GNomcYiEHVa5Y6cimuyrH8ZueKw25eFDEunLlCWbBR DbX3sf3/qjg/DQvH dOxkq8PuJapPI/vik 2zeF7HJ20PlNrZMt1DDD7PsKdY acUUx78tsT19yzB9bw03oPGrOJX2EowsU/jqtRP992jcPSvusWR/Ij7reqz2DP3EveqWxwupjVcPBYaI nXjyFdy5jPwEL7UFG0vvjz1IfBTcuE41NzUeupzXSdx8jPmyKu2laPI5vGP7kn9TQ 1Ta5HzaG/lx8lPlbS/xGupL6zGOT6qn/VzrOEmj/qCTilEhmBtDvsfaPpcOnxnHPzj6ChMnRg6qPXgkwN1BL2ABKtJPsp/6nVve r9RG 0htvY/546P1Icv4UnvXt9qXo61TPPd994 hJ9uJrRGmH/0CVriX2TP SWzTvpwp7yeGEQu9l9kuZOxmjLJw6ecXIb5Z2zhOsSsL8WgsM3BRn wx62OIY5E7Iprexxm2aliWynX8Mr7EP4ORTxTOwSIkBmG8wzi9IKVr36eMM5WdmIupnue5j1Huh 449m9tqS4 Kt7/Wchuf CHhOCHyfritHGOr53XZz2KMkl vGU9TLK3tK5zPEugU5Cs4cMp2mFiazd6h/1P bfq f6RuAV/xiXj3T5ZgkZ6wNz3PLphXzQu0BCZk8EzadckastZChnwBmZZOIs20 iw6z26W2txqO7BwWxx34GNL3NmEQLcEGL4wgeAAHLgVBxDona/QtyIa/SBqcOB8DmxboMNjev hZPGDLsR33W0R8ARPOHBTDmxaoLNvV1SIk77v6O nT2fPW9X674nGP6BgX/ymZCUDO4 r4LV9vLYr0CKwE9//TF r0u 7riHQ gcq0Vbxu9u H64RcTgABxZyYJZAD/9gqP EPYlf/O6q/aON1f8BTBDimLEmQc6/t5n9JZoFYiJLtt/tHn9Hd943CfT/dJCpbD9TIYbEsEUOzBNo w9KrADKuX5XMwpp2guWcvMHKak8iaaIrBHCWO5BKv5l2NQ/rLH pb4K5Mvu9YKvPp767nUv7sZ32yfnZEtwAA6sxIF5Au23CUTc/F9 ZYJn/kppqtzaCOdO9EptVdT9vRIgU3XsPXsuduRa ynZjWVz9sD9gsN1YbGcwBi8wGvPHDhfoIN4mT9wUHHTo042vU6ZdCSalutR65eOvo5cq3D6e3Pa 2zq2vT2XOrYf28adyx8VaNa9ZxIxdkQUDlyHA8sE2mTUYTtArksil7Y4CoLu/7 qEz8NeHmLw2TolXahvffJ1o0i3P9d/7wtDvlHSWG/PdpJGfRMQdcxcbwOmcEVXD8bB84XaPPPS4r/XERFMIlj/k9Gwp/zRuHuM1X9ALDyD06C GkdswWS7JdJ6T/ILGW6 me1sz8kNN 7lnEkmwg0e47Ke45wYUUOzBLoVVcl/VBxxUGs6h9 McHgABxohAM3EWjNVPlnOOVsnwUGXOAAHChx4CYCXeqYMggJB AAHJjmAALdyKMMRJ0mKviAzx45gEAj0Ow3wgE40CgHEOhGA7PHbIExkyXDgZwDCDQCTfYEB BAoxxAoBsNDJlEnkmAB3jskQMINAJN9gQH4ECjHECgGw3MHrMFxkyWDAdyDiDQCDTZExyAA41yA IFuNDBkEnkmAR7gsUcOINAINNkTHIADjXIAgW40MHvMFhgzWTIcyDmAQCPQZE9wAA40ygEEutHA kEnkmQR4gMceOYBAI9BkT3AADjTKAQS60cDsMVtgzGTJcCDnAAKNQJM9wQE40CgHEOhGA0MmkWc S4AEee QAAo1Akz3BATjQKAcQ6EYDs8dsgTGTJcOBnAMINAJN9gQH4ECjHECgGw0MmUSeSYAHeOyRAwg0A k32BAfgQKMcQKAbDcweswXGTJYMB3IOINAINNkTHIADjXIAgW40MGQSeSYBHuCxRw4g0Ag02RMc gAONcgCBbjQwe8wWGDNZMhzIOYBAI9BkT3AADjTKAQS60cCQSeSZBHiAxx45gEAj0GRPcAAONMo BBLrRwOwxW2DMZMlwIOcAAo1Akz3BATjQKAcQ6EYDQyaRZxLgAR575AACjUCTPcEBONAoBxDoRg Ozx2yBMZMlw4GcAwg0Ak32BAfgQKMcQKAbDQyZRJ5JgAd47JEDCDQCTfYEB BAoxxAoBsNzB6zBcZMlgwHcg4g0Ag02RMcgAONcgCBbjQwZBJ5JgEe4LFHDiDQCDTZExyAA41yA IFuNDB7zBYYM1kyHMg5gEAj0GRPcAAONMoBBLrRwJBJ5JkEeIDHHjmAQCPQZE9wAA40ygEEutHA 7DFbYMxkyXAg5wACjUCTPcEBONAoBxDoRgNDJpFnEuABHnvkAAKNQJM9wQE40CgHEOhGA7PHbIE xkyXDgZwDCDQCTfYEB BAoxxAoBsNDJlEnkmAB3jskQMINAJN9gQH4ECjHECgGw3MHrMFxkyWDAdyDiDQCDTZExyAA41yA IFuNDBkEnkmAR7gsUcOINAINNkTHIADjXIAgW40MHvMFhgzWTIcyDmAQCPQZE9wAA40ygEEutHA kEnkmQR4gMceOYBAI9BkT3AADjTKAQS60cDsMVtgzGTJcCDnAAKNQJM9wQE40CgHEOhGA0MmkWc S4AEee QAAo1Akz3BATjQKAcQ6EYDs8dsgTGTJcOBnAMINAJN9gQH4ECjHECgGw0MmUSeSYAHeOyRAwg0A k32BAfgQKMcQKAbDcweswXGTJYMB3IOINAINNkTHIADjXIAgW40MGQSeSYBHuCxRw4g0Ag02RMc gAONcgCBbjQwe8wWGDNZMhzIOYBAI9BkT3AADjTKgVkC/c8//3T8TmNwycr/119/dfxOY3AJvtL28L//4/cEBpdgjD5M64PgswTf2QL977//dvyWMVgKvgZMxPnPnz/8VjAQfBSrpUcE vQCtRRbaSdzAH0o64PgslQjEOgVFp6l4OuEQKCnF6c1BZqFcIy1Ll7KxyVHBLouzgj0CiJ7yeqP QI8n/ZpCiEBfF18EelpcL9EGbbtUI8igVxD3peBrpkIGPS1ACPQ0Ppcuhgg0Av2p96cQ6OsKCAJ9XXwR aAQagZ74Gs9mMui3H92XLz 6t8qHeZdmcrX2n0ag74RfDVct/ wC/fz86 76szSJu80WxX7vHxcfh9 b0YMAu2nL tsEWh 0RLj0vBv/kWhwjE4dAd3O Pt5kZ2p0EpkmBLmD57ecJHO Enwpx7bglgbbzX drqUzvybEFnViqEVcX6Ldfz93j40v32wjp75f82oJ56vxUME61v8b9peDfRaAvyYDvJDDNCnTEM jxRRMGeFOk74VcTZi3fmkD7pOyUAJ 6fw1N8DaXasTVBfrX83P3662 x/P8 Njprw5KAP31MmTcL7/79r eh7Lnl5dOft/efoUVclQ/lqtNOVpx1z7lOOWfbV87Xwp MwIdhePHtyG7TkIThSdl3ZcI/MKtkdYFWoXuT8QxXDvcwlNKvP/ty4CzLU9bRxN2DlfA/zMJ9GheRx3odeKle34enuZVV2rzes3ypRpxdYF dtmzHfTL42OnIIVMW7Y BFBT/q9sj5g9pLQaWuBL9fW ydxVoF iTyGrj/WsX eeLwX/LgLttjfChI9ikkT557euF4Kf3bfDoUvlUTiSkCwU3CRoM9tvRqD//Om Hb51P/8IbnKMWx4quAHnL51uKb39 BJwVmFPuCacb4P/pgQ6JnTZlmnc6izNa03gVKBTMha2XV8Wb7XeSiPuKtBJbKOIBjH3wvr2Kwh0eKyx9/RcjyrEWt X617U269OApkF PHxokBtSqBLGVgShFxQ3mrlKjw3Om5OoIMQD1ly//TxrftZwlOEvFQucaqVr4z7pgQ6irHogWqCJHAiwKV57QXabo 8PE4/3Z8rwlP1l2rEJgQ6CbkVXT3XoxHoUN XO4FOAdZ2FxyXgn XDBqBXudP6r14imhqmR69kPpyuZ4S6PQk4xZOb/fC660LtM53EWg/r3OBzr9UgEDLKlf9kPB3V93isN/OsEIr57plouV6VIHVa1tX/Qh2836nVr259z6tQIdH9fEjeXoUv1AY5m51bCODttsR9tx8s8MJdNji PazF3azJaJbH28O/7QArIz7ZxJo2TK1WXJVoOPWqa07d74vqbdUI66eQctgepEePuB71K/ZBRHV8vjNDhVYL7jx nf88DB8SBgfbVKGLXVMe9tvqq917Nf 7IKg/Z5xXAr XTJovwd9OHQ/frrvNych dn9kSwutvny7Rvfg1ZxDNmv3cYYFrLSh4R2r1/xtB/4BVEu4WzwD 1KT0Dq08LjpxBoM6/1g0Ld tAMW8v1KJ9BIdBnCN2SlamFNpsR6IUTeG6me616TWbQ98BSxFoy7pX73pJAL53vKZO oShbX5dqxE0yaOvoZzxfCv7NM iVJ/baQlGzt2eB/mmngw2yA1rJaUI9D1rwGvpVdLNQKBXiHDXwo Am32ZycWjz0L9BLBPbfNHgR6LaFdamepRiDQCPTqj8znCsSp gj0vIXsFI61 wg0GfRF3zNeumrdqt3S1ZEMep7wrCnQKkYcx29YUT4uOcocuNV822I/SzVidgYtHfBbx2AJqbWNCBC/0xgoVkuPCPJYkD0mS7GVdmhDXRsUmyX4zhLoJYZpk78 HTzAAw7AgXM5gEBP/J/mc8GkPhMQDsCBNTmAQCPQF78xe01CYguBgwMDBxBoBBqBhgNwoFEOINCNBoYsYsgiwAIs9soBBB qBJnuCA3CgUQ4g0I0GZq8ZA MmW4YDAwcQaASa7AkOwIFGOYBANxoYsoghiwALsNgrB/4flx/N83bfRswAAAAASUVORK5CYII=
John Wilson
06-11-2021, 06:25 AM
Thank you John. Unfortunately I can't.
I managed to improve it. However now I get an Integer error. Before I use macro I have to have the specific number of slides.

28600


http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAmQAAADICAYAAABGUP0AAAAgAElEQVR4Ae2d0XWs KhSGrYuCqCMl JYq8moBKSIvlnCK4KwNohtEwJkxmWS u9a5GoXN5gOHfzaMDI7/IAABCEAAAhCAAAR lMDwo6VTOAQgAAEIQAACEICAQ5DRCSAAAQhAAAIQgMAPE0CQ/XADUDwEIAABCEAAAhBAkNEHIAABCEAAAhCAwA8TQJD9cANQPAQgAAEIQAACEECQ0QcgAAEIQAAC EIDADxNAkP1wA1A8BCAAAQhAAAIQQJDRByAAAQhAAAIQgMAPE0CQ/XADUDwEIAABCEAAAhDoEmSjeXPDUPhnvy4nOI/v5bLN50PKjvbt9BBzZSOTdcMw H9mnMtpnHOTHVztfsg4OSu2zHho5 yNyV7Ztou/S/0f6Xdezz5 ea7236MJbRfbcBiMs5V2bFv8mymu4t mNbvRmu0Zs9YZ/Xw8 fPXrh8pIACBVyDQJcgExGg XKJZ5k9nvkGQSdkimsz4b2sPKftBgizav1SQLZ7Po kQXFs1j88mZ/WAc5zw1J0d51O5G4nn0Q SkzXuFi0zGpv2v0Zxj70tolKXHwTALfV4rF/91u7ld2/ fk/Pp5TnSgvkeQp9Lbf07M9f7i9/QwACr0XgtCArD9r/3Gi3SJaIJS3eYgRGRNU0fjgj0bZc4FW4b2V OVsSYtOns2sU793ZMY/c/XOT8m8wkv59FQZi346fwa TvgW382/oJv2GvtTtcEBofYOfRYDFKI1xdsoEWXJ/cMaO7jgOdwx647ylkWsSHTV2abeb IioFr99GLAgSmcnQm2NQJnRWbMINxFyMbqmjomArvCTqE2066OPKu0arWvyywWZqs8S2ZQyxP40 2uCvFpBN 43 U8kvXH3ZEhWKfJKye/gJ78hJxI16eu/kX3w zLh PjT937ri4Vl4rqZmnw/pCk G6hPFCHXC/5bnr9G hzXjBgQg8EoETgiybVoriVb56Nkmbjy8OQin5KNv nDD8O6jarPcmL cP3bQjqLAT5uWBJn7l9gSAagHbBFjdtIRti9nh83nYP/DTYvDkj6vY83NfECY5QO EME6HBAW4 X7Ir7s6ptzi3hR9kdr08FIBhB7fkqzJMjENc9HBPSNfMRnibCE7LOP7i2mfM1FjNlo3BcoAiiNp PVEaMr8gnhKBtrJOqM6SJtfLsikPql/zg/qxtsN/Xta 2TLfqv/9OQfVB8Rnkl9/TOqI3xLh1sP8 qrXBIRq/D4VPfw37HyAmf70iD1b/m/ulo8Cc9EFKT C4nuYEueo/4RTZbv3//8tdo3ls8RAhB4bQInBFmYstwN2gdTlyJqkimd6eOUyNHNspV5ECGbdYTszRmjBdlBHlWA2E8GoN O 6gjW4IwaHFUxPkqUD5TN yIeEpBeIW0RuIMIxpBMselSjs83zmmau/lkAigIsFhGFu2Ll7PjPYJABKGI2jhGJwKhi58IshhBkmMmIMXXUjvJ9V77a4Qq6z8d WXAT/vvvs9U c06QiblP1CQif Jc6FhpQ/Ebt3jf9Ydqn8 9AtRqV2lTvELUUf7ONf3 VCtFDchAIE/T C0INsR VZBtivdObdEu1QELBUQhWhdZiZNL4Pr7eJRQg3z MAIWWtA8B/256NhGQL/51WCTE8bxunDYR2kgyCLYqnkl1yrCoolUznCEW6ug34mDsNg2eKXR8gKXpbaySfrE5yrxV3/aedf6xaNFHw55rdEI1WEcmfvHv4/IMh8mxa kNT6h6Ar3i w9CI7CrKzz9 ufWOjcYQABF6dwP2C7MSU5ZlpQN0wJaGw/sjAL/D/WKdc5mU92TreDFWxKdm/2U6hZFu1eQScRFT7nJN/RSVKD4ga8qWr4vA3J9yjJMUal1P8rmmdMSZ8l/H5 S4ApTmNHj/Nd587JmR7ehjmqJ4DXDFvGKdSzzi3eDH9rOesdP8UVv4lV9vEeQSfBMphCP7bf6Tyu/1FuzKkXrdL0Tfj7aY9XzE6JliT3/jOuI1jn umxPtTBlmZRXEkES5fRRynzqdS8ovWBKDIa2rPePA0HmBdd9z1 rfXVP4xwCEHhdAl2CLH3tRTYV6dnVFvVLBGtbfxZfn1H4vCy2goiBmCc9br/61GmM/XSTz6P9TP0bZEH/ElHTeb1Pfq1b8LdXQEr0wSaL0vUHuAwYerornseBpXVfFJGIiZhPBt8lz/otPV8Uv6xlKhLdX4w/ukj4Lr gvYtPMp0TB3Rd33gtXfQ8yPosFbERj73IjRwTgartRUZyjHy3 sqAvEXmtuvrurzVfsovfe1F9DnmL5ef9u96 9T7j6999qOHzT9fp8Xv0H/Lr1g55heESIxcyvqryf9QIK3ncf5y/VP afvKdF Up73 h6hXqV2lfLN//mLziKCK7ZocY/9o3b// Wu37 osJxCAwAsT6BJkL8yHqkMAAhCAAAQgAIHLCSDILkdMARCAAAQgAAEIQKBOAEFW58NdCEAAAhCAA AQgcDkBBNnliCkAAhCAAAQgAAEI1AkgyOp8uAsBCEAAAhCAAAQuJ4AguxwxBUAAAhCAAAQgAIE6 AQRZnQ93IQABCEAAAhCAwOUEEGSXI6YACEAAAhCAAAQgUCfQJcjSF8Oql7wuLw tF3HfXf1i0uTFpcVNxs XFe2nL/I8b fWHPHFmFeWX3vx661 n8rnN94OL23d7cupDOVv7Fe31OnyIs/1pbjq1s2n2YtLrV33KvyO9rnZbTJCAAIQgMCfIdAlyKS261ZFseoHe1jG2488imhK3prvt0v6fF gRYv9KQdRyVAb97yh/x7Hl2IPvSz1rgqy/uLANUn/6ekrPP 507V/MrjaPlr /qX3qXnIXAhCAAAT MoHTgqw8qKdbExnzuW6NIvBihEZE1TR OCNbKZlt66MW4K3MsFH4Lv2yf2WIoL07O35lSf65yaotmMyns7J90rKjtRdk42fw66RvoaAswqK 2hinel70NVYQnCILRmbi1i2wNtNQgbNtj3Oj3b1y2BjJ29T2raPXPjeOWTK4JN2OXdnlE/bP6xdIOBVkrglbaOkrxS7eWGpxs/9ParDz6JMfg13SYp9Y 3s4U9n8M2w8ZZ9W lV3tl9Sv5H/Wvw746jpxDgEIQAACv4vACUG2TVUm0aoTm4sPw7sz9itsZDwvxw5eUTR4wVWcqvy3bo4s5kQA6o iTiDG77F3pi5PNxYdUkA3Dh4vbJ0r6vI41N3s2T5bNpaNIkH0BByUoZMD3e/8tCcJm0jG1RCeXQXq9lG7OXfNN3ysJMrnv YpAXss/V/9c0OT1iz6EdGsl4uX1WL4v0TC9N iyL6TiN9pso3EROHZc7bZPgs0oiL2gU2622kf2wpxVepl61f2v1X4t/3v5tutJCghAAAIQeFYCJwRZiGjtBvWDqUsRNTEC5Ss/fZwSORrYVuZBhGyWiJcSjEYLsoM8qgCxrwdQd8ZX2UA7yRwMi6ja6q83Bx cSQRGYUpsssnU3k7w3TiNtnFUlV8EWVKFM/X3pur1i6WVBVe8GyNVStnIrYyFTy3MoyBLNjBfIog 0rhFGbcS s5yQSl p3zS9nGzjpBJaCTPeF4MNqs8v/Pr59tSMVBCAAAQg8I4HTgmxXiW8VZLvSnXNLtEtFwFKBFQRZNswnhtL0IgJOiMcuQaaKm2c3j/sIWW3Af35BVq9fvHuJIHMiVs5Ew6I3taP8cGATdKt4ilkSkShpjRtjeLEgluvtd9L/Qv JbnGEAAQgAIHfS B QXZiyvLMNKBGWorsrD8y8Av8P9Ypo3lZT6YFjkxh6rJnmbJUUbS7BJmvfxYB8WuCtnVMMiBbPWD LgK4crA/43zNlqdw5J0iX tfqF9vyJkHmBVd9yjJM8cZVd7G0/Dg7W4yc7QWVRLy620fSGqv6X4iWaZ6tKcuW/63 k9eUvyEAAQhA4PcR6BJk6WsvsqlIX faon6JYG3TifHVFXrAqmETsRTzpMftRwE6jbGfbvJ5tJ pf4Ms6F8iajqv92n6WMvTIq7mo6whGq2sA1te7ZAt6h NdVbdH9SUpYiUmC Ub9e/4y8SfYRlUtNWKn/dr3A3/qgi4be8suQR9a/Vz4mgij9WSI4xAtW6LyEnVfdBxO2SZ42MLevKon1jvKBKo6KxnFhuJCfXzb59lts97aPTyPqzyb fpJtLb7Vf3v8431oMjBCAAAQj8ZgJdguw3V/Av O4H9FRd/IVqvUwdaL XaWoqCgEIQOBmAgiym9F9T8bw2oT4uotHr5X6njq8cim03yu3PnWHAAQg0E8AQdbPipQQgAAEIA ABCEDgEgIIskuwYhQCEIAABCAAAQj0E0CQ9bMiJQQgAAEIQAACELiEAILsEqwYhQAEIAABCEAAA v0EEGT9rEgJAQhAAAIQgAAELiGAILsEK0YhAAEIQAACEIBAPwEEWT8rUkIAAhCAAAQgAIFLCCDI LsGKUQhAAAIQgAAEINBPAEHWz4qUEIAABCAAAQhA4BICCLJLsGIUAhCAAAQgAAEI9BNAkPWzIiU EIAABCEAAAhC4hACC7BKsGIUABCAAAQhAAAL9BBBk/axICQEIQAACEIAABC4hgCC7BCtGIQABCEAAAhCAQD8BBFk/K1JCAAIQgAAEIACBSwggyC7BilEIQAACEIAABCDQTwBB1s KlBCAAAQgAAEIQOASAgiyS7BiFAIQgAAEIAABCPQTQJD1syIlBCAAAQhAAAIQuIQAguwSrBiFAA QgAAEIQAAC/QQQZP2sSAkBCEAAAhCAAAQuIYAguwQrRiEAAQhAAAIQgEA/AQRZPytSQgACEIAABCAAgUsIIMguwYpRCEAAAhCAAAQg0E8AQdbPipQQgAAEIAABCEDgEgIIsku wYhQCEIAABCAAAQj0E0CQ9bMiJQQgAAEIQAACELiEAILsEqwYhQAEIAABCEAAAv0EEGT9rEgJAQ hAAAIQgAAELiGAILsEK0YhAAEIQAACEIBAPwEEWT8rUkIAAhCAAAQgAIFLCCDILsGKUQhAAAIQg AAEINBPAEHWz4qUEIAABCAAAQhA4BICCLJLsGIUAhCAAAQgAAEI9BNAkPWzIiUEIAABCEAAAhC4 hACC7BKsGIUABCAAAQhAAAL9BBBk/axICQEIQAACEIAABC4hgCC7BCtGIQABCEAAAhCAQD8BBFkHq8m uWHI/tmvXc7Jvqt0785OuyQPvzCPxg3DcFlZkx28fTPO3vdYnpQ5fEcFW8SmD8X8zQ3m0wVP9xmlHc34 b3cjtO 7W6q4u3/3hcl6hsIr8os8xfZoAmPPVLjGf9/Md7KhL4XyzWV96oinsClWucHvyJ5cn0f9TOpnOLR3vF8st2aYexCAAAQeTABBdgKofHiXBnRvYv 50xnwcioETxZxOejiQnbZUziADtTHWrfpyHp0xYznxD10VMXyPoBrNffmr1RZew C8CFvERS4ARs1XjEmePFG1kDtv ja1P9N/p9GN0 zFqpXj8vdaow5 a9rsRD zIrwjUt3ekiZez7LzJwQgAIFvI4AgO4Faf7jrbMUImvnUSRrnsxtVdELEzip fM7svhdImyDygmwMg76PbqjBPURfjBtH60VBvH9GvIgg8/njqOUH7618N43OrlEe4 wYvZ clWiPsct966Zp8UP56OZJ5R cseNpYVAVZCqKdiSo4wAtbbxGQ2O0bf5y1mzRFWOPo3DFhl4EhcfnBZnZiccoyKQtdfRM7Oko5R Tb8Qy/Bt9of43M TZT7euy/pf1z5hf/E7962x/0Z/RR7Gdhzg7 BW5Zxe1INO3vCAbP52JUXDzkT5/lfaP/cXYj P8ujDOIQABCBwQQJAdgCldPhJkPq2PkJ0RYVsJo8kGaD84baIkDNLTKlJmGdRVhEruD4NdBzIf0 VKKS0SZFznrQDe7KAA2L47PvCCbRRgsfuaCzM1uXm0HARG1m4/0DCHfPMrUXfBTbMU0o80iM1J/qwXBsW/xTlWQLYlq7RcF2TREinFgWjzSKfMkDbM20twkSxEwbR8eWopy1zQeaTLEJOomae9bwcZcqzwa91 39vftenmYKt/Vv3zYqre/pLf92Ezul1ZwXiT3 bt8VlNkA3Dh3p 0kh4q/29KBMRtzwD0hePhP xd9yBAARenQCC7EQPqA3o7lZBJgNWVCbKl1X8 GtZBEmiI0oAyWCWmJAoVCLIFjGg7O/yqHv56erLMmjP eA96wjZ4IxRa9p0WhEVi6Nr XI/rplKjnvRkvul/75fkL05I1Ew 7UKX29f2jVGTpJjFkXRztxwHgWycNFtt5rK2nS93uLXuh8N6XaK1 Qo15POFW6ufSKmrfkXvzyU2n/JP41LVFjE BphjcYfc6wJsqSK08cmqDraXz4XDvM/xnWsQAACL0AAQXaikX9OkCknZ1lrs4 QpQPCRYJsiWRYmR6Ng6xboj9KIa5iS9zWA31xQBaxeS4apmisp7kg2w2S3pXjyMVo3pyVaad8us rJdOWZaNjq0qmTKMgOMx0JHuFf5de6v5So20k78U2CTBd51flNgqyj/Xd9TQu6qyqDXQhA4M8RQJCdaNJLBJn/lV0WwcqmLGUaRxY7x/9kylJHLRIBJImywbtvynIO670K02lpNGSJ1kUR4Adyu05ZyoJsWU 2CkQ90BcFWZgKNXdGRe4XZMuifhlMM1EWpqD2v6qN7fGI4 2CrM1P2q/JV7dTVqHdNGLWP33yrM tJrTdg/Zf0158cpsgE74i5I/bH0F2ccNhHgIvQgBB1tHQ8kG LvSO01bqtRcSXandbxdRXzQtg7VVi/5lkXzUZyLG4mJsL4Jk0Fum/uLUlx9Qp0VI QXbW/7Nt2UBdibI4oJtsRntieDbr2FbXo9hRzd5n0RkRpvLKzIW38RO9DsIt9mvT4t D8Z4wblJ0M3L3ZlasJ 3QbD95Wxss S4TTmG9g2CTLf1tg7onx UV/vm3Zl8anPnWP8FvX5siGvN1uyKoZrSXQWvT9fiV7 flr 8diMpoNY/a/6pe2LvsP3Xyl5zsusjW9uLmIrt6qus0va0f1/ a6qFVQhA4G8RQJD9rfYs1mYX4Sim4iIEIAABCEAAAj9FAEH2U S/qdwk hGnGb pbIqBAAQgAAEIQKCPAIKsjxOpIAABCEAAAhCAwGUEEGSXocUwBCAAAQhAAAIQ6COAIOvjRCoIQA ACEIAABCBwGQEE2WVoMQwBCEAAAhCAAAT6CCDI jiRCgIQgAAEIAABCFxGAEF2GVoMQwACEIAABCAAgT4CCLI TjenSl AerOZRsb0xZ ykbi8nDV5t2fDArchAAEIQAACEPg5Agiyb2C/29rowWWGrY3Ue 3n2cn7xxBkDwaNOQhAAAIQgMBFBBBkXWBrW8eIgey 7B2oXsLqBZlsyB23vpGtj5Zyw4tbjRtHm9wflb6quih7BTaVV afGfvLF/ve722/zRj109snVX3kJgQgAAEIQAACVQIIsiqecHO39VC2ubIIFNm8OWoo2fxbi5UgYLb9I8NmzzG189E smWac10sS4dpEW9XFo02dVaaW/yIKq Xvyjjhn/KDUwhAAAIQgAAEygQQZGUu29WDCFSYJozJ1Mbdsgm32vxbUvgIWQyJyYVM4OwEUylPLCo/Zrby267D/3b5mQBrlblzggsQgAAEIAABCNQIIMhqdOReh6BJTMyzm8d9hCyZVcwETVsQJSWkf4h/ano0vdnnf1f5q8 ZONsVyAUIQAACEIAABM4SQJB1ENsJlmzKUu7baZ1vdDJlqdd1tSNkjSlD7 PsrF/LtZ/KzKdAnfdv 5Vl2/8mUa1a91617g1gGXJBCAAAQgAAEIOARZVyc4XhQv2UWoWGvcoBftL/osrB8b/D0fJZP1ZUs6swgbL5gmNe2ZTXkGF6dDQSb3JSqnfzQwKoG4 9GBWtQf/DdubJYfplqHYS8Ig3/8HwIQgAAEIACBWwkgyG4l98B8uwjWA233mOouf5227LFKGghAAAIQgAAEegkgyHpJXZQuvPYiRN D0LzMvKm5ntqf8yS7 Za /2BnjAgQgAAEIQAACNxFAkN2EjUwQgAAEIAABCEDgcQQQZI9jiSUIQAACEIAABCBwEwEE2U3YyAQ BCEAAAhCAAAQeRwBB9jiWWIIABCAAAQhAAAI3EUCQ3YSNTBCAAAQgAAEIQOBxBBBkj2OJJQhAAA IQgAAEIHATAQRZE1t8Iev1r6aQ10vEl8U23TqRIHm1xfLqCsvb9ncEr K/K2h3IXvxsLXpdliFlwnvTPj39vb0n6U/17bbKhk/ca37vXYdNuOLlZOtxzrynUny95 P5 5f6Wt1ls/Zmxv8 v59pm/1pJ3nyU3yYm9z8Pwu2 Nte8H0WNVpjtv/O54v7ckV5/vnd3C/dXxDkPX2kOWhSDcV780c3uav9xfvz/mIlPIhpd wHx7Q36TJZDeEe/jdm/8RrXBkw2 tpRpjnsr7k0q6xwh22RViPHLnvusiHm8eTMtFez73NH7ZrLr6/M/HPf33t/SvX9G/Va/Znd774uxKfhGttz5Wrfa//vnakXrwheuf33uevzOVRZB10lo7bfGhmZ0Itbglkrzg1Rrj/BgrQi5uqaSOycNViYDob49 MFZp1xfJ r0rt5e3Gju69NtU3mFlq6Vtr8tYhtj339TETy2Amvbzb2AmjfBU8osfws1IVCjyScru4Se8Y/2Ns6Mave/kH7pHVj 19VTT/47 JTbMOGVtts8Y0qUt61OpPlEUbAl/afdMkCX3l31Nk Kz tusfVVa baa9G1/L8uv IWs2f3MvtTbjqofqP4Rvh2bsMeq6j9K3yrvjk7rz4ebKv1riUz6PnzD89PsPz3996hay/Xn71/B0VL/bvKRrEn/Pdm/FV/fb9dnafn8brBNbhfHhiRF/Y9afvHT5J/rdXPxbqv95f7R8 VtVPp/1/OXtM99ny xTunxvud3t7Wg/vxR/WMd34fsM65Zv9Tb2l8Ishqd9d7s96sMQ Hsowt6WBQxpjcX9x8QQ/pA9yjs0geSuLC7Lg uGvVGa9PBXDqI1RGQvMNKfVL/nP8gMt7uLJWbJ ePsldnw37 wMvm6qtY7MzvBeACdbdZ rJfqJJZa8uEk3n1Vf4ufZu8h/ OlX8Atw9HqX/L/8zh7M8g6KMg9YJad7Al9a4f5FaKETQRX9ZtW5suXx5UhOze9t3cyPtZuNPDTwvSvP94vhLhPegf MiikzMLzetxfNo/DWe53/ny0 9e9z0 r//T037xW29/P3b in0f9u/583d /nR90ly o jw61nusCaoeG9X80kezz wemz5Nvf1bz5cIljgWiLn887X1/D3u8 Wowvc9v6HfbV I888fKbX2/LXqd R16TqCrEQlv5YJoCDAYqIs2hAvZ8dag8akRx9I8kDIoBrH6GSAO1Dw6Sbg0mFjBEmOmYAUB44 DHrtrxGqwRktADryS72Vviz6UuU36wiGlJ99g2k8UFX 4n/iXEgtfSBGYXr8j2X0HEsfCJLvuH8Eq8X7pXaVOkVB1tE zkkf3/pP0r66Qt7W1k/9rQ5 LfstvsnzsPizy6P93J03no O/nXP87PztdBm1f6/q0/9wvP1r Bvsf8u/T55BDUffR6rfbp/hy g4QvR9lxHc9Xj4fOz/wyq2pGbpbqoTCJ8Eg7q3pnTvP2b/a/R/6vP3yEfvQSl8/PlsJL3Pr/t8g fv676HTq u4Eg2yHZX4hTejpkua2TCYIsiqV97nDlsEFVhqMPJEmyPjTy0CZPZShfmSmc5t8gSknswfqkHvv K3jy7edQRsnb tW7RTOGD6Zif1M24MYZPNKto75cJMi9QkjV/oSK1/iEpivcLLH1EIAoyL7Z0NFVBK53u2lcl8h9OtwgybSPvP6rvx2RZnaoDQsxTPdaej77 dTyYXt3/qxU7uFmub7H/KAvF 1lb OTSD27oX0X7pedZl6nPo683lO9FyiBT8YUvq9Fu61jypZVH32/kf5Qgyz9fhHs6pOixoN3/689fu/9rBBKKS8eP5O7BH X HBK3/U MHpRfHX/Wvp5YuukPBFkTW hQqeBKp0REsOm1O/KrGYko6E6uO610ODNkA9fRgLr6F/zQduKtMMVXm6CpddjFSuXDoGVffNJTtvLhpkVjK3/9AyH4p ud8PMfvnYNqcuC Jy9WDjMHyFW Ou8PnlhylK3dXlwnpcopf5mKNb2HxheMCUGg5NHA1asQvm 9Jttuk irdIeekq51T6t9o3l5x/08XqLX8t q3 0pkwWegf85W7l ejsX U2DyW3 LbqJ1Y0w6T/hyKk9x7U7/n7V6xCuf 2BPn9/VvK3aaMw2e3/jyP/jWPlc/QZl5JUM2/tGM6ECmzt7d/tf919P/W89fq/63nP1TyqH4eXPajNY1FvhzUx4ee8mvPX6t ypvmKYKshkg64zrVF0PZ8mDE6Zt4LV2UPMj6LBWxkSK8SIn5kgFS24t25ZgP3OGDaYvMaceXQXa 1v6wFW5LIA7NF96LPMX 5/FQPtOxbZ5MfNWgB4Guf/ehh889/GC5zLXRbWZyJUPq7V qX1tQ9YSTf6HAmk97 Oftq98 4/yV5dd8z8M qV2DR 0O36xebxY0O0Xz2P/KLdf0n WLwihD4h4XvKs3 zubd/VWVf Fn/MT3LKt89d/ZeBp4ev/7D0P1RY2CTPV/Qtcorc4nUpPzKVY9pvJJX2Yd /ol1tI/0ytorgtf8 tv HmkQ/8vrJdbPnu1Y/5kv93/pP677/cFNT2uf7V20GQrM/fL7u6N9d9ldWjZOqoDrOW6z/ mwu bww2tat7q3FdjrX/j3112n2/X/5slB9/h7x XJUv3uf3/rnT R8PH5Iinr9oo2eI4KshxJpIACBPgIiqFM135fvjlT62 sdZsgKgaclIKLtmx rbhY8f92omgkRZHgxKS4AAArmSURBVE1EJIAABM4Q M4P6CS6lUcVzjhNWgg8K4FmdOznHOf5eyx7BNljeWINAhCAAAQgAAEInCaAIDuNjAwQgAAEIAAB CEDgsQQQZI/libWTBGShOf9BAAIQgAAEXp0Ao Gr94Afrj C7IcbgOIhAAEIQOApCCDInqIZXtcJBNnrtj01hwAEIACBjQCCbGPB2Q8QQJD9AHSKhAAEIACBpy OAILu4SeJL9S57h0zy8trl5Y7FF2NWKnrwMtZKjofdQpA9DCWGIAABCEDgFxNAkH1D44kou0yQi f/5yzj9e2vyNza3Kyp 3rRlSOdekSUPEGQlKlyDAAQgAIFXI4Ag62rx tYvsnXCqLYOMlY2qd02bPaCbFTbMEkEayk3vFjPuNHvb7lFuMbDPcsKDueCbNnuZRVXydYig5Pt L0rmDwVZLX8pQjdkb5Wu5EeQFdqTSxCAAAQg8HIEEGQdTb5787gXGJuoCUJmWkWO7HulN2 W 35vuEUFhc1IN0kkosyLpPVSunl508WCINNRs9FmG5mL/3YTjNH kSDryS/7EUaRGe3FYy0/gixS4ggBCEAAAq9MAEHWan2JABXmG0VUbVGsSW2uO/jd5fXe4iJ0EhPZJrQ7wbdEuJI8NT9rguwggrVtHrwZLgqyzvyHgqyRH0G28ecMAhCAAARelwCCr NX2XYJMGZlnN4/7CFkirr5BkG3iSsTiPhqmPF5PtzzrJVmg1pX/UJA18iPINGvOIQABCEDgVQkgyDpafhfByqYs5b5VITGZstRRtXaErGfKcnZ2kDVmhanBPELm/dvShSnSownFDUBZkMlvBmSxfz2/ZiSC1AzbNGktP4Js488ZBCAAAQi8LgEEWVfbZ4v2zZisl5LokFWL gf12gkROSI65J Pkol4Wv6Oi 69mJnUtKfKv7k3lQVZaUpwl3/2oiqWOxjjBWNYshbtLj8oWHxLhV8tf/DQi9CY90T54hP/QQACEIAABF6dAKPhE/QAHV16Ane 1QUE2bfipjAIQAACEHhSAgiyH26Y8NqL LqLvrVeP zyQ4tHkD0UJ8YgAAEIQOCXEkCQ/dKG ytuI8j SktSDwhAAAIQuIcAguweeuS9mwCC7G6EGIAABCAAgT9AAEH2BxqRKkAAAhCAAAQg8LsJIMh d/vhPQQgAAEIQAACf4AAguwPNCJVgAAEIAABCEDgdxNAkP3u9sN7CEAAAhCAAAT AAEEWaMR5/HdDcPb/p/5bOQ8uv3lrNg7kX yhfLt166AyWpf39P9M3epuQABCEAAAhCAwLMQQJB1tISIMjP 21LOn86cEFRbxnj25ewN Xd RHNy9D59uPD2fX2DcwhAAAIQgAAEnp0AgqyjhTYhtBdSMYJm7IczMZJmPpKtldws WKUSyJXezsdbrjNjzR1MYJ2g BLrfIXBCAAAQhAAALfRQBB1kE6ii4/dVkQOv6 iLAlPCVTh1tETcTXds 5f85PLRbstFw5EmQ 391Ru1bp3IcABCAAAQhA4CoCCLIOspsQKke25L7fODzamj42QabP4/0bxdPmRzSkjjfaVBY4hQAEIAABCEDghwggyDrAV4WQLN9CkHVQJAkEIAABCEAAAkcEEGRHZNT1k iAb1TqxqiBzTFkqlJxCAAIQgAAEIFAggCArQNGXRGwVX3sxhIX7 r6ftpw 1vTrOrLSov4Tr74oLtpXr70Y1x8MxB8OvLlB3df14RwCEIAABCAAgecjgCB7vjbBIwhAAAIQgAA EXowAguzFGpzqQgACEIAABCDwfAQQZM/XJngEAQhAAAIQgMCLEUCQvViDU10IQAACEIAABJ6PAILs doEjyAAAQhAAAIQeDECCLIXa3CqCwEIQAACEIDA8xFAkD1fm ARBCAAAQhAAAIvRgBB9mINTnUhAAEIQAACEHg Agiy52sTPIIABCAAAQhA4MUIIMherMGpLgQgAAEIQAACz0cAQfZ8bYJHEIAABCAAAQi8GAEE2Ys 1ONWFAAQgAAEIQOD5CCDInq9N8AgCEIAABCAAgRcjgCB7sQanuhCAAAQgAAEIPB8BBNnztQkeQQ ACEIAABCDwYgQQZC/W4FQXAhCAAAQgAIHnI4Age742wSMIQAACEIAABF6MAILsxRqc6kIAAhCAAAQg8HwEEGTP1yZ4BA EIQAACEIDAixFAkL1Yg1NdCEAAAhCAAASejwCC7PnaBI8gAAEIQAACEHgxAgiyF2twqgsBCEAAA hCAwPMRQJA9X5vgEQQgAAEIQAACL0YAQfZiDU51IQABCEAAAhB4PgJNQTbZNzcMb86M/7z38/ju/5Zrg/16vhrhEQQgAAEIQAACEPhlBJqCTOoz2XdnzIebYuXmT2fMZ/zrIcdR23 IRYxAAAIQgAAEIACB30GgW5CN44czMSKWC7L5y1kTImk mmY/3RzrL2klmja8OSuKbvpYImzvbpRE6r6Puum00QZHCEAAAhCAAAQg8IcJ9AuyOUTKVhGlImSj/dgEmMASgWZVBM2LrvcgyPS5AkuETMHgFAIQgAAEIACBlyJwSpD5aJb5dLOIqijIDiJcw6CmOAXp/LVEypbIWIYZQZYB4U8IQAACEIAABF6GwDlBJrpqfHd2VILMyXSlioYdoJv9VKWsRZNIWfiBgE6K INM0OIcABCAAAQhA4JUInBZkzguwNzcoEeYX/Y/Hv7j0v8yURft YVlYbxZ/tRlhj2aLnM2yXm3IpkFjQo4QgAAEIAABCEDgjxFoCrL42gu/WH959YVfmK8EmXP//C8x10X55t3/AMCv2VevyUgX9W v0hCmEkGLi/ HVbz9MdpUBwIQgAAEIAABCBQINAVZIQ XIAABCEAAAhCAAAQeSABB9kCYmIIABCAAAQhAAAK3EECQ3UKNPBCAAAQgAAEIQOCBBBBkD4SJKQ hAAAIQgAAEIHALAQTZLdTIAwEIQAACEIAABB5IAEH2QJiYggAEIAABCEAAArcQQJDdQo08EIAAB CAAAQhA4IEEEGQPhIkpCEAAAhCAAAQgcAuBpiCLL4aNb9b3b90f3px/Caw9fjv/Lc6QBwIQgAAEIAABCLwigaYgEyh ayR5e34kpDcXj9fuPLKX5Z0AyQ4BCEAAAhCAwK8l0C3IRtlfMkbEckE2h/0p49ZJxn46v22lYJG0S0Qt3Tpp2btS3Y/55ejT/lqsOA4BCEAAAhCAAAT6CfQLsjlEyka/QeWnM2ovy9FmG4GLQLOfmxdedL0HkaXPtxSOCJmCwSkEIAABCEAAAi9F4JQg89Eu8 lmEVVRkB1EuIZBTXEK0vlriZQtkbEMM4IsA8KfEIAABCAAAQi8DIFzgkx01fju7KgEmZPpShUNO 0A3Tx9uGN6dMRIp 7dLhSDbIeECBCAAAQhAAAIvQuC0IHNegL25QYkwv h/PP7Fpf9lpvwowC8sC vN4q82I fRbJGzWdarDdk0aEzIEQIQgAAEIAABCPwxAk1BFl97IQvtVxEl0S4lyJz753 JuS7KN / BwB udn4Hl6RERfq 0hZeG3Gak8ib5OIsOV1Gqt4 2O0qQ4EIAABCEAAAhAoEGgKskIeLkEAAhCAAAQgAAEIPJAAguyBMDEFAQhAAAIQgAAEbiGAILuF GnkgAAEIQAACEIDAAwkgyB4IE1MQgAAEIAABCEDgFgIIsluokQcCEIAABCAAAQg8kACC7IEwMQU BCEAAAhCAAARuIfAfPcvwUwzNr18AAAAASUVORK5CYII=

Error: (For example 3 shapes. 3 slide created)

28599
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAWgAAADICAYAAADFjnuPAAAdrklEQVR4Ae2dMW7k uNPF 04DOJijTNTRnOGfTeDAqS9gYMIBjM0Gmy6cL5x wUZzA99AH4piUcUSqVar1d2U9TNgSKLIYvHV42OJ3bYOHT8gAAIgAAJNInBo0iucAgEQAAEQ6BB oSAACIAACjSKAQDcaGNwCARAAAQQaDoAACIBAowgg0I0GBrdAAARAoCLQf3ffD4fu8P3vIkL/PX/tDoev3fN/Xdf999x91fNi7RsU/v29O4i/X587can28/f3Q/c1OG1qSFsZ51XGIThGnEyXXRfxFZ/jbwXqrNXo4io j3qhAARA4E4ITAj01 7r1ylxKd27xyh6sRsEriaKXdepGBs3RbSHtubGKqc1X1x5ENrvXXk5XMURjIAACGwQgUmB/v79ayXj/F7JDO BgBO7kJ1WFo REErbawqj903x8eX WutxBAEQ2DMCkwL9/J8XsP 655BVW0Gx5wKl1PGP7n0dEfyDCmIQS1 v1l63Unx9sTuUfX1 zq7HWzS9byljzjJqO476GIYdEltfkvPBj6HfvM5ANFee VGzNcenUp2hV85AAAS2hcAJge7FIgmaiGrY57UCY897gRjt88Y916Fc2pithSDWMet1YtXDOVF/lDFbf8bBkP1z9SPf3jDtqj7YzNzUz7qx5fbcVpJyI i6aNkq4dy0P lTDfuRUQpAAAQ2gsBJgQ4fnsUP3wZBM8JhBXK0haAo2PqaDedbC8l2zKxVRIOFgt1U3/YfKru 1AU9iq0wHhG0iuCWfDjVjwhoEl21W/PFlYf tE3cK/e2TvkU7ueY6pA5ggAIbBOB0wIdtiy ds9/q7DJQK3AmPOqSJg60rxQbxDcHsj myIxy56s72xnvpWCEoU5G48fU8GHkV3Tb afFX5TJ3PFl/fZb3hSqdo64VPWLuuMCxAAgY0iMEOgh4xuyGqtwNjzXmiGeoqKrSNlcu23OMbZ37AdMVW/ZNtko qCOar45356O32DwQcjomEIkjHHfiR71q/4BaHU/ss28wVOF6xTtoYBDD5Z zXsh3acgQAIbAuBeQIdsmgroFYY7LkMXq6H/dV /9rXUVHSeipow2LQbxeYPoPwFeqPMlvzIVvaPHdByURU7xkfs 0K44Mt/26/ydKLY/9d7O/d97R1YmxqN GYY5SEPtyr2LJ9pz1rbz 3Wxt 5goXIAACzSJQEehm/cUxEAABENgNAgj0bkLNQEEABLaGAAK9tYjhLwiAwG4QQKB3E2oGCgIgsDUEEOitRQx/QQAEdoMAAr2bUDNQEACBrSGAQG8tYvgLAiCwGwQQ6N2EmoGCAAhsDQEEemsRw18QAIHdIIBA7yb UDBQEQGBrCCDQW4sY/oIACOwGgcPHx0fHLxjAATgAB9rjAALNAsUCDQfgQKMcQKAbDQzZTHvZDDEhJrfmAAKNQJM9wQE4 0CgHEOhGA3PrlZr yA7hQHscQKARaLInOAAHGuUAAt1oYMhm2stmiAkxuTUHEGgEmuwJDsCBRjmAQDcamFuv1PRHdgg H2uMAAo1Akz3BATjQKAcQ6EYDQzbTXjZDTIjJrTmAQCPQZE9wAA40ygEEutHA3Hqlpj yQzjQHgcQaASa7AkOwIFGOYBANxoYspn2shliQkxuzQEEGoEme4IDcKBRDiDQjQbm1is1/ZEdwoH2OIBAryHQ70/dw HYva5h6xPaeHo4dIfj67aztNdjdzg8dE/vcRIT823HcyPzbJZAPxwO3cH8JpKuMUgh sNT9y627Pkatm9lY8rvMJEH/B6e3kfEPur4nb vx0N3iPfenx6yGIR4ONHL7Lh U8xq5abvzI6UB3Hqx2D9PyZO1Ben4Lf6OdF3zVatXLM9xShc1 y7cjsGbyfw8OOjK/YrODw89fETm5W4qU2O7WWkW4vJPIFWkZDJGshen5BnA/BJiF6drK/H7vg6EPVosrAkuoWJLsLzcDxWRSDcj2I/tvPePT2YbC8Ky/tHrbz3b2xHxXkcb lfx5WJsBF64cIw3nLfUqdmq1auHAsYJIzK9oPgTsRA 7dYT/UrTwP9uF rsVH/OA68B4tlWJwv0B vw O8F1e9jscnyQBjlqWT2QcqPP7GOmmShPbH7iiPxgeZEDL59DwOVOqkDO4wPHpagSjVyXw7dq/ Oi1C6nsUp1I929fM80w4tS8n0CJ4IcuLfWpWl7CTcr lktV1YpXu1coNeVLdvuz1aITejPFo 49tkn9aLy0MYqvW92tXsvX US7XPsYY1eybsUW/bAzGdmb2q2OUo4zfLLzqI8cx9mByHibnC3ScdGG/1U3mtEURCKuZRszCnAilQFkbeh7aR2GQ/pT8acJPTyK1XZr4/WQyvnlf4 OtLigpOyzU035mH3V8fnIbbJJg6MQ397SfkDn6rRJjuxd0wUgXmXwBq5UH 8bORxDJwUa/WPYEy7ANmI2z7Gwscczjvl0sk61a UeX2U3 ytZRfcyKXeLoR81Ovd9gQzioWzYaR/FBOaplHEdbeSkGYDMbm3kCbSZ62hMVkNPkiKuCXutRA2Gug BpxiwiY 6l81KZ7U/uW5/CuROIWh1r29os JoES7JF307ru NofOb 8LhvVtHMrmSBuSCGJxAr0mFcbqzSh7EjAj08pkebUVRq5WnyGDu94Jm Ut8nRCyOORPSqk81W7XyjypG8sTWL6z5mNPYRlsuJawfRk8n2WKU4WPiaOJsMcjC7hwDyBVoGIE 1QEIGRpnqx6rUclrb/Wcjnae3quxzn3rS17bm1Mlft6peszBLoWjKI4 /FZPyv3itmzr2vG0GfT8fH/dfhgKyvXbyZ4O36b4UPEUZ5snHjG/vy3WDKBrvlUtTWvj8Sfqv1BIKoxyMZttvBMeRpbKYOWevyCwRU4cJZAh0kdthyOg0Af4nl8ZAwZ tpksgbj 2g5E7qkNradHqVc8l8mr2VJ9chTrWHvefvTLtgsZsWSfvp0dw9S5tJt6/J2y6 8FWyajtf1mdQd80kIa9oxr5QZDY0faZguC6X/IxPutgtFjv/gWt6RUvBTX3Ceb7ee2ZvWR/J0YW/C7vJeuvtn4TvWbLTqK/xz7WpcjQn4GB84SaCVzEK0oOv15/6iYf8gXvzonzqRJZITAOCkTQh7li 1t23QeBdNuc2iWb yGfl2dkS/JpvFNylK7KIileravyrnFJ2xXyDj9ty9iX7rvrTjnvvaP7do21dGFMfkbF65sDGYPulZesxM 3Bu2AtLX9eJefT myqKRbSlEHhg/59gSUZ/sI8VlzAm1PxWDhGOyIzzoxb7U7/AtDs XEwtAhR pf 4j3AUOzBJoSGQmYwFE8KnjE8TRf6i2VQzjE0F4AtjqGPB7UwsBAg1hr07Y8MHn1kU6bO2RJZOM1 JORa2CDQCPQVxfoaxAXm7cVCvC D94INAKNQMMBONAoBxDoRgNDxnKfjAXcwb0lDiDQCDTZExyAA41yAIFuNDAtreL4QlYJB 7DAQQagSZ7ggNwoFEOINCNBoaM5T4ZC7iDe0scQKARaLInOAAHGuUAAt1oYFpaxfGFrBIO3IcDC DQCTfYEB BAoxxAoBsNDBnLfTIWcAf3ljiAQCPQZE9wAA40ygEEutHAtLSK4wtZJRy4DwcQaASa7AkOwIFGO YBANxoYMpb7ZCzgDu4tcWC5QMc3UFQHk72h4rKgL/p/wiv2Xx3jPcX90vHx/40vyxoDfv3bXkZvwrknLz5z35dy/hxsYl/VuX8jX YJtDiTXj0UX9mkDurRD75W7uuduF78Ro6V q8G6ITfV2 3xvjiG0LO8lX6TVyov oq2FzDx2vjvNDHyRfQXtvnBfbDa X8a EWjn0WX2q2a W1Mdn69rxWf61y7UuP3m6t3Ne78HqWQHsyHue8RHWlAfi Z5FDQFmp/9n9XRiIs/tZaXzFd ydGsvcvufWO9XfNe8v8VHahJfwXvZkeHbMF Ig4pze97nQxtm LsG15Ju1Y89LddcsO9XXqfsr TJboNNr57VjdTAeQwDlPGVXhy684Vvqu/LiyzwfnsaPnDHDS2 BthmA6/8pvnhWXvQZHjn1vvSvj/OvT93Dw1M3qjvyMX9R7DC2IWN8ejh2r7GPor0Mp2N3fNDH4f7lr8nPUd/xBa/B9kS72LfaFXuKaxHvzNdhHPKEUnoRbW j8oqnaMvGpYRB2JqKfAh9SDvDj5q/wpsBc31prMVFYziMIwlI1kcex/QuweT/EAvBb4RDyVb2QlnDcY1j4lfft39hbRhz7L EmY/dJBbKsYljim8as1lUYplgl/mp Kvd2f5qPCZwVT mbGq/Hx9dxqHjceb8NXNBbUl/blE9xuts7DqPnJ8lPiZ90z6ucJwl0PrW7YN9r5wbwHskbtqP0/vhzc4aOJPZOsBej6ZOHGgil1wbewksEexgJ4qy1FNR1/q2n1pd53sIWBirvN15mGjH47EXfxnTw1Mv0Log2L6j/8nP Ab0tFC8Gz9D32bs0e9MIHWBse3CWAYBDT6HBWzwOfUvE86PXX0U2zauWu7sB1v2ni6W3q7iL3Xl ntarjLPOmzPHEX2Tt4ArB1McMz cX/6ejjG tXxk6yO PTyNywme6T/DTOwq1lXM reJa58DfhUsjK jvqLopkWnNE4tC/4MHBzNxZn Jrw/3l3sHUaCXdWmqSvjUx/13OKbuDYPH9GxhK3GwmOo5dqvHp1GZH55GytezxLoFHxxXjIgu8WhA9CjOqfXcjRZU2gfRK8n48 GtaqmvUwSz9u1kseWh34F4I1BtXW8j vV67EUwkFbq69j16NvZa8FC 6idy/0SPnPa2b6CnZjVn7KnMfI 2fKp85pv3p6vN8cvbRPGM2TPiTd6v SfvxdsDE864wzaxcfarNnyY5xqo3XtuCVmJdunyq2NcG54bX0w5zb77PErZ/y6SFbn4jn 6nz2bdQvLdejL9drPdp69lzu67Uc5 Cj4vvx0em8Dnrj29tY2D78fLPX6u/Kx/MEOnYeskrvuF6rg3qtRy0vHCXrKZFDVuRqBqB29ah29ToeX58ehgxR71XqZhM4Ek18OL6 hoz5/UMe3Y7d62vMpGv21L4cbZ3SuS27pJ3YEZ/n2LP9GNLaxXHy3PZhz eM1/Yt59K/Jbra06OvXyv3fet1CRNrw57bvny5XM8VH7UT2gxPOYkLJduCwblYaD9zjr5PaZPKXtP2YnEupno xu9VrPWr/cj0Xo1JbywNrU8trbXy5ti0cw/yVbNja1Cdcqa 2ake1qff1 krHWQIdskZ1QB3zx/AIMJAxPO4EENxjm7FzfHpPxHh6GNomcYiEHVa5Y6cimuyrH8ZueKw25eFDEunLlCWbBR DbX3sf3/qjg/DQvH dOxkq8PuJapPI/vik 2zeF7HJ20PlNrZMt1DDD7PsKdY acUUx78tsT19yzB9bw03oPGrOJX2EowsU/jqtRP992jcPSvusWR/Ij7reqz2DP3EveqWxwupjVcPBYaI nXjyFdy5jPwEL7UFG0vvjz1IfBTcuE41NzUeupzXSdx8jPmyKu2laPI5vGP7kn9TQ 1Ta5HzaG/lx8lPlbS/xGupL6zGOT6qn/VzrOEmj/qCTilEhmBtDvsfaPpcOnxnHPzj6ChMnRg6qPXgkwN1BL2ABKtJPsp/6nVve r9RG 0htvY/546P1Icv4UnvXt9qXo61TPPd994 hJ9uJrRGmH/0CVriX2TP SWzTvpwp7yeGEQu9l9kuZOxmjLJw6ecXIb5Z2zhOsSsL8WgsM3BRn wx62OIY5E7Iprexxm2aliWynX8Mr7EP4ORTxTOwSIkBmG8wzi9IKVr36eMM5WdmIupnue5j1Huh 449m9tqS4 Kt7/Wchuf CHhOCHyfritHGOr53XZz2KMkl vGU9TLK3tK5zPEugU5Cs4cMp2mFiazd6h/1P bfq f6RuAV/xiXj3T5ZgkZ6wNz3PLphXzQu0BCZk8EzadckastZChnwBmZZOIs20 iw6z26W2txqO7BwWxx34GNL3NmEQLcEGL4wgeAAHLgVBxDona/QtyIa/SBqcOB8DmxboMNjev hZPGDLsR33W0R8ARPOHBTDmxaoLNvV1SIk77v6O nT2fPW9X674nGP6BgX/ymZCUDO4 r4LV9vLYr0CKwE9//TF r0u 7riHQ gcq0Vbxu9u H64RcTgABxZyYJZAD/9gqP EPYlf/O6q/aON1f8BTBDimLEmQc6/t5n9JZoFYiJLtt/tHn9Hd943CfT/dJCpbD9TIYbEsEUOzBNo w9KrADKuX5XMwpp2guWcvMHKak8iaaIrBHCWO5BKv5l2NQ/rLH pb4K5Mvu9YKvPp767nUv7sZ32yfnZEtwAA6sxIF5Au23CUTc/F9 ZYJn/kppqtzaCOdO9EptVdT9vRIgU3XsPXsuduRa ynZjWVz9sD9gsN1YbGcwBi8wGvPHDhfoIN4mT9wUHHTo042vU6ZdCSalutR65eOvo5cq3D6e3Pa 2zq2vT2XOrYf28adyx8VaNa9ZxIxdkQUDlyHA8sE2mTUYTtArksil7Y4CoLu/7 qEz8NeHmLw2TolXahvffJ1o0i3P9d/7wtDvlHSWG/PdpJGfRMQdcxcbwOmcEVXD8bB84XaPPPS4r/XERFMIlj/k9Gwp/zRuHuM1X9ALDyD06C GkdswWS7JdJ6T/ILGW6 me1sz8kNN 7lnEkmwg0e47Ke45wYUUOzBLoVVcl/VBxxUGs6h9 McHgABxohAM3EWjNVPlnOOVsnwUGXOAAHChx4CYCXeqYMggJB AAHJjmAALdyKMMRJ0mKviAzx45gEAj0Ow3wgE40CgHEOhGA7PHbIExkyXDgZwDCDQCTfYEB BAoxxAoBsNDJlEnkmAB3jskQMINAJN9gQH4ECjHECgGw3MHrMFxkyWDAdyDiDQCDTZExyAA41yA IFuNDBkEnkmAR7gsUcOINAINNkTHIADjXIAgW40MHvMFhgzWTIcyDmAQCPQZE9wAA40ygEEutHA kEnkmQR4gMceOYBAI9BkT3AADjTKAQS60cDsMVtgzGTJcCDnAAKNQJM9wQE40CgHEOhGA0MmkWc S4AEee QAAo1Akz3BATjQKAcQ6EYDs8dsgTGTJcOBnAMINAJN9gQH4ECjHECgGw0MmUSeSYAHeOyRAwg0A k32BAfgQKMcQKAbDcweswXGTJYMB3IOINAINNkTHIADjXIAgW40MGQSeSYBHuCxRw4g0Ag02RMc gAONcgCBbjQwe8wWGDNZMhzIOYBAI9BkT3AADjTKAQS60cCQSeSZBHiAxx45gEAj0GRPcAAONMo BBLrRwOwxW2DMZMlwIOcAAo1Akz3BATjQKAcQ6EYDQyaRZxLgAR575AACjUCTPcEBONAoBxDoRg Ozx2yBMZMlw4GcAwg0Ak32BAfgQKMcQKAbDQyZRJ5JgAd47JEDCDQCTfYEB BAoxxAoBsNzB6zBcZMlgwHcg4g0Ag02RMcgAONcgCBbjQwZBJ5JgEe4LFHDiDQCDTZExyAA41yA IFuNDB7zBYYM1kyHMg5gEAj0GRPcAAONMoBBLrRwJBJ5JkEeIDHHjmAQCPQZE9wAA40ygEEutHA 7DFbYMxkyXAg5wACjUCTPcEBONAoBxDoRgNDJpFnEuABHnvkAAKNQJM9wQE40CgHEOhGA7PHbIE xkyXDgZwDCDQCTfYEB BAoxxAoBsNDJlEnkmAB3jskQMINAJN9gQH4ECjHECgGw3MHrMFxkyWDAdyDiDQCDTZExyAA41yA IFuNDBkEnkmAR7gsUcOINAINNkTHIADjXIAgW40MHvMFhgzWTIcyDmAQCPQZE9wAA40ygEEutHA kEnkmQR4gMceOYBAI9BkT3AADjTKAQS60cDsMVtgzGTJcCDnAAKNQJM9wQE40CgHEOhGA0MmkWc S4AEee QAAo1Akz3BATjQKAcQ6EYDs8dsgTGTJcOBnAMINAJN9gQH4ECjHECgGw0MmUSeSYAHeOyRAwg0A k32BAfgQKMcQKAbDcweswXGTJYMB3IOINAINNkTHIADjXIAgW40MGQSeSYBHuCxRw4g0Ag02RMc gAONcgCBbjQwe8wWGDNZMhzIOYBAI9BkT3AADjTKgVkC/c8//3T8TmNwycr/119/dfxOY3AJvtL28L//4/cEBpdgjD5M64PgswTf2QL977//dvyWMVgKvgZMxPnPnz/8VjAQfBSrpUcE vQCtRRbaSdzAH0o64PgslQjEOgVFp6l4OuEQKCnF6c1BZqFcIy1Ll7KxyVHBLouzgj0CiJ7yeqP QI8n/ZpCiEBfF18EelpcL9EGbbtUI8igVxD3peBrpkIGPS1ACPQ0Ppcuhgg0Av2p96cQ6OsKCAJ9XXwR aAQagZ74Gs9mMui3H92XLz 6t8qHeZdmcrX2n0ag74RfDVct/ wC/fz86 76szSJu80WxX7vHxcfh9 b0YMAu2nL tsEWh 0RLj0vBv/kWhwjE4dAd3O Pt5kZ2p0EpkmBLmD57ecJHO Enwpx7bglgbbzX drqUzvybEFnViqEVcX6Ldfz93j40v32wjp75f82oJ56vxUME61v8b9peDfRaAvyYDvJDDNCnTEM jxRRMGeFOk74VcTZi3fmkD7pOyUAJ 6fw1N8DaXasTVBfrX83P3662 x/P8 Njprw5KAP31MmTcL7/79r eh7Lnl5dOft/efoUVclQ/lqtNOVpx1z7lOOWfbV87Xwp MwIdhePHtyG7TkIThSdl3ZcI/MKtkdYFWoXuT8QxXDvcwlNKvP/ty4CzLU9bRxN2DlfA/zMJ9GheRx3odeKle34enuZVV2rzes3ypRpxdYF dtmzHfTL42OnIIVMW7Y BFBT/q9sj5g9pLQaWuBL9fW ydxVoF iTyGrj/WsX eeLwX/LgLttjfChI9ikkT557euF4Kf3bfDoUvlUTiSkCwU3CRoM9tvRqD//Om Hb51P/8IbnKMWx4quAHnL51uKb39 BJwVmFPuCacb4P/pgQ6JnTZlmnc6izNa03gVKBTMha2XV8Wb7XeSiPuKtBJbKOIBjH3wvr2Kwh0eKyx9/RcjyrEWt X617U269OApkF PHxokBtSqBLGVgShFxQ3mrlKjw3Om5OoIMQD1ly//TxrftZwlOEvFQucaqVr4z7pgQ6irHogWqCJHAiwKV57QXabo 8PE4/3Z8rwlP1l2rEJgQ6CbkVXT3XoxHoUN XO4FOAdZ2FxyXgn XDBqBXudP6r14imhqmR69kPpyuZ4S6PQk4xZOb/fC660LtM53EWg/r3OBzr9UgEDLKlf9kPB3V93isN/OsEIr57plouV6VIHVa1tX/Qh2836nVr259z6tQIdH9fEjeXoUv1AY5m51bCODttsR9tx8s8MJdNji PazF3azJaJbH28O/7QArIz7ZxJo2TK1WXJVoOPWqa07d74vqbdUI66eQctgepEePuB71K/ZBRHV8vjNDhVYL7jx nf88DB8SBgfbVKGLXVMe9tvqq917Nf 7IKg/Z5xXAr XTJovwd9OHQ/frrvNych dn9kSwutvny7Rvfg1ZxDNmv3cYYFrLSh4R2r1/xtB/4BVEu4WzwD 1KT0Dq08LjpxBoM6/1g0Ld tAMW8v1KJ9BIdBnCN2SlamFNpsR6IUTeG6me616TWbQ98BSxFoy7pX73pJAL53vKZO oShbX5dqxE0yaOvoZzxfCv7NM iVJ/baQlGzt2eB/mmngw2yA1rJaUI9D1rwGvpVdLNQKBXiHDXwo Am32ZycWjz0L9BLBPbfNHgR6LaFdamepRiDQCPTqj8znCsSp gj0vIXsFI61 wg0GfRF3zNeumrdqt3S1ZEMep7wrCnQKkYcx29YUT4uOcocuNV822I/SzVidgYtHfBbx2AJqbWNCBC/0xgoVkuPCPJYkD0mS7GVdmhDXRsUmyX4zhLoJYZpk78 HTzAAw7AgXM5gEBP/J/mc8GkPhMQDsCBNTmAQCPQF78xe01CYguBgwMDBxBoBBqBhgNwoFEOINCNBoYsYsgiwAIs9soBBB qBJnuCA3CgUQ4g0I0GZq8ZA MmW4YDAwcQaASa7AkOwIFGOYBANxoYsoghiwALsNgrB/4flx/N83bfRswAAAAASUVORK5CYII=

Without seeing the slide we are likely to be going round in circles (and I wont be!)

A generic way to paste each shape onto a new slide is below. You would want to make sure thet the slide with the shapes has a blank layout (no placeholders) and is selected




Sub move_shapes()
Dim osld As Slide
Dim oNewsld As Slide
Dim L As Long
'select slide with shapes
Set osld = ActiveWindow.Selection.SlideRange(1)
osld.Shapes.Range.Select


For L = 1 To ActiveWindow.Selection.ShapeRange.Count
Set oNewsld = ActivePresentation.Slides.AddSlide(osld.SlideIndex + L, osld.CustomLayout)
ActiveWindow.Selection.ShapeRange(L).Copy
oNewsld.Shapes.Paste
Next L
End Sub