VBA从XL复制范围并将“仅保留文本”粘贴到PPT中

时间:2019-09-20 01:18:12

标签: excel vba powerpoint paste

我有一些包含字符串的单元格,我想将其复制并粘贴到以PPT命名的预格式化文本中。我想将其粘贴为“仅保留文本”,我知道我可以手动完成此操作,但是我一生中找不到通过VBA进行此操作的任何方法。

这是一段代码:

ActiveWorkbook.Worksheets("Sheet1").Range("A" & startRow & ":A" & endRow).Copy
oPPTApp.ActivePresentation.Slides(17).Shapes("ShapeName").TextFrame.TextRange.PasteSpecial DataType:=ppPasteText

此代码不断出现错误: 运行时错误'-2147024809(80070057)': 指定的值超出范围

我已经检查了剪贴板,并且数据肯定在那里。当我单步执行代码并在错误发生之前停止时,我可以将其手动粘贴为“仅保留文本”的PPT。

除了在我的范围内逐个字符串循环之外,还有别的方法吗?

编辑:我已经检查了潜在的重复帖子,但是在检查文本框首先具有文本框架之后,它仍然没有解决问题。好像过去的特殊保留文本仅在一定范围的单元格中才无效?

谢谢!

0 个答案:

没有答案