Automate PowerPoint Presentation using VBA. Excel PowerPoint Integration
Ғылым және технология
Automate PowerPoint Presentation using VBA. Excel PowerPoint Integration
Subscribe, Like, and Comment. 🙏Thanks for watching.
You can now support by buying any of the Projects or Source Code.
📥Downloads: pamaitech.com/downloads/
👍 Support: paypal.me/pamaitech
✉️ Contact: contact@pamaitech.com
📌What to watch next:
Playlist: kzread.infoplaylists
Videos: kzread.infovideos
#VbaA2z
Пікірлер: 389
Most practical and best VBA Programming Channel !!! thank you so much!
@VBAA2Z
3 жыл бұрын
Wow, thanks!
Project Uploaded. Download and have fun. Cheers!
@Marschie1
3 жыл бұрын
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
Your videos are the most practical. thank you so very much!
@VBAA2Z
Жыл бұрын
You're very welcome!
Another great tutorial. Thanks Pamai
@VBAA2Z
3 жыл бұрын
thanks!
This is amazing. It's going to save a lot of time
@VBAA2Z
4 жыл бұрын
Glad to hear. Let me know if you face issues.
Learned amy more things everyday. Thanks for sharing your experience and knowledge freely
@VBAA2Z
Жыл бұрын
So nice of you
Best VBA channel. Thanks sir
@VBAA2Z
3 жыл бұрын
So nice of you
This is superb. No doubt best VBA channel
@VBAA2Z
Жыл бұрын
Thanks for watching!
Feeling very grateful. Keep it up, thanks!
@VBAA2Z
4 жыл бұрын
Thanks, will do!
Bravo!!! your contents are mind blowing. Thanks for sharing your knowledge to VBA lovers
@VBAA2Z
2 жыл бұрын
So nice of you
Thank you again for this great tutorial.
@VBAA2Z
3 жыл бұрын
Glad it was helpful!
Really useful video. You’re the man!
@VBAA2Z
3 жыл бұрын
I appreciate that!
Thank you so much. Your channel is a gem. I binge-watched UI UX series :)
@VBAA2Z
Жыл бұрын
Glad you enjoy it!
Thanks for this informative tutorial.
@VBAA2Z
4 жыл бұрын
Glad it was helpful!
This is extremely helpful - thanks!
@VBAA2Z
3 жыл бұрын
You're welcome!
Thank you for this video, it was very helpful.
@VBAA2Z
3 жыл бұрын
Glad it was helpful!
Look forward to new contents from you. Thanks for your contribution to VBA community.
@VBAA2Z
Жыл бұрын
Much appreciated!
Learn many new things from your channel. You have a great knowledge base, thank you Pamai
@VBAA2Z
Жыл бұрын
Happy to hear that!
Thank you sir for detailed walk-through and for another practical video.
@VBAA2Z
Жыл бұрын
most welcome
Exactly what I needed, thanks for the great video!
@VBAA2Z
Жыл бұрын
You're welcome!
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
3 жыл бұрын
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. kzread.info/head/PLo0aMPtFIFDocT-bLo37Fj_iwenKtUlKr
What a brilliant idea! Thank you
@VBAA2Z
3 жыл бұрын
You are so welcome!
Brilliant, never knew about this possibility. thank you thank you
@VBAA2Z
3 жыл бұрын
Happy to help
amazing how you simply VBA automation. another great video. Thank you
@VBAA2Z
Жыл бұрын
Thanks again!
Another amazing video. Thank you so much for teaching us
@VBAA2Z
Жыл бұрын
My pleasure!
Excellent solution and tool. Thank you for your efforts 😀👍
@VBAA2Z
3 жыл бұрын
You are welcome!
Great value provided
@VBAA2Z
3 жыл бұрын
Thanks Kenny!
Love the video ! Subscribed !
@VBAA2Z
3 жыл бұрын
Thanks for the sub!
Very Very useful to me. Thanks a lot.
@VBAA2Z
3 жыл бұрын
Glad it was helpful!
Thanks for excellent tutorials
@VBAA2Z
Жыл бұрын
You are welcome!
very informative, thanks so much
@VBAA2Z
3 жыл бұрын
Glad it was helpful!
Big thanks to Pamai
@VBAA2Z
Жыл бұрын
you're most welcome!
This is excellent solution. Keep up great work.
@VBAA2Z
3 жыл бұрын
Thank you! Cheers!
Thansk for amazing tutorial
@VBAA2Z
Жыл бұрын
My pleasure 😊
Brilliantly put together my friend.
@VBAA2Z
3 жыл бұрын
Thanks, appreciate that
very helpful and understandable thank you very much!
@VBAA2Z
Жыл бұрын
You're very welcome!
superb! will come back for more.... thank you thank you
@VBAA2Z
2 жыл бұрын
So nice of you
This is best tutorial i have come across in ppt automation! Keep it up 👍
@VBAA2Z
Жыл бұрын
Wow, thanks!
Wow this is excellent! Thank you
@VBAA2Z
3 жыл бұрын
You're very welcome!
this is wow. really great practical tutorial
@VBAA2Z
Жыл бұрын
thanks
this is a great tutorial, thanks.
@VBAA2Z
4 жыл бұрын
You're welcome!
brilliant idea. thank you so much
@VBAA2Z
3 жыл бұрын
Most welcome 😊
Amazed at your talent. keep up great work
@VBAA2Z
Жыл бұрын
Thank you so much!
This is perfect! Thank you very much
@VBAA2Z
5 ай бұрын
You're welcome 😊
thanks for another practical video
@VBAA2Z
Жыл бұрын
You're welcome
superb - thanks
@VBAA2Z
10 ай бұрын
Most welcome
Great work.
@VBAA2Z
3 жыл бұрын
Thank you! Cheers!
VBA A2Z - Awesome tutorial!! very deliberate, organized, and concise... I echo Mira's comment.
@VBAA2Z
5 ай бұрын
Much appreciated!
this is great, thank you sir
@VBAA2Z
Жыл бұрын
You are very welcome
superb, thank you soo much
@VBAA2Z
Жыл бұрын
you're most welcome!
Thanks for this amazingly practical tutorial. Keep up great work
@VBAA2Z
Жыл бұрын
Thanks, will do!
@Chewangz
Жыл бұрын
@@VBAA2Z cheers!
so many cool tut here!!! good work!
@VBAA2Z
10 ай бұрын
Glad you think so!
this is brilliant, thank you
@VBAA2Z
Жыл бұрын
You're very welcome!
Amazing tutorials
@VBAA2Z
3 жыл бұрын
Thanks
Amazing. Thank you so much
@VBAA2Z
Жыл бұрын
You're very welcome!
this is amazing, thank you so much.
@VBAA2Z
Жыл бұрын
You're very welcome!
Great work man! 👍
@VBAA2Z
3 жыл бұрын
Appreciate it!
Really loved all your videos. Keep it up!
@VBAA2Z
2 жыл бұрын
Thanks a ton!
This is amazing. Thanks
@VBAA2Z
Жыл бұрын
Glad you like it!
Thank you Sir !
@VBAA2Z
3 жыл бұрын
Most welcome!
مرسی
@VBAA2Z
2 жыл бұрын
thanks for visit.
thanks for the useful videos.
@VBAA2Z
Жыл бұрын
Glad you like them!
It's Cool n Amazing
@VBAA2Z
3 жыл бұрын
Glad you found it useful. Cheers!
thank youso much!!!!
@VBAA2Z
Жыл бұрын
You're welcome!
another useful tutorial. keep it up!
@VBAA2Z
Жыл бұрын
Glad you think so!
Thank you and keep up the good work Sir
@VBAA2Z
5 ай бұрын
Thank you, I will
thank you so much
@VBAA2Z
Жыл бұрын
You're welcome!
fantastic!
@VBAA2Z
Жыл бұрын
Thank you! Cheers!
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.
thank you
@VBAA2Z
Жыл бұрын
You're welcome
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
3 жыл бұрын
thanks. Will upload soon
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
Thanks
@VBAA2Z
Жыл бұрын
thanks for you support!
great video
@VBAA2Z
Жыл бұрын
Glad you enjoyed it
Thank you very much for this awesome tutorial. I suggest using this to disable the message of updating links With Application .DisplayAlerts = False: .AskToUpdateLinks = False End With
@VBAA2Z
4 жыл бұрын
Thanks Yasser! we should be able to set this in host object as well.
Excellent tutorial. Subscribed, Liked, Saved to Playlist and Notification turned-on... :-)
@VBAA2Z
2 жыл бұрын
Awesome, thank you!
great
@VBAA2Z
2 жыл бұрын
thanks!
👍👍
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
3 жыл бұрын
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 '---------
This is great code that has the potential for saving me a lot of time! Thank you. One issue I'm having is switching from paste bitmap to paste default. I need to maintain the table format within powerpoint so I am using paste default. However when I use Pastedefault, the code does not reposition based on the parameters set. It simply will just paste into the powerpoint. When I switch to paste bitmap or paste enhanced metafile it works again. Any suggestions? Also how do I use this code to paste charts as the actual chart object and not a bitmap? Your help is greatly appreciated.
@VBAA2Z
3 жыл бұрын
You're welcome Jeay. Please try and post this in Stackoverflow, it is possible others also experience same issue
Hellow Pamai A nice video like always. Would appreciate if you start a series for GDI/GDI+ using VBA
@VBAA2Z
3 жыл бұрын
Thanks for your suggestion.
Hello, Thanks for the great tutorial. Could you please help me with pasting the excel range as an editable table while retaining the source formatting ? I have tried ppPasteHTML but it's not working. Thanks in advance for the help.
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
4 жыл бұрын
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
Good
@VBAA2Z
3 жыл бұрын
thanks
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
3 жыл бұрын
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.
Very helpful video 👍 What if the ranges are on the same workbook where you run the code?
@VBAA2Z
3 жыл бұрын
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. kzread.info/head/PLo0aMPtFIFDocT-bLo37Fj_iwenKtUlKr
simply amazing. How do you come up with all these
@VBAA2Z
Жыл бұрын
Thank you! Cheers!
This is powerful, can we do the same with word document?
@VBAA2Z
Жыл бұрын
yes, please check this video. kzread.info/dash/bejne/hIWbsdqvZtHYdZM.html
This is great thank you so much! Is there a way to export a range of slides in a subfolder from excel?
@VBAA2Z
3 жыл бұрын
Yes you can export as images or as a different PPT file. Please refer to below link kzread.info/dash/bejne/pW18p5eueaq_caw.html
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
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
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
3 жыл бұрын
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. kzread.info/dash/bejne/pW18p5eueaq_caw.html
Thank you for this unique tutorial! Can I do something like this but export by MS access instead of excel?
@VBAA2Z
3 жыл бұрын
Yes you can. set reference to PPT Library as demo in this video and read data from Access table.
@zahraahareb5362
3 жыл бұрын
@@VBAA2Z Wow! thank you 🤩
Hi thanks for the video! How can I get the ranges to paste and resize all on the same slide? It works great putting each range on its own slide but I really need them all on one.
@VBAA2Z
3 жыл бұрын
I haven't tried this myself. If the same is to be replicated, why not just make a copy of slides instead and change the Title using VBA
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
2 жыл бұрын
Thanks. Please check the video description
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.
usefull tutorial. Can u tell, how you change syntax font colors?
@VBAA2Z
4 жыл бұрын
Thanks. Please refer to this video. kzread.info/dash/bejne/fZOnzJKAcrayldo.html
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.
Thank you for a great tutorial! However, I receive "compile error: Next without For" when running the macro and where it is supposed to go to Next rng. Any suggestions on how to overcome this compile error? thanks
@VBAA2Z
3 жыл бұрын
please recheck kzread.info/dash/bejne/ln2l0bqSqcKpnMo.html For each rng in Range("Rng_Sheets") Next rng
Can this be done in ms access? this is really useful, thanks
@VBAA2Z
Жыл бұрын
Yes, absolutely