
こんにちは。
WinXP-Pro、Word2002を使用しています。
一ページ目に配置してある図形をコピーし、
ページを追加しそこにその図形を貼り付け
るマクロを登録しました。記録した操作は
以下のとおりです。
*****************************************
Ctrl+Home→図の選択→Ctrl+End→Ctrl+Enter
→Paste
******************************************
手動でこの操作をやった場合はうまくいくの
ですがマクロで実行すると、図を追加したページ
でなく追加前の最終ページにペーストしてしまい
ます(Ctrl+Enterが効いていない??)。
これを改善する方策のご教授をお願いいたします。
No.2ベストアンサー
- 回答日時:
> 図形を新しいページにコピーした場合、コピー元のページと配置が異なってしまうので
> 同じ位置に配置するためペースト後の図形を選択したい。
ペーストした時点でその図形が選択された状態になっていますので、元の図形を選択して
コピーする時点で予めその位置を取得しておき、貼り付け後の図形にその情報を与えれば
自動的に位置揃えできます。
<コピー時>
T = Selection.ShapeRange.Top
L = Selection.ShapeRange.Left
Selection.Copy
<貼り付け後>
Selection.Paste
Selection.ShapeRange.Top = T
Selection.ShapeRange.Left = L
ついでですが、文書内の名前のわからない図形は、次のようにすれば選択できます。
ActiveDocument.Shapes(N).Select
N は任意の数字ですが、基本的には図形の「順序」でより背面にあるものから順に 1、2、
3、‥‥、となります。
複数の図形を同じ位置に貼り付けると順に前面に貼り付けられますね。ですので、順序を
変更しない限り、文書上に残っている図形の中では最初に貼り付けられたものが 1、とい
うことになります。
反対に、最後に挿入された(描かれた)図形を選択する場合は、
N = ActiveDocument.Shapes.Count
ActiveDocument.Shapes(N).Select
となります。
Selection.ShapeRange.Name = "Tekitou"
のようにして、選択した図形に任意の名前をつけてしまうこともできます。
misatoannaさん、こんにちは。
迅速かつ詳細なご回答ありがとうございました。
教えていただいたコードでバッチリ解決いたし
ました!!どうもありがとうございました。
No.1
- 回答日時:
自動記録されたモジュールの最後にある
Selection.Paste
をコメントアウトしてマクロを実行する結果では、カーソルは確かに
次ページで点滅しているのですが、ここで貼り付けると、どうして前
ページに貼り付けられてしまうのでしょうね。
私にもわかりませんが、とりあえず
Selection.Paste
の行の前に
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext
という1行を加えてみてください。
この回答への補足
misatoannaさん、こんにちは。
教えられたステートメントを記述したら
うまくいきました!!!ありがとうございました。
ところで、図形を新しいページにコピーした場合、
コピー元のページと配置が異なってしまうので同
じ位置に配置するためペースト後の図形を選択し
たいのですが・・・。ペースト後の図形は
ActiveDocument.Shapes("Group xxxx")
で表現されているのですが、 xxxx の部分がその
都度変わるので自動記録したマクロではうまくいき
ません。
引き続き解決策のご教授をいただきたいのでよろし
くお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ワードからエクセルへ貼り付けるマクロ
Excel(エクセル)
-
【ワード】マクロで画像を選択する
Word(ワード)
-
ワード上Shapeの位置情報を統一基準で取得したい
Visual Basic(VBA)
-
-
4
エクセルマクロでワードの一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける
Visual Basic(VBA)
-
5
ワードマクロで画像を選択する方法
Word(ワード)
-
6
wordのマクロで縮小して貼り付ける方法を教えてください。
Visual Basic(VBA)
-
7
ワードのマクロで段落番号(文字も含む)取得ってできますか
Word(ワード)
-
8
vba クリップボードクリアについて教えてください
その他(プログラミング・Web制作)
-
9
Word版VBで表の任意の箇所を取得する(Cellメソッド)
Visual Basic(VBA)
-
10
WORDマクロで特定文字から別文字までを範囲選択したい
Word(ワード)
-
11
WORD ヘッダー、セクションの画像操作をVBA で解決したいです。お願いします。
Word(ワード)
-
12
Wordのマクロでクリップボードの内容を取得する方法
Visual Basic(VBA)
-
13
VBAでセルを指定した画像のコピー&ペーストを繰り返したい
Excel(エクセル)
-
14
Word VBA。各マクロの間に待ち時間を指定するには?
Word(ワード)
-
15
VBSでワードに画像を貼り付ける
Visual Basic(VBA)
-
16
[ EXCEL VBA ] 図形を読み込む順番を制御するには?
Visual Basic(VBA)
-
17
Word のVBAについて初心者なのですが、質問があります。
Word(ワード)
-
18
PDFファイルをコピーしてエクセルブックにはりつけるVBA
Excel(エクセル)
-
19
エクセルのVBAでクリップボードにコピーした画像をpng(or jpg or bmp)保存したい
Visual Basic(VBA)
-
20
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
指定範囲内で図形等を削除する...
-
エクセルで図形やワードアート...
-
Office365 のExcelでオブジェク...
-
Excel組織図を横に展開する方法...
-
Excel に貼り付けた図形が、勝...
-
イラストレーターで複数の線で...
-
ワードで大量の図形を一括でグ...
-
エクセル マクロで、選択してい...
-
EXCEL セルに配置した図形ごと参照
-
jwCAD 登録した図形を呼び出し...
-
図形の特定の色を一括置換する...
-
Excel 図形を移動させると複写...
-
マクロで選択した図形の選択状...
-
word2010 SmartArtで連絡網作...
-
オートシェイプで任意のドーナ...
-
Illustratorで色の変更ができな...
-
JPEG画像をイラストレータの塗...
-
エクセルの図形にハイパーリン...
-
エクセルで図形を一気に消す方法
-
マウスで選択した図形のみVBAで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで図形やワードアート...
-
Office365 のExcelでオブジェク...
-
指定範囲内で図形等を削除する...
-
Excel組織図を横に展開する方法...
-
word2010 SmartArtで連絡網作...
-
Excel に貼り付けた図形が、勝...
-
ワードで大量の図形を一括でグ...
-
Excel 図形を移動させると複写...
-
エクセル マクロで、選択してい...
-
図形の特定の色を一括置換する...
-
オートシェイプで任意のドーナ...
-
パワーポイント(2016)、線を...
-
Illustratorで色の変更ができな...
-
マウスで選択した図形のみVBAで...
-
なぜか同色を指定しているのに...
-
JPEG画像をイラストレータの塗...
-
jwCAD 登録した図形を呼び出し...
-
マクロで選択した図形の選択状...
-
ワードの図形をコピー&ペイス...
-
EXCEL セルに配置した図形ごと参照
おすすめ情報