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
というようなコードが,★の位置に入ってほしいのです。


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

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2010/03/28 18:00:34
  • 終了:2010/04/04 18:05:03

回答(1件)

id:emily3854 No.1

emily3854回答回数11ベストアンサー獲得回数02010/03/30 15:18:14

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

id:language_and_engineering

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

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

2010/03/30 23:41:47
  • id:GreenStar
    確認環境が無いからコメント(無ポイントは回答者として避けたい)

    ページ指定するなら LockAnchor Property / Left Property / Top Property の3つで足りるはず。
  • id:language_and_engineering
    コメントありがとうございます。

    LockAnchorプロパティでいけるかどうか,時間が取れ次第確認してみたいと思います。

    ※回答がしづらくなるような質問文の書き方をしてしまい申し訳ないです。
    以後気をつけるようにします。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません