人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Word VBA(Word 2007)のコードをお願いします。

要件は,「文書内に存在する画像を,順番に,ActiveDocument上の別々のページへ移動したい」というものです。
1番目の画像は1ページ目に移動し,
2番目の画像は2ページ目に移動し,
・・・
という具合です。

下記コードの★マークの部分をご覧ください。



' 文書内の全画像を取得
Set ishapes = ActiveDocument.InlineShapes

' ページ番号のカウンタ
page_counter = 1

' 全画像に対する処理
For Each pic In ishapes
Set shp = pic.ConvertToShape

' 外周で折り返す
shp.WrapFormat.Type = wdWrapTight

' ★このシェイプを(page_counter)ページ目に移動したい。
' ・・・?

' 位置をセット
shp.Top = 100
shp.Left = 100

' シェイプを移動する先のページ番号を1つ繰り上げる
page_counter = page_counter + 1
Next pic


仮のイメージとしては,
shp.PageNumber = page_counter
というようなコードが,★の位置に入ってほしいのです。


動作するコードを提示して下さった方にポイントを差し上げたいと思います。
よろしくお願いします。

●質問者: lang_and_engine
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:NeXT PIC SET TOP VBA
○ 状態 :キャンセル
└ 回答数 : 1/1件

▽最新の回答へ

1 ● emily3854

よく分かりません、ごめんなさい。

◎質問者からの返答

いえいえ,お気になさらないでください。

Word VBAの情報は極少ですので。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