从Excel工作表复制表格并将其粘贴到PowerPoint幻灯片中的Excel宏，可灵活地决定哪些列和哪些行

Sub CopyTableToPowerPoint()
    Dim PowerPointApp As Object
    Dim PowerPointPres As Object
    Dim PowerPointSlide As Object
    Dim ExcelTable As Range
    Dim PowerPointTable As Object
    Dim SelectedColumns As Range
    Dim SelectedRows As Range
    
    ' 设置要复制的表格范围
    Set ExcelTable = Range("A1:F10")
    
    ' 设置要复制的列范围
    Set SelectedColumns = Range("A:C")
    
    ' 设置要复制的行范围
    Set SelectedRows = Range("1:5")
    
    ' 创建一个新的PowerPoint应用程序实例
    Set PowerPointApp = CreateObject("PowerPoint.Application")
    
    ' 创建一个新的演示文稿
    Set PowerPointPres = PowerPointApp.Presentations.Add
    
    ' 在演示文稿中创建一个新的幻灯片
    Set PowerPointSlide = PowerPointPres.Slides.Add(1, 12) ' 12表示幻灯片布局
    
    ' 将表格复制到剪贴板
    ExcelTable.Copy
    
    ' 将表格粘贴到PowerPoint幻灯片中
    PowerPointSlide.Shapes.PasteSpecial(DataType:=2) ' 2表示粘贴为表格
    
    ' 获取粘贴的表格对象
    Set PowerPointTable = PowerPointSlide.Shapes(PowerPointSlide.Shapes.Count).Table
    
    ' 隐藏未选择的列
    For Each Column In ExcelTable.Columns
        If Intersect(Column, SelectedColumns) Is Nothing Then
            PowerPointTable.Columns(Column.Column).Delete
        End If
    Next Column
    
    ' 隐藏未选择的行
    For Each Row In ExcelTable.Rows
        If Intersect(Row, SelectedRows) Is Nothing Then
            PowerPointTable.Rows(Row.Row).Delete
        End If
    Next Row
    
    ' 调整表格大小以适应幻灯片
    PowerPointTable.TableStyle = "Table Style Light 2"
    PowerPointTable.Columns.AutoFit
    
    ' 显示PowerPoint应用程序窗口
    PowerPointApp.Visible = True
    
    ' 清空剪贴板
    Application.CutCopyMode = False
    
    ' 释放对象
    Set PowerPointTable = Nothing
    Set PowerPointSlide = Nothing
    Set PowerPointPres = Nothing
    Set PowerPointApp = Nothing
End Sub