我有一些包含字符串的单元格,我想将其复制并粘贴到以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。
除了在我的范围内逐个字符串循环之外,还有别的方法吗?
编辑:我已经检查了潜在的重复帖子,但是在检查文本框首先具有文本框架之后,它仍然没有解决问题。好像过去的特殊保留文本仅在一定范围的单元格中才无效?
谢谢!