使用Excel VBA在Word中插入标题-位置在下面（而不是上面！）

我正在使用Excel中的以下代码将图片插入Word。由于某些原因，当最后一行运行时，标题会添加到图片上方，即使我已将位置标记为WDCAPTIONPOSITION。有人知道为什么会发生这种情况或者如何解决吗

Set mypic = my_word.Selection.InlineShapes.AddPicture(Photo_Browser.Photo_Location & "\" & Photo_Browser.Photo_List.List(i), False, True)
my_word.activedocument.InlineShapes(my_word.activedocument.InlineShapes.Count).Select
my_word.Selection.InsertCaption Label:="Figure", TitleAutoText:="InsertCaption1", _
Title:=":", Position:=wdCaptionPositionBelow, ExcludeLabel:=0

---

如果项目中未包含对Word对象库的引用，则该库中定义的常量将不可供您使用

在该库中，常数

wdCaptionPositionBelow

的值为

1

，而常数

wdCaptionPositionBelow

的值为

0

---

在没有库引用的情况下，您的

wdCaptionPositionBelow

将被视为一个变量，除非您设置了其值，否则它将默认为零-相当于使用库中的

wdcaptionpositionbelover

。

检查

wdCaptionPositionBelow

是否为

0

或

1

。如果它是

0

，请在代码中的某个位置将其设置为

1

。（我猜您没有包含对Word对象库的引用[可能是因为您使用的是后期绑定，因此认为不需要它]，并且没有设置该库附带的所有常量。）就是这样！谢谢,谢谢!！