批量制作PPT(批量制作word文档)

大家好，今天跟大家分享一下如何利用Excel的数据批量制作PPT。

相信大多数人都会遇到需要制作PPT，当然制作PPT是非常耗费时间和精力。假如我们PPT到用到的数据，我们在ExceL中间已经完成制作，那么我们这个时候就可以使用本文要介绍的批量制作PPT啦！一起来看看吧！

话不多说，我们一起看看动画完成后的效果吧！

我们看到动画操作，只要双击鼠标，就瞬间完成4页PPT的制作，是不是感觉很方便？PPT完成后的结果如下：

我们说下使用这个代码几点需要注意的几点事项：

1、我们的PPT标题放置在A1单元格中间即可，他会自动在PPT中间生成，我们的表格数据是以A3单元格开始使用，我们的图表数据范围可以无限大，改变这个大小是没有关系的哦！

2、我们的每页PPT分别为不用的工作表，我们只需要把我们的数据分别新建一个工作表即可，他会按照顺序依次生成PPT啦！不管有多少个，他都会自动执行的啦！

小伙伴们，怎么样，看到这些是不是已经学会了批量制作可以更改数据的PPT啦！

附上源代码吧！如下所示，有需要的可以私信我“PPT01”即可。

如果有不明白的或者不懂的可以在下方留言，我们会一一解答的。

我是Excel教案，关注我持续分享更多的Excel技巧！

Sub Excel教案() Dim pp As PowerPoint.Application, PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide, xlwksht As Excel.Worksheet Dim MyTitle As String, Slidecount As Long Application.DisplayAlerts = False Application.ScreenUpdating = False Set pp = New PowerPoint.Application Set PPPres = pp.Presentations.Add pp.Visible = True For Each xlwksht In ActiveWorkbook.Worksheets xlwksht.Select Application.Wait (Now + TimeValue("0:00:1")) MyTitle = xlwksht.Range("a1").Value xlwksht.Range("A3").CurrentRegion.Copy Slidecount = PPPres.Slides.Count Set PPSlide = PPPres.Slides.Add(Slidecount + 1, ppLayoutTitleOnly) PPSlide.Select PPSlide.Shapes.Paste.Select 'pp.ActiveWindow.Selection.ShapeRange.Top = 100 With pp.ActiveWindow.Selection.ShapeRange .Left = 0 .Top = 120 .Width = PPPres.PageSetup.SlideWidth - 20 .Height = PPPres.PageSetup.SlideHeight - 160 End With pp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True PPSlide.Shapes.Title.TextFrame.TextRange.Text = MyTitle Next xlwksht pp.Activate Set PPSlide = Nothing: Set PPPres = Nothing: Set pp = Nothing Application.DisplayAlerts = False Application.ScreenUpdating = False End Sub