Powerpoint разрывает ссылки через excel vba

Я пытаюсь обновить презентацию PowerPoint со встроенными диаграммами через Excel с помощью сценария VBA. Это отлично работает с моим кодом. Проблема в том, что я также хочу - после обновления диаграмм - сломать/удалить ссылки на рабочий лист Excle.

В примере кода также показан мой код со строкой, которая не работает.

Любое предложение или решение будет высоко оценено!

Function RefreshPPT()
Set PPT = CreateObject("PowerPoint.Application")
PPT.Visible = True
PPT.Presentations.Open "Name.pptx", Untitled:=msoTrue
PPT.ActivePresentation.UpdateLinks
PPT.ActivePresentation.BreakLinks ------ this line doesn´t work
PPT.ActivePresentation.SaveAs Filename:="Name2.pptx"
PPT.Quit
Set PPT = Nothing
End Function

excel vba hyperlink powerpoint
person Philip    schedule 12.12.2012    source источник
comment
Выполняет ли компилятор автозаполнение команды .BreakLinks при ее вводе? Активировали ли вы справочник PowerPoint в этом проекте (библиотека объектов Microsoft Powerpoint xx.x)? О последнем иногда забывают, так как многие функции есть и в библиотеке Office, но не все...   -  person K_B    schedule 12.12.2012
comment
Да, это автозаполнение. Но есть сообщение об ошибке во время выполнения относительно этой строки. Ссылка Powerpoint также активирована.   -  person Philip    schedule 12.12.2012
comment
Не могли бы вы также опубликовать сообщение об ошибке в своем вопросе. Знание точной проблемы позволяет сообществу решить ее!   -  person K_B    schedule 12.12.2012

Ответы (1)


arrow_upward
2
arrow_downward

спасибо за ответы.

Я думаю, что решил проблему: неправильный синтаксис команды breakline. Мне пришлось обращаться непосредственно к слайдам и фигурам:

PPT.ActivePresentation.Slides(i).Shapes(s).LinkFormat.BreakLink
person Philip    schedule 12.12.2012