excel - Application.CommandBars.ExecuteMso ("PasteSourceFormatting") 在 powerpoint 中不起作用

Question

我尝试在 powerpoint 中使用 vba 将表格从 excel 复制到 powerpoint，然后在 powerpoint 中调整其大小。但是，它会提示错误“Selection(Unknown number)”。
如果我在调整大小之前保存它，它会正常工作。但我不想保存它。如何解决这个问题？下面是我的代码:

sld.Select
sld.Application.Activate
ActiveWindow.Application.CommandBars.ExecuteMso "PasteExcelChartSourceFormatting"
sld.Application.CommandBars.ExecuteMso ("PasteSourceFormatting")
'sld.Application.ActivePresentation.Save

With ActiveWindow.Selection.ShapeRange
    .Height = 7.3 * 72
    .Width = 13.38 * 72
    .Left = 1.45 * 72
    .Top = 1.35 * 72
    .ZOrder msoSendToBack
End With

最好的，
阿尔文

Answer 1

阿尔文，

我也遇到过这个问题。您需要从命令栏释放焦点以修复错误。尝试将其添加到 ExecuteMso 行下方:

sld.Application.CommandBars.ReleaseFocus

希望这可以帮助。