VBA复制Excel图表到PPT调整尺寸时报This view does not support selection错误

这个报错是两个问题叠加导致的：

• 调用ActiveWindow.Selection时，PPT窗口没有处于支持形状选择的普通视图状态：打开模板后你没有主动设置视图类型，如果模板上次保存时停留在幻灯片浏览、阅读视图、母版视图，就会直接抛出"当前视图不支持选择"的错误。
• 实现逻辑冗余：完全没必要通过Selection去操作刚粘贴的图表，Shapes.PasteSpecial方法执行后会直接返回刚粘贴的形状集合，接住这个返回值就能直接修改位置尺寸，可以绕开Selection相关的所有不稳定问题。

直接接收粘贴操作返回的形状对象，跳过Selection逻辑，同时显式设置PPT窗口状态避免异常，修复后完整代码如下：

Sub ExportChartToPPT()
    Dim Powerpointapp As PowerPoint.Application
    Dim PowerPointPrsn As PowerPoint.Presentation
    Dim cht As ChartObject
    Dim strpath As String
    Dim mySlide As PowerPoint.Slide
    Dim pastedShape As PowerPoint.Shape

    ' 指定模板文件路径
    strpath = ThisWorkbook.Path & "\template.pptm"
        
    ' 初始化PPT应用实例、打开模板
    Set Powerpointapp = New PowerPoint.Application
    Powerpointapp.Visible = True ' 显式设置PPT可见，避免后台实例视图状态异常
    Set PowerPointPrsn = Powerpointapp.Presentations.Open(strpath)
    
    ' 强制切换到普通视图，从根源避免视图不支持选择的问题
    Powerpointapp.ActiveWindow.ViewType = ppViewNormal
    
    ' 定位要粘贴内容的目标幻灯片
    Set mySlide = PowerPointPrsn.Slides(1)
    
    ' 复制Excel内的目标图表
    Set cht = Worksheets("sheet name").ChartObjects(1)
    cht.Copy
    DoEvents
    
    ' 粘贴后直接获取刚生成的形状对象，不需要依赖选中状态
    Set pastedShape = mySlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture)(1)
    
    ' 直接对形状对象设置位置、尺寸，不会触发选择类报错
    pastedShape.Left = 50
    pastedShape.Top = 120
    pastedShape.Width = 590
    
    ' 清空剪贴板释放资源
    Application.CutCopyMode = False
End Sub

• 所有Office自动化开发场景下，能直接获取对象引用就绝对不要依赖Selection：Selection完全依赖前台界面状态，窗口失焦、视图切换、后台运行都会触发报错，稳定性远低于直接取方法返回值的写法。
• 新建PPT应用实例后建议显式设置.Visible = True，默认后台启动的隐藏实例经常会出现视图状态异常、剪贴板调用失败的问题。
• 原代码中定义的rng、myShape变量没有实际使用，可以直接删除减少冗余。

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