Word VBA功能可在浮动图像页面上找到位置？

Question

给出一个带有方形环绕的浮动图像，该图像相对于段落垂直放置：

imageShape.RelativeVerticalPosition = wdRelativeVerticalPositionParagraph

如何获得页面上的实际垂直位置（以磅为单位）？

我尝试过：

1. 选择它并使用Information(wdVerticalPositionRelativeToPage)，它将给出锚点位置，而不是图像位置。

2. 将其转换为wdRelativeVerticalPositionPage并读取.Top位置是可行的，但随后将其转换回wdRelativeVerticalPositionParagraph则再次移动图像。

这个问题的动机是Calculate negative vertical offset from paragraph so image floats just above anchor?

Answer 1

例如：

Dim RelPos As Long
With imageShape
  RelPos = .RelativeVerticalPosition
  .RelativeVerticalPosition = wdRelativeVerticalPositionMargin
  MsgBox .Top
  .RelativeVerticalPosition = RelPos
End With

这对我有效，而无需更改图像位置。

如果要从页面顶部计算位置，请将wdRelativeVerticalPositionMargin更改为wdRelativeVerticalPositionPage