大家好，今天跟大家分享一下如何利用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