將數據從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對於段落結尾和換行符使用不同的字符，並且在版本之間有所不同，因此，如果您需要支持PPT 2003及更早版本，則需要更多代碼。

我維護的PPT常見問題解答上的此頁面詳細說明了以下內容：

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