如何使用VBA將Microsoft Word公式導入Microsoft Excel？

我一直在尋找方法將圖片和表格以及其他東西從Microsoft Word 2010移動到Microsoft Excel 2010。我想找到的方法是用OMath對象或等式來做同樣的事情。我想盡可能地保持方程的原始形式，所以如果這意味着將OMath對象轉換爲圖片（InlineShape），那麼這就是我想要做的。如何使用VBA將Microsoft Word公式導入Microsoft Excel？

這裏是方程式的樣子在Word中，我想導入使用到Excel VBA： enter image description here

現在，我只能夠傳輸的這個Range.Text表示對象，這使得這個公式是這樣的：

enter image description here

我發現，我可以選擇這個對象，做一個選擇的副本。有沒有辦法確定這個選擇的尺寸？我想將其粘貼到已調整大小以適合等式的特定單元格中。我遍歷Word文檔中的段落，每個段落被稱爲DocPara，當我遇到一個方程式，我選擇它是這樣的：

DocPara.Range.OMaths(1).Range.Select 
With Selection 
    .CopyAsPicture 
    oWB.ActiveSheet.Paste Destination:=oWB.ActiveSheet.Cells(headingCount, 3) 
End With

與我上面那是什麼畫面漿中的問題在我想要的位置，但比它坐的行大，如果我調整行的大小，圖片會隨行大小垂直線性延伸。在粘貼之前，我需要調整粘貼該圖像的行的大小。如何訪問我剛放在剪貼板上的圖片的大小？

有沒有人有一些想法？我真的很感激它:)

來源

2013-12-23 Jake Smith

看看[此]（http://office.microsoft.com/en-us/excel-help/use-equation -editor-in-excel-HP010215799.aspx） – Justin

謝謝，我會一直關注的。但是，我試圖用一個已經存在於Word文檔中的公式來完成這個工作。我希望能夠從單詞中提取方程式，並將其放在excel中。 –

粘貼圖片後，將其.Placement屬性設置爲xlMove（移動單元格，但不調整大小），然後再調整行的大小。這可以防止圖片大小調整。

這等效於設置畫面格式屬性

enter image description here

來源

2013-12-23 22:53:47

如何使用VBA將Microsoft Word公式導入Microsoft Excel？

回答

相關問題