VBA CommandBars.ExecuteMso ("PasteAsTableSourceFormatting") со ссылкой на источник

Question

Я скопировал таблицу из Excel в PowerPoint с этим кодом:

pptApp.CommandBars.ExecuteMso ("PasteAsTableSourceFormatting") 

Все работает отлично. Но как мне связать его с исходным кодом?

Answer 1

Вы можете использовать функцию, предоставленную @JamieG, чтобы получить ссылку на приклеенную форму (Related Question), тогда вы можете получить доступ к ряду этой приклеенной формы путем доступа сцепленных свойств:

Dim shp As Shape 
Set shp = GetPastedShape() 

'Assuming the pasted shape contains a excel spreadsheet 
If shp.Type = msoEmbeddedOLEObject Then 
    shp.OLEFormat.Object.Workbook.Sheet(1).Range("A1") 
End If