嘿，这个问题我之前帮不少人解决过——首先得明确一点：Excel里的宏按钮（不管是表单控件还是ActiveX控件）本质上都属于Shapes集合的一员，没办法把它改成非Shape类型。不过咱们完全可以绕开这个问题，有几个实用的方案：

方案1：精准定位要导出的图表，排除按钮Shape #

你之前的代码可能是笼统处理工作表里的Shapes，导致按钮被误导出。解决办法是只针对图表对象操作，要么创建图表时用变量绑定，要么遍历Shapes时过滤掉按钮类型。

方法A：创建图表时绑定变量，只导出目标图表 #

创建散点图的时候，把它赋值给一个ChartObject变量，后续只操作这个变量，完全不碰按钮：

Sub Export_To_PowerPoint_JAH()
    Dim myChart As ChartObject
    Dim pptApp As Object
    Dim pptSlide As Object
    
    ' 初始化PPT对象（你的原有代码）
    Set pptApp = CreateObject("PowerPoint.Application")
    ' 假设你已经打开了目标PPT并定位到指定幻灯片
    Set pptSlide = pptApp.ActivePresentation.Slides(2) ' 替换成你的幻灯片编号
    
    ' 创建散点图并绑定到变量
    Set myChart = ActiveSheet.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
    ' 设置图表数据源（你的原有逻辑）
    myChart.Chart.SetSourceData Source:=Range("A1:B10") ' 替换成你的数据范围
    myChart.Chart.ChartType = xlXYScatter
    
    ' 只复制这个图表到PPT
    myChart.Copy
    pptSlide.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile ' 按需选择粘贴格式
    
    ' 删除Excel里的图表
    myChart.Delete
    
    ' 清理对象
    Set pptSlide = Nothing
    Set pptApp = Nothing
End Sub

方法B：遍历Shapes时过滤按钮类型 #

如果是处理已存在的多个图表，遍历Shapes时只保留图表类型，排除按钮：

For Each shp In ActiveSheet.Shapes
    ' 只处理图表Shape，跳过表单控件、ActiveX控件等按钮类型
    If shp.Type = xlChart Then
        shp.Copy
        ' 粘贴到PPT的代码...
    End If
Next shp

方案2：换一种宏触发方式，彻底避开按钮Shape #

如果不想在代码里做过滤，干脆不用工作表上的按钮触发宏，有几个更干净的选择：

• 自定义功能区按钮：右键Excel顶部功能区→「自定义功能区」，新建一个组，把你的宏添加到这个组里。以后直接点功能区的按钮触发，工作表上没有按钮Shape，自然不会被导出。
• 用快捷键触发：你的代码里已经设置了快捷键（Keyboard Shortcut: C...），直接用快捷键启动宏就行，完全不用按钮。
• 工作表事件触发：比如设置双击某个特定单元格启动宏，或者打开工作簿时自动执行，这个看你的需求是否合适。

方案3：临时隐藏按钮，导出后恢复 #

如果一定要保留工作表上的按钮，可以在宏执行开始时把按钮隐藏，导出完成后再显示：

Sub Export_To_PowerPoint_JAH()
    Dim btnShape As Shape
    ' 替换成你的按钮名称（选中按钮后看Excel顶部的名称框）
    Set btnShape = ActiveSheet.Shapes("Button 1")
    
    ' 隐藏按钮
    btnShape.Visible = False
    
    ' 你的原有代码：遍历数据、创建图表、导出到PPT、删除图表...
    
    ' 导出完成后显示按钮
    btnShape.Visible = True
End Sub

这几个方案里，方案1的方法A是最稳妥的，因为它从根源上只操作目标图表，完全不会涉及按钮。

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