April 2006
Beginner
1114 pages
98h 16m
English
Content preview from Programming Excel with VBA and .NETBecome an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.
Automate PowerPoint
You can use the same steps to automate PowerPoint that you used to automate Word from Excel. PowerPoint has two creatable objects: Application and Presentation, but only the Application object exposes events.
The following code demonstrates how to create a new slide in a presentation using a selected range of cells from Excel:
' Worksheet class. Dim WithEvents m_ppt As PowerPoint.Application Dim m_pres As PowerPoint.Presentation Sub StartPPT( ) Set m_ppt = New PowerPoint.Application m_ppt.Visible = True End Sub Sub PasteRangeToPPT( ) Dim sld As PowerPoint.Slide, sh As PowerPoint.Shape ' If a range of cells is selected. If TypeName(Selection) = "Range" Then ' Start PowerPoint if it's not already running. If m_ppt Is Nothing Then StartPPT ' Copy the selected cells. Selection.Copy ' Create a new document If m_pres Is Nothing Then _ Set m_pres = m_ppt.Presentations.Add ' Paste the range into the PowerPoint document. Set sld = m_pres.Slides.Add(1, ppLayoutClipartAndText) ' Add a title. Set sh = sld.Shapes(1) sh.TextFrame.TextRange.Text = ActiveSheet.Name ' Paste the range. Set sh = sld.Shapes(3) sh.TextFrame.TextRange.Paste ' Replace second shape with a logo. Set sh = sld.Shapes(2) sld.Shapes.AddPicture ThisWorkbook.path & "\logo.bmp", _ False, True, sh.Left, sh.Top sh.Delete End If End Sub Sub ClosePPT( ) ' Step 5: Close PowerPoint. If Not (m_ppt Is Nothing) Then m_ppt.Quit ' Set the variable to Nothing. Set m_ppt = Nothing End Sub Private Sub m_ppt_NewPresentation(ByVal ...
Become an O’Reilly member and get unlimited access to this title plus top books and audiobooks from O’Reilly and nearly 200 top publishers, thousands of courses curated by job role, 150+ live events each month,
and much more.
Read now
Unlock full access
More than 5,000 organizations count on O’Reilly
O’Reilly covers everything we've got, with content to help us build a world-class technology community, upgrade the capabilities and competencies of our teams, and improve overall team performance as well as their engagement.Julian F.
I wanted to learn C and C++, but it didn't click for me until I picked up an O'Reilly book. When I went on the O’Reilly platform, I was astonished to find all the books there, plus live events and sandboxes so you could play around with the technology.Addison B.
I’ve been on the O’Reilly platform for more than eight years. I use a couple of learning platforms, but I'm on O'Reilly more than anybody else. When you're there, you start learning. I'm never disappointed.Amir M.
I'm always learning. So when I got on to O'Reilly, I was like a kid in a candy store. There are playlists. There are answers. There's on-demand training. It's worth its weight in gold, in terms of what it allows me to do.