excel - VBA从XL复制范围并在PPT中粘贴“仅保留文本”

Question

我有一系列带有字符串的单元格，我想将它们复制并粘贴到在 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 中作为“仅保留文本”。

除了在我的范围内逐个字符串循环之外，别无他法？

编辑：我已经查看了潜在的重复帖子，但在检查文本框首先具有文本框后仍然没有解决问题。就好像过去的特殊保留文本仅在它是一系列单元格时才起作用？

谢谢！

标签： excelvbapowerpointpaste