使用 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。