代码在 Powerpoint 2016 中停止工作

Question

在早期版本的 PPT 中完美运行的代码在 2016 年停止运行。 当我尝试更改图表中形状的左侧属性时，我收到 Method left of object shape failed 错误。 我可以完美地阅读.Left 属性。

我的想法快用完了？我能做什么？

Sub test11()
  Dim sld As Slide
  Dim objChart As Object
  Dim shpBubble As Object
  Set sld = ActivePresentation.Slides("ScatterPlot01_Purch6")
  Set objChart = sld.Shapes("Chart01").Chart
  sld.Select
  objChart.Select

  Set shpBubble = objChart.Shapes("P01")
  'shpBubble.Select

  Debug.Print shpBubble.Left, shpBubble.Visible
  shpBubble.Left = 10
End Sub

Answer 1

更新

已经在 PowerPoint 2010 和 2013 中进行了测试，它可以正常工作，现在这看起来像是 2016 年的一个错误！

* 结束 *

我在 PowerPoint 2016 (PC) 中通过手动向测试图表添加形状（选择图表然后点击Format / Insert Shapes）和尝试写入它的几个属性，包括位置和格式，例如更改填充颜色。都会产生错误。

也许一种解决方法是使用 .Delete 方法删除所需的形状，然后在所需的大小和位置添加新形状。像这样的：

Sub test11()
  Dim sld As Slide
  Dim objChart As Chart 'Object
  Dim shpBubble As Shape 'Object
  Set sld = ActivePresentation.Slides("ScatterPlot01_Purch6")
  Set objChart = sld.Shapes("Chart01").Chart
  sld.Select
  objChart.Select ' this won't work as you can only select the parent shape sld.Shapes("Chart01")

  With objChart
    .Shapes("P01").Delete
    .Shapes.AddShape msoShapeOval, 10, 10, 20, 20
  End With
End Sub

挑战在于，由于新形状添加为只读，无法设置格式！