代码之家 › 专栏 › 技术社区 › Jason Stallard

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

powerpoint-vba charts

0

Jason Stallard · 技术社区 · 6 年前

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

Activepresentation.Slides(1).Shapes("Chart 2").Chart.Title = "some text" 不会改变什么。如果我在那行前面加上 Set “它给了我们” 编译错误:属性的使用无效 "

ActivePresentation.Slides(1).Shapes("Chart 2").TextFrame.TextRange.Text = "some text" “给予” 运行时错误“-2147024809#80070057#”:指定的值超出范围 "

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

Sheets("Sheet 1").ChartObjects("Chart 2").Name Sheets("Sheet 1").ChartObjects("Chart 2").HasTitle “给予” 运行时错误“438”:对象不支持此属性或方法 ".

1 回复 | 直到 4 年前

1

Jon Peltier 6 年前

你的语法不完整;你需要 Chart ChartTitle 不 Title Text ):

ActivePresentation.Slides(1).Shapes("Chart 2").Chart.ChartTitle.Text = "some text"

介于 Shapes 或 ChartObject 以及图表的任何属性或方法 图表

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

失败了,但是

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

返回True或False。

如果没有PowerPoint中的宏录制器(在office2007之前有一个宏录制器将其删除),这将变得更加困难,因此您需要使用Excel,然后将其移植到powerpointvba中。