使用 Excel VBA 在 Word 中插入标题 - 位置低于（不高于！）

Question

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

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

Answer 1

如果您的项目中没有包含对 Word 对象库的引用，则该库中定义的任何常量都将无法使用。

在该库中，常量wdCaptionPositionBelow的值为1而常量wdCaptionPositionAbove的值为0 。

如果没有库引用，您的wdCaptionPositionBelow将被视为一个变量，除非您设置了它的值，否则它将默认为零 - 相当于使用库中的wdCaptionPositionAbove 。