ワードの図形の複製

質問

ワードのオートシェイプなどで作成した図形を複数個一度に複製することはできますか？

回答No.8

elmclose · ベストアンサー

>一つの○をコピーして、それをいっきに７つペーストできるかということです

７つ程度であれば、７回ペーストするのが最も簡単だと思います。
何十個もペーストするのであれば、例えば１０個くらい選択してコピー（私がNo.4で書いた方法）してからペーストすると、ペースト操作の回数が少なくて済み、手間を減らせると思います。

お礼

ありがとうございました。

回答No.7

imogasi

＃６です。図形描画の図形全てなら
Sub test01()
ActiveDocument.Shapes.SelectAll
Selection.Copy
Selection.Paste
End Sub
の方が簡単でした。

回答No.6

imogasi

VBAでは図形描画の図形なら
Sub test01()
For Each s In ActiveDocument.Shapes
s.Select
Selection.Copy
Selection.Paste
Next s
End Sub
でコピーで倍倍に増えます。
他のソフトでは、マウスをドラッグして出る、点線の四角で図形の範囲指定が出来たと思ったが、ワードでは見つけられませんでした。
コピーする図形をShiftキーかCTRLキーを押しながらクリックして選択して
コピーし、その後貼りつけが正解かと思います。
コピーする図形をShiftキーかCTRLキーで選択して実行するなら
Sub test02()
Selection.Copy
Selection.Paste
End Sub
で１セットコピー可能。

回答No.5

marbin

マクロです。
対象の図形を選択した状態
で実行してみてください。

--------------
Sub Macro1()
Selection.Copy
Dim i As Integer
For i = 1 To 5
Selection.Paste
Next i
End Sub

回答No.3

noname#8027

ＣＴＲＬを押しながらクリックしていくと、複数を選択することができますので、その状態で右クリックするとできます。

回答No.4

elmclose

シフトキーを押しながらマウスで図形を選択していくと、図形を複数選択できます。その状態でコピー＆ペーストすれば一度に複製することが可能です。

補足

ありがとうございました。
文章がわかりにくかったようですが、たとえば、一つの○をコピーして、それをいっきに７つペーストできるかということです。やはり、１つずつのペーストのくりかえしをするしかないのでしょうか？

回答No.2

marbin

やったことは無いのですが、マクロ
を使えば一挙に沢山の複製を作成す
ることが可能かと思います。

回答No.1

kazu-gto

コピーしたい図形を全て選択して、コピー、貼り付けで出来ますよ。