Automate PowerPoint Presentation using VBA. Excel PowerPoint Integration

[@penny2921]

Most practical and best VBA Programming Channel !!! thank you so much!

[@VBAA2Z]

Wow, thanks!

[@VBAA2Z]

Project Uploaded. Download and have fun. Cheers!

[@Marschie1]

the Projekt not longer available, i get "Sorry, the page you were looking for in this blog does not exist." from the link in the description

[@Mira-kp5di]

This is superb. No doubt best VBA channel

[@VBAA2Z]

Thanks for watching!

[@sylvin3406]

Look forward to new contents from you. Thanks for your contribution to VBA community.

[@VBAA2Z]

Much appreciated!

[@Rahul-sn1wn]

This is best tutorial i have come across in ppt automation! Keep it up 👍

[@VBAA2Z]

Wow, thanks!

[@wikamdiopekiang4972]

Bravo!!! your contents are mind blowing. Thanks for sharing your knowledge to VBA lovers

[@VBAA2Z]

So nice of you

[@Evadisa-q8h]

amazing how you simply VBA automation. another great video. Thank you

[@VBAA2Z]

Thanks again!

[@ekilunewmai7033]

Learned amy more things everyday. Thanks for sharing your experience and knowledge freely

[@VBAA2Z]

So nice of you

[@zaidsultan7310]

Thanks

[@VBAA2Z]

thanks for you support!

[@DaniSani-f6q]

Your videos are the most practical. thank you so very much!

[@VBAA2Z]

You're very welcome!

[@hoseal8048]

Best VBA channel. Thanks sir

[@VBAA2Z]

So nice of you

[@dorwuinga]

this is wow. really great practical tutorial

[@VBAA2Z]

thanks

[@DorkaLiumsk]

Another amazing video. Thank you so much for teaching us

[@VBAA2Z]

My pleasure!

[@sidaubo]

Thanks for excellent tutorials

[@VBAA2Z]

You are welcome!

[@kingsynz8614]

This is excellent solution. Keep up great work.

[@VBAA2Z]

Thank you! Cheers!

[@CodeLikeProz-dp8qr]

Thank you sir for detailed walk-through and for another practical video.

[@VBAA2Z]

most welcome

[@dampisong1369]

Learn many new things from your channel. You have a great knowledge base, thank you Pamai

[@VBAA2Z]

Happy to hear that!

[@kingqiabonmai1890]

Another great tutorial. Thanks Pamai

[@VBAA2Z]

thanks!

[@ApirlK]

Thank you so much. Your channel is a gem. I binge-watched UI UX series :)

[@VBAA2Z]

Glad you enjoy it!

[@javierreyes7164]

VBA A2Z - Awesome tutorial!! very deliberate, organized, and concise... I echo Mira's comment.

[@VBAA2Z]

Much appreciated!

[@pedche5790]

superb! will come back for more.... thank you thank you

[@VBAA2Z]

So nice of you

[@bindeeseaks9950]

Really loved all your videos. Keep it up!

[@VBAA2Z]

Thanks a ton!

[@Rish_music1820-r5q]

Brilliant work man, keep posting

[@kinga334]

Really useful video. You’re the man!

[@VBAA2Z]

I appreciate that!

[@Chewangz]

Thanks for this amazingly practical tutorial. Keep up great work

[@VBAA2Z]

Thanks, will do!

[@Chewangz]

@@VBAA2Z cheers!

[@ShrutamJani]

Excellent solution and tool. Thank you for your efforts 😀👍

[@VBAA2Z]

You are welcome!

[@SidauChe]

Exactly what I needed, thanks for the great video!

[@VBAA2Z]

You're welcome!

[@funniq]

Thank you again for this great tutorial.

[@VBAA2Z]

Glad it was helpful!

[@mehtag7810]

What a brilliant idea! Thank you

[@VBAA2Z]

You are so welcome!

[@anielchisi1389]

This tutorial has just changed my life. Thank you so much @VBA A2Z. Please can you advise on how to export charts/ data from multiple excel workbooks into the same powerpoint slide.

[@VBAA2Z]

Glad to know you found this video helpful. You can expand the mapping table / rng_sheets to include path for other files too and on runtime open the files and get data from it. The below series covers all important topics on VBA Programming including working with objects in lesson-1. Feel free to email me if you need more help. kzbin.info/aero/PLo0aMPtFIFDocT-bLo37Fj_iwenKtUlKr

[@GiselleBrat]

another useful tutorial. keep it up!

[@VBAA2Z]

Glad you think so!

[@Kinsi-l3c]

thanks for another practical video

