首先，让我说这是一种荣幸。我已经咨询了这个论坛很多年了（Fortran uni作业），但这是我的第一篇文章，你们真棒。

我有点绝望，因为我只能使用Office产品，而且我并不真正了解VBA。我是一家大公司的在职学生，而且我了解一些Python，但我从未使用过基于对象的语言（例如VBA）进行编码。首先，您是否会推荐任何可以帮助我理解VBA的教程？我在这里茫然。

我的任务是自动执行报告流程。基本上，我需要使用表和图形创建几个PowerPoint演示文稿。这些全部来自一个 Excel文件。此文件（已完成）从不同的Excel文件（自动下载）中收集数据，并将它们放在一起。

到目前为止，我已经设法使用在Internet上找到的代码来对这些代码进行加扰：

    Sub ExportaraPowerPoint()

    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    Dim excelTable As Excel.Range
    Dim Workbook As Workbook
    Dim Worksheet As Worksheet
    Dim i As 

    Workbooks("def1.xlsm").Sheets("Execution Audit Plan").activate
    Set excelTable = activeSheet.Range("B3:K12")

    On Error Resume Next
    Set pptApp = GetObject("","PowerPoint.Application")
    Err.Clear
    If pptApp Is Nothing Then Set pptApp = CreateObject(class:="PowerPoint.Appliaction")
    pptApp.Visible = True
    pptApp.activate

    Set pptPres = pptApp.Presentations.Add
    Set pptSlide = pptPres.Slides.Add(1,ppLayoutBlank)

    excelTable.Copy

    pptSlide.Shapes.PasteSpecial(link:=True).Select
    pptApp.activeWindow.Selection.ShapeRange.Align msoAlignCenters,True
    pptApp.activeWindow.Selection.ShapeRange.Align msoAlignmiddles,True

    End Sub

但是我猜测手动创建演示文稿（以及表格和图形），然后使用VBA脚本自动执行其中的数据会更容易，但是我不知道如何。你有什么想法？我不需要代码，只需要新想法。