如何使用VBA将Excel中的未来日期/时间插入Powerpoint

Sub InsertFutureDateTimeToPowerPoint()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptShape As PowerPoint.Shape
    Dim excelApp As Excel.Application
    Dim excelWb As Excel.Workbook
    Dim excelWs As Excel.Worksheet
    Dim dateTime As Date
    
    ' 打开Excel文件并获取日期/时间数据
    Set excelApp = New Excel.Application
    Set excelWb = excelApp.Workbooks.Open("C:\Path\To\Your\Excel\File.xlsx")
    Set excelWs = excelWb.Worksheets("Sheet1")
    ' 假设日期/时间数据在A1单元格中
    dateTime = excelWs.Range("A1").Value
    excelWb.Close False
    excelApp.Quit
    
    ' 打开PowerPoint应用程序
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True
    ' 创建新的演示文稿
    Set pptPres = pptApp.Presentations.Add
    
    ' 在第一张幻灯片中插入日期/时间
    Set pptSlide = pptPres.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutBlank)
    Set pptShape = pptSlide.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=100, Width:=200, Height:=50)
    pptShape.TextFrame.TextRange.Text = Format(dateTime, "yyyy-mm-dd hh:mm:ss")
    
    ' 保存并关闭PowerPoint文稿
    pptPres.SaveAs "C:\Path\To\Your\PowerPoint\File.pptx"
    pptPres.Close
    pptApp.Quit
    
    ' 释放对象
    Set pptShape = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
    Set excelWs = Nothing
    Set excelWb = Nothing
    Set excelApp = Nothing
End Sub