[@VBAA2Z]

You're welcome

[@Manguilee-qi8to]

Big thanks to Pamai

[@VBAA2Z]

you're most welcome!

[@WeningWang]

this is brilliant, thank you

[@VBAA2Z]

You're very welcome!

[@felixpuamoai]

this is great, thank you sir

[@VBAA2Z]

You are very welcome

[@JuribSunn]

very helpful and understandable thank you very much!

[@VBAA2Z]

You're very welcome!

[@Imchal-hc7lo]

Thansk for amazing tutorial

[@VBAA2Z]

My pleasure 😊

[@mehmetcelik2575]

this is amazing, thank you so much.

[@VBAA2Z]

You're very welcome!

[@Nphum]

thanks for the useful videos.

[@VBAA2Z]

Glad you like them!

[@jamesh-kc7rk]

Amazing. Thank you so much

[@VBAA2Z]

You're very welcome!

[@KrusioLikovich]

superb, thank you soo much

[@VBAA2Z]

you're most welcome!

[@mithunvendra]

Very Very useful to me. Thanks a lot.

[@VBAA2Z]

Glad it was helpful!

[@ajayakumarrout2700]

Thanks for the excellent video on VBA. I am quite new to it, but I could automate a PPT creation from excel using this code. One small think that I want to add is Header to each slide. I have added 'Header' as a column in the reference table of excel where we have Range and position details (as each slide will have different header). And have declared it as a variable too. But unable to call the same. Could you please help me on this.

[@adrianl6409]

This is extremely helpful - thanks!

[@VBAA2Z]

You're welcome!

[@alifmuchtar3370]

Thx a lot very useful

[@VBAA2Z]

You are welcome

[@lchewang6512]

Brilliantly put together my friend.

[@VBAA2Z]

Thanks, appreciate that

[@codewithme5819]

Amazing tutorials

[@VBAA2Z]

Thanks

[@pekidonn5139]

This is amazing. It's going to save a lot of time

[@VBAA2Z]

Glad to hear. Let me know if you face issues.

[@Kinsuang-m6y]

Thank you and keep up the good work Sir

[@VBAA2Z]

Thank you, I will

[@exholD]

Great tutorial! I have a question, I would prefer to copy and paste the chart itself (even if the paste would be as an image) instead of a range containing a chart. I have tried to change the code part where we define the expRng (see below) but with no success.. Any advice? Set expRng = Sheets(vSheet$).ChartObjects(vRange$).Select expRng.ActiveChart.ChartArea.Copy

[@VBAA2Z]

try below samples '--------- ActiveSheet.ChartObjects("Chart 1").CopyPicture xlScreen, xlPicture '--------- ActiveSheet.ChartObjects("Chart 1").Chart.ChartArea.Copy '--------- Dim Chartobj As Chart Set Chartobj = ActiveSheet.ChartObjects("Chart 1").Chart Chartobj.ChartArea.Copy '---------

[@nguyenlamda8045]

Hello , the video is really useful. Thank you very much. There is an issue that the position and size of an exported chart will not be respected as what I have defined in the admin sheet if I export more than 1 chart in a slide or if texts have been there in the ppt template ( before exporting charts). Do you have any idea to solve this issue please ? Thank you very much

[@aydeediaz2307]

Hello! Can the user interface be in the same document as de excel data source?

[@VBAA2Z]

yes, of course.

[@chrish9518]

Feeling very grateful. Keep it up, thanks!

[@VBAA2Z]

Thanks, will do!

[@Ferris-bu5yb]

so many cool tut here!!! good work!

[@VBAA2Z]

Glad you think so!

[@garyb3455]

Excellent tutorial. Subscribed, Liked, Saved to Playlist and Notification turned-on... :-)

[@VBAA2Z]

Awesome, thank you!

[@jzosopp]

Great video! Thank you. Instead of working with ranges, is there a way to have the macro loop through Chart Names Sheet Chart Name Width Height Top Left Slide # IDR Charts ET1NLongTerm 5 IDR Charts ET1RLongTerm 6 I managed to get it to work with: ActiveSheet.Shapes("ET1NetworkLongTerm").CopyPicture instead of Set expRng = Sheets(vSheet$).Range(vRange$) ' expRng.Copy but I can't figure out how to have the chart name dynamic. Any help would be greatly appreciated! Thank you.

[@VBAA2Z]

Sure, you can loop through charts like this Dim c As Chart For Each c In Application.Charts Debug.Print c.Parent.Name & vbCrLf & c.Name Next c

[@ChekhengKi]

fantastic!

[@VBAA2Z]

