将组从 Excel 复制到 VBA答案

【问题标题】：Copy group from Excel to VBA将组从 Excel 复制到 VBA
【发布时间】：2014-09-19 22:44:27
【问题描述】：

我想从 Excel 中复制一个组并使用 excel VBA 将其粘贴到 PowerPoint 幻灯片中。我使用以下代码复制组：

Worksheets(sheet).Activate
ActiveSheet.Shapes(group_name).CopyPicture_
Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture

但是这段代码给出了一个错误。代码有什么问题？我应该如何修改它以达到要求？提前致谢！

【问题讨论】：

您需要参考 Power Point 应用程序 -> 然后粘贴复制的内容
Modify Excel VBA code to paste into specific ppt slides的可能重复
我已经有了参考，这不是问题。只有这一行给出了错误。该组不会仅被复制
我使用了以下代码 sn-p（没有编写代码粘贴到这里）： ActiveSheet.Shapes(chart).Copy 但是它没有被复制为图片。如果我使用问题中给出的代码将其复制为图片，则其给定对象定义错误

【解决方案1】：

我刚用过

ActiveSheet.Shapes(chart).CopyPicture

我得到了结果！

【讨论】：

【解决方案2】：

或者试试这个，它也可以：

ActiveSheet.Shapes.Range(Array("Group_Name")).Select
Selection.Copy

【讨论】：