2017-10-08 78 views
-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 
+1

檢查'wdCaptionPositionBelow'是否爲'0'或'1'。如果它是'0',則在代碼中的某處將其設置爲'1'。 (我猜你沒有包含對Word對象庫的引用[可能是因爲你使用了後期綁定,因此不認爲你需要它],並沒有設置該庫附帶的所有常量) – YowE3K

+0

這樣做!謝謝謝謝! – Mike

回答

0

如果您的項目中沒有包含對Word對象庫的引用,那麼該庫中定義的常量都不會供您使用。

在該庫中,常量wdCaptionPositionBelow的值爲1,而常量wdCaptionPositionAbove的值爲0

沒有圖書館的參考,您的wdCaptionPositionBelow將被視爲一個變量,除非你已經設置的值,它的默認值爲零 - 使用wdCaptionPositionAbove從庫中的等價物。

相關問題