Thank you! Cheers!

[@robnip75]

Hi, is it possible to buy the code you have created in the instruction?

[@VBAA2Z]

Yes please check out here vbaa2z.blogspot.com/2020/12/you-can-support-vba-a2z-by-simply.html

[@alializadeh8195]

مرسی

[@VBAA2Z]

thanks for visit.

[@haidarkuba6828]

Is it possible to copy only certain cells and paste them into PowerPoint? What should i do different

[@VBAA2Z]

you process will be same.

[@TheBlacknight89]

Thank you for this video, it was very helpful.

[@VBAA2Z]

Glad it was helpful!

[@Chunchun2023]

superb - thanks

[@VBAA2Z]

Most welcome

[@jenshobroh1294]

Will it overwrite any pre-existing information in the "placeholders" or will it be copied on top of existing? Example. I have a standard PowerPoint template with headers and various text that should always be intact. Will those dissapear or be kept?

[@VBAA2Z]

If you want to write to the specific shape or text box you can refer to it using a name and not index. Below is latest on PowerPoint automation. Please let me know if you're stuck happy to assist. kzbin.info/www/bejne/qWqrdmirfqyMd6s

[@matnz7546]

This is excellent sir. You're the best! Requesting you to create video on how to create add-in for PowerPoint. Thanks for considering

[@VBAA2Z]

thanks. Will upload soon

[@linnick9235]

Thanks for this informative tutorial.

[@VBAA2Z]

Glad it was helpful!

[@Rob-kv9kj]

simply amazing. How do you come up with all these

[@VBAA2Z]

Thank you! Cheers!

[@Kadmao]

This is perfect! Thank you very much

[@VBAA2Z]

You're welcome 😊

[@ananthuh0953]

thanks,, is it possible to export the slide position from ppt to excel

[@VBAA2Z]

yes, in the same way demo in the beginning

[@duperpooperscooper]

This is great. Thanks for the video.

[@VBAA2Z]

You're very welcome!

[@duperpooperscooper]

@@VBAA2Z Please enable the download for me thanks

[@VBAA2Z]

@@duperpooperscooper sure, I did not see the request come through. Is it Dennis?

[@RCV1337]

Hi. Great videos!! I went through the steps and it all worked!! Is where anyway to paste the shapes in PNG instead of Bitmap? Refer to line slde.Shapes.PasteSpecial ppPasteBitmap

[@VBAA2Z]

Most welcome. Not at my desk at the moment, you should see the options in .PasteSpecial

[@harmonyikennajames4100]

Hello AJ I have a list of different power point files that are to be presented according to a schedule described in an excel spreadsheet. Please I need a breakdown I'm totally confused

[@VBAA2Z]

try posting your question to stackoverflow . com

[@harmonyikennajames4100]

Alright thanks

[@JbongjiAlvira]

thank you so much

[@VBAA2Z]

You're welcome!

[@Varun-dh4mr]

Great work man! 👍

[@VBAA2Z]

Appreciate it!

[@kennygordon7505]

Great value provided

[@VBAA2Z]

Thanks Kenny!

[@scottansir7708]

Brilliant, never knew about this possibility. thank you thank you

[@VBAA2Z]

Happy to help

[@taksoneslim]

Thanks, amazing! I was wondering if there is any way to connect an Excel sheet, lets say employee info list (one employee per row) , with PPT and make it so that each row turns converts into a separate PPT slide, for each employee, presenting all the data in a way that we can move the cell input in the slide so it looks nice and tidy? Is there a way to automatize this so I dont have to go row by row? Cheers :)

[@VBAA2Z]

If you can fit all your data and charts etc. into Single Cell then of course. The app will export cell / range as snapshot to PPT.

[@szabolcsvarjasi1679]

very informative, thanks so much

[@VBAA2Z]

Glad it was helpful!

[@krutikapatil4986]

Hi , the video is super useful. Just one doubt , if this slide is prepared monthly , how to ensure the code also deletes previous tables/charts ?

[@VBAA2Z]

Glad to hear. Try something like this ActivePresentation.Slides(1).Shapes(1).Delete

[@krutikapatil4986]

Thanks a ton. Also, If there is an exception where we wanted the tables to be pasted as editable tables only, then how to modify the code ? As the for loop pastes all charts& tables as bitmap only

[@Petrick-ri3sq]

thank youso much!!!!

[@VBAA2Z]

You're welcome!

[@machdoctor]

Hi, this may be a stupid question, but where can I find the sample code/workbooks? This was a great tutorial, btw! Thank you for making it!

[@VBAA2Z]

