こんにちは。
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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
- Excel(エクセル) Excelのマクロについて教えてください。 4 2022/05/31 14:07
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/01/27 13:15
- Excel(エクセル) [貼り付けオプション]とは? 3 2022/04/17 08:15
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/11 11:47
- Visual Basic(VBA) ExcelのVBAコードについて教えて下さい。 2 2022/06/25 14:04
- Word(ワード) ワードで真ん中に図形を置いたのですが、新しいページを追加したくても、挿入から空白のページを押しても図 1 2022/12/16 22:15
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
【ワード】マクロで画像を選択する
Word(ワード)
-
ワードからエクセルへ貼り付けるマクロ
Excel(エクセル)
-
ワード上Shapeの位置情報を統一基準で取得したい
Visual Basic(VBA)
-
-
4
ワードマクロで画像を選択する方法
Word(ワード)
-
5
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
-
6
WORD VBA オートシェイプにマクロを登録したい
Word(ワード)
-
7
Word VBA 写真 挿入
Word(ワード)
-
8
VBA Shapes コピーと名前
Excel(エクセル)
-
9
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
10
エクセルマクロでワードの一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける
Visual Basic(VBA)
-
11
ワードで画像を自動で挿入する方法
Word(ワード)
-
12
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
13
wordのマクロで縮小して貼り付ける方法を教えてください。
Visual Basic(VBA)
-
14
【VBA】3個の図形をコピーしてSheet2に貼り付けたい
Excel(エクセル)
-
15
Word VBA。各マクロの間に待ち時間を指定するには?
Word(ワード)
-
16
ワードのマクロで段落番号(文字も含む)取得ってできますか
Word(ワード)
-
17
Wordのマクロで選択中の行番号を取得したい
Word(ワード)
-
18
WORD ヘッダー、セクションの画像操作をVBA で解決したいです。お願いします。
Word(ワード)
-
19
Word VBA 表内の図を一括中央揃えにするマク
Word(ワード)
-
20
Wordのマクロでクリップボードの内容を取得する方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで図形やワードアート...
-
指定範囲内で図形等を削除する...
-
word2010 SmartArtで連絡網作...
-
Excel に貼り付けた図形が、勝...
-
Excel組織図を横に展開する方法...
-
Office365 のExcelでオブジェク...
-
マウスで選択した図形のみVBAで...
-
JPEG画像をイラストレータの塗...
-
イラストレーターで複数の線で...
-
パワーポイント(2016)、線を...
-
ExcelのVBAコードについて教え...
-
JWCADについて
-
パワポなどで弾痕のイラストを...
-
Creative Cloudフォトプランで...
-
EXCEL セルに配置した図形ごと参照
-
jwCAD 登録した図形を呼び出し...
-
オートシェイプで任意のドーナ...
-
EXCELでのデータ及び図形...
-
Illustrator CS2で等間隔斜め線...
-
PowerPoint2013で、図形の枠線...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで図形やワードアート...
-
指定範囲内で図形等を削除する...
-
Excel に貼り付けた図形が、勝...
-
Excel組織図を横に展開する方法...
-
Office365 のExcelでオブジェク...
-
word2010 SmartArtで連絡網作...
-
マウスで選択した図形のみVBAで...
-
jwCAD 登録した図形を呼び出し...
-
Creative Cloudフォトプランで...
-
イラストレーターで複数の線で...
-
Excel 図形を移動させると複写...
-
オートシェイプで任意のドーナ...
-
パワーポイント(2016)、線を...
-
ワードの図形をコピー&ペイス...
-
JWCADについて
-
ベクターワークスで線を複写
-
Illustratorで色の変更ができな...
-
PowerPoint2013で、図形の枠線...
-
イラストレーターには“書式のコ...
-
EXCELでのデータ及び図形...
おすすめ情報