Как изменить текст заголовка диаграммы Powerpoint с помощью VBA - PullRequest
Новая
       73

Как изменить текст заголовка диаграммы Powerpoint с помощью VBA

0 голосов
/ 20 сентября 2018

У меня есть презентация Powerpoint 2013 с несколькими диаграммами на слайде.Я хочу изменить заголовок диаграммы, но не могу понять, как выбрать текст.

Activepresentation.Slides(1).Shapes("Chart 2").Chart.Title = "some text" ничего не меняет.Если я добавлю к этой строке префикс Set, то получится « Ошибка компиляции: недопустимое использование свойства »

ActivePresentation.Slides(1).Shapes("Chart 2").TextFrame.TextRange.Text = "some text" - «1010 * Ошибка времени выполнения» -2147024809 # 80070057 #': Указанное значение выходит за пределы диапазона"

Заголовок диаграммы состоит из двух строк со смесью размеров текста.Весь график был скопирован из Excel.В результате мне нужно программно изменить вторую половину заголовка.

В Excel Sheets("Sheet 1").ChartObjects("Chart 2").Name возвращает имя, но Sheets("Sheet 1").ChartObjects("Chart 2").HasTitle выдает " Ошибка времени выполнения" 438 ": объект неподдержать это свойство или метод".

1 Ответ

0 голосов
/ 22 сентября 2018

Ваш синтаксис неполный;вам нужно Chart, которое у вас есть в одном месте, но не в других, элемент диаграммы равен ChartTitle, а не Title, и вам нужно указать, какой подэлемент получает новый текст (Text): 

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

Между Shapes или ChartObject и любым свойством или методом диаграммы вам требуется Chart: 

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

, но 

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

возвращаетВерно или неверно.

Это сложнее, если в PowerPoint не было записано макроса (он был до тех пор, пока Office 2007 не удалил его), поэтому вам нужно использовать Excel, а затем взломать, чтобы подогнать его под PowerPoint VBA.

...