精简Excel VBA代码：优化多工作表数据复制到PowerPoint的程序

核心优化方向 #

• 抽取重复的幻灯片创建、格式设置逻辑为独立子过程，消除冗余代码
• 统一对象引用，减少重复创建/获取对象的开销
• 利用With语句批量配置格式，缩减代码长度
• 采用后期绑定避免版本兼容问题

优化后的完整代码 #

Option Explicit

Sub ExportToPowerPoint()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim targetWs As Worksheet
    Dim currentSlide As Object
    Dim copyRng As Range
    Dim slideTitle As String
    
    ' 初始化PowerPoint应用与演示文稿
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True
    Set pptPres = pptApp.Presentations.Add
    
    ' 遍历目标工作簿内所有工作表
    For Each targetWs In ThisWorkbook.Worksheets
        Set copyRng = targetWs.Range("B3:L220")
        slideTitle = targetWs.Name ' 用工作表名作为标题，可自定义
        
        ' 添加带格式标题的幻灯片
        Set currentSlide = GetFormattedSlide(pptPres, slideTitle)
        
        ' 复制粘贴数据到幻灯片
        copyRng.Copy
        currentSlide.Shapes.PasteSpecial DataType:=2 ' 粘贴为图片，按需修改类型
        
        ' 调整粘贴内容位置
        With currentSlide.Shapes(currentSlide.Shapes.Count)
            .Top = 100
            .Left = 50
            .Width = 800
        End With
    Next targetWs
    
    ' 释放对象
    Set currentSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
    MsgBox "数据导出完成！", vbInformation
End Sub

' 子过程：生成带格式化标题的幻灯片
Private Function GetFormattedSlide(pptPres As Object, titleText As String) As Object
    Dim newSlide As Object
    Dim titleShape As Object
    
    ' 添加空白版式幻灯片（编号12对应空白版式）
    Set newSlide = pptPres.Slides.Add(pptPres.Slides.Count + 1, 12)
    
    ' 创建并格式化标题文本框
    Set titleShape = newSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 20, 800, 50)
    With titleShape.TextFrame.TextRange
        .Text = titleText
        .Font.Name = "微软雅黑"
        .Font.Size = 24
        .Font.Bold = True
        .ParagraphFormat.Alignment = 2 ' 数值2对应居中对齐，避免依赖库引用
    End With
    
    Set GetFormattedSlide = newSlide
End Function

优化细节说明 #

• 模块化拆分：将幻灯片创建与标题格式逻辑封装为GetFormattedSlide函数，循环中只需调用即可，避免重复编写格式代码
• 后期绑定：使用CreateObject创建PowerPoint对象，无需手动引用PowerPoint库，适配Excel 2016及其他版本
• 减少重复操作：通过With语句批量设置标题属性和粘贴内容位置，缩减代码行数同时提升可读性
• 清晰命名：变量命名更具语义化（如targetWs、copyRng），便于维护和理解

内容的提问来源于stack exchange，提问作者Sorab