Application.CommandBars.ExecuteMso（“PasteSourceFormatting”）在powerpoint中不起作用

Question

我尝试在powerpoint中使用vba将表格从excel复制到powerpoint，然后在powerpoint中调整大小。但是，它会提示错误“选择（未知号码）”。 如果我在调整大小之前保存它，它将正常工作。但我不想保存它。如何解决这个问题？以下是我的代码：

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

希望这有帮助。