Excel VBAを使用したWordでのキャプションの挿入 - 下にない位置

-1

Excelで次のコードを使用してWordに画像を挿入しています。何らかの理由で最後の行が実行されたときにキャプションはより上に追加されます。私はwdCaptionPositionBelowとして位置をマークしていますが、の画像になります。なぜこれが起こっているのか、それを修正する方法を誰かが知っていますか？Excel VBAを使用したWordでのキャプションの挿入 - 下にない位置

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

Excel VBAを使用したWordでのキャプションの挿入 - 下にない位置

答えて

関連する問題