エクセル2003で、複数のシートに一度に図を貼り付けたい

質問

エクセル2003でオートシェイプや直線などで組み合わせた図を作りました。
文字列も含まれて居ます。
それを1つのブック内のシート100枚ほどにコピーしたいと思っています。
シートすべてを作業グループにして貼り付けたところ、文字列はすべてのシートにコピーされましたが
図形は貼り付けられていません。
どうしたらよいでしょうか？
宜しくお願い致します。

回答No.1

n_na_tto · ベストアンサー

一般機能でできるかどうか知らないのですが、
VBAだと以下のコードになるのではないでしょうか？
最初のシート上のすべての図形を
2番目以降のシートに貼り付けます。

Sub test()
Dim i As Long
Dim Shp As Shape
Dim myLeft As Single, myTop As Single
With ActiveWorkbook.Worksheets
　For Each Shp In .Item(1).Shapes
　　With Shp
　　　myLeft = .Left
　　　myTop = .Top
　　　.Copy '最初のシートの図形を
　　End With
　　For i = 2 To .Count
　　　With .Item(i)
　　　　.Paste '2番目以降のシートに貼り付け
　　　　With .Shapes
　　　　　With .Item(.Count)
　　　　　　.Left = myLeft
　　　　　　.Top = myTop
　　　　　End With
　　　　End With
　　　End With
　　Next i
　Next
End With
End Sub

お礼

御礼が遅くなり大変申し訳ありません。
助かりました。
ありがとうございました。

回答No.4

n_na_tto

No.1です。
なるほど。exangkl さんの方法、いいですね。
Ctrlキーは押したまま
PageDown→V→PageDown→V→連打。
100シートぐらいあっという間ですね。
勉強になります。

お礼

お忙しい中、早くにご回答いただきまして
本当に助かりました。
ありがとうございました。

回答No.3

exangkl

回答No2の者です。少し訂正

＞６．Sheet2をクリックしCtrl+Vで貼り付けする

＞７．Ctrl+PageDownでSheet3（次のシート）へ移動する

＞まだ貼り付けたいシートがある場合には６と７を繰り返す。

は、以下に

６．Sheet2をクリック
７．Ctrl+Vで針付けする
８．Ctrl+PageDownで次のシートへ移動する
まだ貼り付けたいシートがある場合には７と８を繰り返す。

です。

あと、手順３ですが、複数シートを選択したい場合には、

・Sheet2をクリックして、Ctrl+Shift+PageDownを押し続けると一気に選択できて便利です。

以上です。

お礼

ご丁寧に説明していただき、大変勉強になりました。
ありがとうございました。

回答No.2

exangkl

根本の解決になってませんが、効率のいい方法です。

まず、質問にあります一度に複数シートに図形を貼り付ける方法は１さんのようにプログラムを組むくらいしか方法がありません。

ですから、次のようにしてみたら100枚ほどのシートであれば楽だと思います。

～Sheet1の図形をSheet2とSheet3にコピーしたい場合～

１．「図形描画ツールバー」の「図形の調整(R)」をクリックし、「位置あわせ」→「グリッド」にする。

２．Sheet1の図形を選択し、Ctrl+Cでコピーする。

３．Sheet2をクリックし、Shiftキーを押しながらSheet3をクリック（複数シート選択）

４．貼り付けたい位置のセルをクリック

５．Sheet1をクリック（複数シート選択解除）

６．Sheet2をクリックしCtrl+Vで貼り付けする

７．Ctrl+PageDownでSheet3（次のシート）へ移動する

まだ貼り付けたいシートがある場合には６と７を繰り返す。

以上です。

お礼

御礼が遅くなり大変申し訳ありません。
助かりました。
ありがとうございました。