如何使用VBA将Microsoft Word公式导入Microsoft Excel？

我一直在寻找将图片、表格和其他东西从

MicrosoftWord2010

移动到

MicrosoftExcel2010

的方法。我想找到一种方法，用

OMath

对象或方程做同样的事情。我希望尽可能保持方程的原始形式，因此如果这意味着将

OMath

对象转换为图片（

InlineShape

），那么这就是我想要做的

下面是Word中的公式，我想使用VBA将其导入excel：

现在，我只能传递这个对象的Range.Text表示，这使得这个方程看起来像这样：

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

我发现我可以选择此对象并进行选择复制。是否有办法确定此选择的尺寸？我想把它粘贴到一个特定的单元格中，这个单元格已经调整了大小以适应这个方程。我循环浏览Word文档的段落，每个段落都被称为

DocPara

，当我遇到一个等式时，我会这样选择它：

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

我上面提到的问题是，图片粘贴在我想要的地方，但是比它所在的行大，如果我调整行的大小，图片会随着行的大小而垂直线性拉伸。在粘贴之前，我需要调整要粘贴此图像的行的大小。如何访问刚放在剪贴板上的图片的大小

---

有人有什么想法吗？我真的很感激：）

粘贴图片后，在调整行大小之前，请将其

.Placement

属性设置为

xlMove

（使用单元格移动，但不要调整大小）。这会阻止图片调整大小

这相当于设置图片格式属性

---

看一看谢谢，我会继续看的。然而，我正试图用word文档中已经存在的公式在宏中实现这一点。我希望能够从我的宏所在的word中提取公式，并将其放入excel中。