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

-1

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

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

来源

2017-10-08 Mike

检查'wdCaptionPositionBelow'是否为'0'或'1'。如果它是'0'，则在代码中的某处将其设置为'1'。（我猜你没有包含对Word对象库的引用[可能是因为你使用了后期绑定，因此不认为你需要它]，并没有设置该库附带的所有常量） – YowE3K

这样做！谢谢谢谢！ – Mike

如果您的项目中没有包含对Word对象库的引用，那么该库中定义的常量都不会供您使用。

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

没有图书馆的参考，您的wdCaptionPositionBelow将被视为一个变量，除非你已经设置的值，它的默认值为零 - 使用wdCaptionPositionAbove从库中的等价物。

来源

2017-10-11 00:38:17 YowE3K

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

回答

相关问题