Как получить Excel VBA PasteSpecial диаграмму в PowerPoint без ссылок?

Question

Я пишу утилиту для копирования диаграмм и таблиц из Excel в презентацию Powerpoint.Одним из требований является возможность вставки одним из трех способов.2 из них достаточно просты.У меня проблемы с: как редактируемая диаграмма, но с отключенными ссылками, поэтому пользователь может отформатировать диаграмму в Powerpoint, но изменения в исходных данных диаграммы в Excel не будут проходить.

Как мне это сделать?

Я пробовал почти все варианты типов данных и ссылок, о которых я могу подумать, например,

activeSlide.Shapes.PasteSpecial DataType:=ppPasteShape, Link:=msoFalse
activeSlide.Shapes.Paste
ppApp.CommandBars.ExecuteMso "PasteSourceFormatting"
activeSlide.Shapes.PasteSpecial DataType:=ppPasteDefault, Link:=msoFalse
activeSlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse 

PasteOLEOBject один сбивает Excel дажес предыдущим циклом 5000 DoEvent

, но он либо вставляется в виде диаграммы, которая не может быть отредактирована в PowerPoint, либо диаграммы, которая может быть отредактирована, но остается связанной с исходными данными, поэтому изменение Powerpoint изменяется соответствующим образом.

Answer 1

Отменить запрос.Я обнаружил, что вы можете разорвать ссылки на фигуру после ее вставки: -

activeSlide.Shapes.Paste
ppApp.CommandBars.ExecuteMso "PasteSourceFormatting"
For intCount = 1 To 5000: DoEvents: Next
activeSlide.Shapes(activeSlide.Shapes.Count).LinkFormat.BreakLink