Thanks. Please check the video description

[@Valerio7777]

Hi, what if you have already existing shapes in the ppt template? how do you get around this with the set shp line?

[@VBAA2Z]

check out this full tut on PPT kzbin.info/www/bejne/qWqrdmirfqyMd6s

[@ananthuh0953]

thanks, but when i execute the code, getting the error as "Cant execute code in break mode..and stops at the command set shp = nothing...please help on this error.

[@VBAA2Z]

Looks like some event from other app or your code

[@podcastmachine8617]

Love the video ! Subscribed !

[@VBAA2Z]

Thanks for the sub!

[@SaraPerzYT]

Wow this is excellent! Thank you

[@VBAA2Z]

You're very welcome!

[@bojanjovanovic756]

Thank you Sir !

[@VBAA2Z]

Most welcome!

[@miteshpatel7101]

Sir VBA me entire line select konsy short cut key se hota he

[@VBAA2Z]

click on beginning of line, press Ctrl Shirt End Key

[@kingsoko5319]

Can this be done for access too?

[@VBAA2Z]

yes of course

[@Varun-dh4mr]

Can this be done in ms access? this is really useful, thanks

[@VBAA2Z]

Yes, absolutely

[@Chafai7z11]

thank you

[@VBAA2Z]

You're welcome

[@emilymarieplusthree]

For some reason when I run this code in my existing PowerPoint temple, it is pasting all of my tables on the first slide. But in the immediate window it prints the correct slides I assigned to each range. Can you help me?

[@VBAA2Z]

please refer to this video kzbin.info/www/bejne/qWqrdmirfqyMd6s

[@Bonio84]

How do i change the code to support older excel versions. The tools/reference link to powerpoint object 16 isnt available in excel, only the new office 365. Therefore on my other personal laptop i get an error which i trace back to tools reference: MISSING powerpoint object 16. I untick and change it to 15 but then the code doesnt work.

[@ArunKumar-eu4sc]

The copied data will be only in Jpeg, or possible to make it editable text format in PPT ?

[@VBAA2Z]

Yes sure, please refer to this kzbin.info/www/bejne/qWqrdmirfqyMd6s

[@jiokcelina]

great video

[@VBAA2Z]

Glad you enjoyed it

[@sarthakmittal6343]

If we want to combine multiple powerpoint presentations in a particular order, has that code been discussed in this video

[@VBAA2Z]

all these are discussed in this series. kzbin.info/www/bejne/mnrUoIuPrsR2osk

[@MrCentrax]

How did you delete all the columns after the N column in 3:23?

[@VBAA2Z]

Hi Isai, the Columns are hidden not deleted. Select all columns, right click on Column and click on Hide

[@donballesteros1744]

Thanks for the excellent tutorial and for sharing the files. I would like to know (1) if i have two ranges in a sheet, how can i add those charts in 1 slide (2) how can i position those 2 charts in 1 slide . thank you.

[@VBAA2Z]

try something like this. wb.Activate Sheets(vSheet$).Activate Set expRng = Sheets(vSheet$).Range(vRange$) expRng.Copy Set slde = pre.Slides(vSlide_No) slde.Shapes.PasteSpecial ppPasteBitmap Set shp = slde.Shapes(1) With shp .Top = vTop .Left = vLeft .Width = vWidth .Height = vHeight End With '------------------------------------------------example for 2 nd range. Replicate it like this. Set expRng_2 = Sheets(vSheet$).Range("A2:A10") expRng_2.Copy slde.Shapes.PasteSpecial ppPasteBitmap Set shp = slde.Shapes(2) With shp .Top = vTop .Left = vLeft .Width = vWidth .Height = vHeight End With

[@jaredkulavich6081]

brilliant idea. thank you so much

[@VBAA2Z]

Most welcome 😊

[@soumyamohapatra646]

Are the charts editable in the ppt or they are just images?

[@yazinazad]

Charts are editable and customizable

[@yyyyng43]

Hi. If the ppt template already open, can teach me what to add so that the same ppt wont be open again and will paste to already opened ppt? Hope you can help.

[@gnsarathbabu]

I have one requirement, I have 1000's of images. I have a client who would like to have three images per slide in ppt from that library and the combination can be any three pictures. Will it be possible to do in macros?

[@VBAA2Z]

yes that should be possible.

[@gnsarathbabu]

@@VBAA2Z Thanks, if you are interested to do a new video; please take this as it will have many learning points.

[@VBAA2Z]

@@gnsarathbabu this series covers most topics in PPT Automation kzbin.info/www/bejne/mnrUoIuPrsR2osk