如何使用VBA修改Powerpoint图表标题文本

我有一个Powerpoint 2013演示文稿，幻灯片上有几个图表。我想修改图表标题，但不知道如何选择文本

Activepresentation.Slides1.ShapeChart 2.Chart.Title=某些文本不会改变任何内容。如果我在该行前面加上Set，则会出现编译错误：属性的使用无效

ActivePresentation.Slides1.ShapeChart 2.TextFrame.TextRange.Text=某些文本出现运行时错误“-2147024809 80070057”：指定的值超出范围

图表标题是两行文字大小的混合体。它从Excel复制了整个图表。我需要的结果是以编程方式修改标题的后半部分

---

在Excel工作表中，SheetsSheet 1.ChartObjectsChart 2.Name返回名称，但SheetsSheet 1.ChartObjectsChart 2.Hasttle给出运行时错误“438”：对象不支持此属性或方法

您的语法不完整；您需要图表，它位于一个位置，但不在其他位置，图表元素是ChartTitle而不是Title，您需要指定哪个子元素获取新文本：

在形状或ChartObject与图表的任何属性或方法之间，您需要图表：

失败了，但是

Sheets("Sheet 1").ChartObjects("Chart 2").Chart.HasTitle

返回True或False

如果PowerPoint中没有宏录制器，则更难做到这一点。Office 2007删除了宏录制器之前，曾有一个宏录制器，因此您需要使用Excel，然后将其修改为适合PowerPoint VBA

Sheets("Sheet 1").ChartObjects("Chart 2").HasTitle

Sheets("Sheet 1").ChartObjects("Chart 2").Chart.HasTitle