word中单元格高度和inlineShape高度的区别

Question

我有一个从 excel 复制到 word 表格单元格中的图表。 现在我正在尝试调整它的大小。 由于公司规定，我必须使用 access-vba 来完成所有这些。

这条线可以调整图形的大小...

wdDoc.inlineShapes(1).ScaleHeight = (wdDoc.Tables(3).Cell(2,1).Height)

但

MsgBox (wdDoc.Tables(3).Cell(2,1).Height)    '= 410
MsgBox (wdDoc.inlineShapes(1).Height)        '= 942.65

为什么要调整为任意数字？ 宽度为 1393,3 pts，因此宽度和高度之间不会混淆......

Answer 1

我想我找到了答案：

inlineShape.ScaleHeight：相对于其原始大小缩放指定的内联形状的高度。

这意味着我没有将它缩放到 410 点的高度，而只是缩放到它之前高度的 410%。

我的问题的解决方案是使用.height和.width并首先计算一个比率。

Dim sizeRatio as Double

With .inlineShapes(1)

    sizeRatio = .Height / .Width
    .Height = wdDoc.Tables(3).Cell(2,1).Height
    .Width = wdDoc.Tables(3).Cell(2,1).Height / sizeRatio

End With