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