将数据从powerpoint文本框复制到Excel单元格

Question

我正在使用MS Excel中的宏将数据从PowerPoint中的文本框导入Excel。

它导入数据以文本格式不能换行字符从文本

Range("a1").Value = pps.Shapes("textbox 1").TextFrame.TextRange.Text 

复制任何人都可以请提出替代解决方案？

Answer 1

最近的PowerPoint版本使用Chr $（11）作为换行符。它看起来像Excel中想换行CHR $（10），所以是这样的：

Range("a1").Value = Replace(pps.Shapes("textbox 1").TextFrame.TextRange.Text,Chr$(11), Chr$(10)) 

PPT使用不同的字符，段落结尾VS换行，而且版本之间略有不同，因此，如果您需要支持PPT 2003年和之前，你需要更多的代码。

的PPT常见问题我保持此页介绍的细节：

http://www.pptfaq.com/FAQ00992_Paragraph_endings_and_line_breaks.htm