No.1ベストアンサー
- 回答日時:
一般機能でできるかどうか知らないのですが、
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
- 回答日時:
No.1です。
なるほど。exangkl さんの方法、いいですね。
Ctrlキーは押したまま
PageDown→V→PageDown→V→連打。
100シートぐらいあっという間ですね。
勉強になります。
No.3
- 回答日時:
回答No2の者です。
少し訂正>6.Sheet2をクリックしCtrl+Vで貼り付けする
>7.Ctrl+PageDownでSheet3(次のシート)へ移動する
>まだ貼り付けたいシートがある場合には6と7を繰り返す。
は、以下に
6.Sheet2をクリック
7.Ctrl+Vで針付けする
8.Ctrl+PageDownで次のシートへ移動する
まだ貼り付けたいシートがある場合には7と8を繰り返す。
です。
あと、手順3ですが、複数シートを選択したい場合には、
・Sheet2をクリックして、Ctrl+Shift+PageDownを押し続けると一気に選択できて便利です。
以上です。
No.2
- 回答日時:
根本の解決になってませんが、効率のいい方法です。
まず、質問にあります一度に複数シートに図形を貼り付ける方法は1さんのようにプログラムを組むくらいしか方法がありません。
ですから、次のようにしてみたら100枚ほどのシートであれば楽だと思います。
~Sheet1の図形をSheet2とSheet3にコピーしたい場合~
1.「図形描画ツールバー」の「図形の調整(R)」をクリックし、「位置あわせ」→「グリッド」にする。
2.Sheet1の図形を選択し、Ctrl+Cでコピーする。
3.Sheet2をクリックし、Shiftキーを押しながらSheet3をクリック(複数シート選択)
4.貼り付けたい位置のセルをクリック
5.Sheet1をクリック(複数シート選択解除)
6.Sheet2をクリックしCtrl+Vで貼り付けする
7.Ctrl+PageDownでSheet3(次のシート)へ移動する
まだ貼り付けたいシートがある場合には6と7を繰り返す。
以上です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Excel(エクセル) シートが違う2枚のエクセルシートにある数値を別シートにコピーしたい(VBA?) 8 2022/03/31 12:24
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
- Word(ワード) ワードアートの袋文字のコピー 1 2023/01/08 16:03
- Visual Basic(VBA) 【部分一致した行を含む8行をシートにコピーする方法】 以下のような作業を行いたいのですが、どなたがコ 1 2022/08/30 16:24
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) 複数のExcelブックのシート1の内容を1つのExcelブックにコピー貼り付けたいのでvbaコードを 7 2023/02/10 23:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルで複数のシートに画像のはりつけ
その他(Microsoft Office)
-
エクセルで別シートの同じ位置にオブジェクトをコピーしたい
その他(Microsoft Office)
-
Excelで全てのシートに一気に列を貼り付けたい
Excel(エクセル)
-
-
4
VBA シート毎に画像挿入
Visual Basic(VBA)
-
5
【VBA】3個の図形をコピーしてSheet2に貼り付けたい
Excel(エクセル)
-
6
エクセルVBA 画像を貼り付けるセル位置を指定する方法
Excel(エクセル)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
エクセルで「白字」を印刷したくないのですが
Excel(エクセル)
-
9
セルの内容の条件に応じて図形の表示をしたりしなかったりする
Excel(エクセル)
-
10
EXCELで複数のシートを同時に印刷範囲の設定する方法【EXCEL2000】
Excel(エクセル)
-
11
Excel)軽いデーターのはずなのに、メチャメチャ重い!
その他(Microsoft Office)
-
12
Excelにて、同じ画像を複数のセルに貼る方法がわからないので教えていただきたいです。
Excel(エクセル)
-
13
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
Accessのテーブルを既存のExcel...
-
エクセルの2つのシートを並び...
-
Excel、Aのシートにあって、Bの...
-
【Excel VBA】データ貼り付け先...
-
【ExcelVBA】マクロの入ったシ...
-
InputBoxに入力した言葉をシー...
-
エクセルで複数のシートに画像...
-
特定の複数のシートに同じ処理...
-
エクセルでシートを追加したと...
-
エクセルのシート連番の振り直し
-
エクセルのシー名を二段表示に...
-
エクセルでリンク貼り付けした...
-
エクセルで、シートの名前を変...
-
ハイパーリンクでジャンプした...
-
(エクセル)Indirect関数で、ハ...
-
Excelのオートフィルター等のリ...
-
エクセル 非表示のシートをハ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
エクセルで複数のシートに画像...
-
ハイパーリンクでジャンプした...
-
ワークシートそのものの色を変...
-
エクセルの2つのシートを並び...
-
【ExcelVBA】マクロの入ったシ...
-
エクセル、特定のシートにパス...
-
エクセルのシート連番の振り直し
-
EXCELの図形(テキストボックス)...
-
特定の複数のシートに同じ処理...
-
【Excel VBA】データ貼り付け先...
-
エクセルのシー名を二段表示に...
-
EXCELの「シートの見出し」のフ...
-
Accessのテーブルを既存のExcel...
-
Wordで差し込み印刷時に表示す...
-
accessへエクセルの複数のシー...
-
エクセル、別のシートの表をポ...
-
指定したシート名以外を非表示...
おすすめ情報