Question

我正试图从powerpoint复制到excel并试图保持功率点的形成。

For x = 1 To pptApp.ActivePresentation.Slides.Count
    pptApp.ActivePresentation.Slides.Range(Array(x)).Select
    pptApp.ActivePresentation.Slides.Range(Array(x)).Copy
    pptApp.Windows(2).Activate        
    pptApp.ActiveWindow.View.Paste
    pptApp.Windows(2).Activate
Next x

我目前正在使用它来复制它并且工作正常，但它不会复制格式。

任何想法如何实现这一目标？属

Answer 1

除了PaulStock的有效点之外，当您从一个办公室应用程序粘贴到另一个办公室应用程序时，导入程序可以通过许多不同的方式解释缓冲区。在您的情况下，您要确保Excel不会将PPT幻灯片作为HTML，文本，BMP或任何其他幻灯片导入，而是作为幻灯片对象导入。在交互模式中，您将使用PasteSpecial命令，并且Excel中的VBA等效将

[SheetObject].PasteSpecial Format:="Microsoft PowerPoint Slide Object", _
                           Link :=False, _
                           DisplayAsIcon:=False

快速＆amp;脏测试：将此代码放入sheet-onDoubleClick触发器中，将[SheetObject]替换为“Me”，移至PPT，从幻灯片中复制幻灯片（!!!），返回Excel并双击细胞 - 和声音！

（此处为Office 2003 SP3）

使用格式将ppt复制到Excel

1 个答案: