gpt4 book ai didi

excel - 如何将单元格范围作为表格从 Excel 复制到 PowerPoint - VBA

转载 作者:行者123 更新时间:2023-12-02 07:26:51 26 4
gpt4 key购买 nike

我找不到任何方法来做到这一点。我现在所拥有的是将范围复制为图像:

Dim XLApp As Excel.Application 
Dim PPSlide As Slide

Set XLApp = GetObject(, "Excel.Application")
XLApp.Range("A1:B17").Select
XLApp.Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
PPSlide.Shapes.Paste.Select

这就像一个魅力,但是否可以让它将范围复制为表格而不是图片?

最佳答案

这可以简单地完成

Dim XLApp As Excel.Application
Dim PPSlide As Slide

Set XLApp = GetObject(, "Excel.Application")
XLApp.Range("A1:B17").Copy
PPSlide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse

关于excel - 如何将单元格范围作为表格从 Excel 复制到 PowerPoint - VBA,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3840370/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com