EXCELでシートからシートへ写真を一括で移動したい

質問

Sheet1に複数の画像と、複数のデータが有ります。
行ごとにA～Cに写真・D～Hに数値データ・I～Nに写真
と言った具合で、今の所は300行程あります。
写真は小さくしてセルの枠に合わせています。

このA～Cの写真とD～HのデータをSheet2に
I～Nの写真をSheet3へ移動して、サイズを大きくして
上段３枚・下段３枚と言う風に並べたいです。

Sheet1で選択する度に自動でSheet2とSheet3に表示
させたいので、写真を移動する前には前回の写真データ
を削除しなくてはなりません。

教えて頂きながら、Sheet1から行単位で切り取って
Sheet2に持って行き、Sheet2で写真３枚を展開して
データを表示して…　という所までは何とか成りま
したが、その後I～Nの写真がSheet2に残ったままで
Sheet3へ持って行けません。どんな風にするのでしょうか？

よろしくご指導お願いします。

回答No.2

papayuka · ベストアンサー

7枚 x 300行 = 2100枚の画像を１ブックで扱うのですか？
画像の量を考えると Excelで管理するのはちと無謀な気がしますが、、、
（いつブックが壊れてもおかしくない状態かも）

例は Sheet2 の AA100～AF100 にある画像をCut&Pasteで Sheet3 に移動させてます。
Sheet3の削除処理は入れてません。
前回も書きましたし、今回も Cut&Paste か Delete かの違い程度ですし。

Sub Test()
Dim sh As Shape
Application.ScreenUpdating = False
With Worksheets("Sheet3")
　For Each sh In Worksheets("Sheet2").Shapes
　　　If sh.TopLeftCell.Row = 100 Then
　　　　Select Case sh.TopLeftCell.Column
　　　　　Case 27: sh.Cut: .Range("B10").PasteSpecial
　　　　　Case 28: sh.Cut: .Range("C11").PasteSpecial
　　　　　Case 29: sh.Cut: .Range("D12").PasteSpecial
　　　　　Case 30: sh.Cut: .Range("E13").PasteSpecial
　　　　　Case 31: sh.Cut: .Range("F14").PasteSpecial
　　　　　Case 32: sh.Cut: .Range("G15").PasteSpecial
　　　　End Select
　　　End If
　Next sh
End With
Application.ScreenUpdating = True
End Sub

お礼

丁寧に教えて頂きながら、長らくお礼も言わずに申し訳ありませんでした。
その後、必死でEXCELいじってまして、何とか思うような物ができました。
日数もかなり経ち、そのままログインすることも無く、お礼を言うのを
忘れてしまっていた次第です。
本当にごめんなさい。そして、ありがとうございました。

回答No.1

imogasi

質問の表現で何をしようとしているか、質問文からは判らない。
補足してください。自分だけ判っててもだめです。
（A)＞Sheet1で選択する度に自動で・・
（B)＞データを表示して…　という所までは何とか成りましたが、
（A)はSheet1の例えば第3行をクリックすると＝＞
＞（C)A～Cの写真とD～HのデータをSheet2にI～Nの写真をSheet3へ移動して、
だとSheet1には何が残っているの。
ーー
（A)の仕組みを作るのが質問の趣旨か（Sheet1のある行をクリック
　　したら、XXするというような。VBA向き問題）
（C)のデータ・写真の移動が趣旨か
　　完成後には
　　　Sheet2には「写真とデータ」
　　　Sheet3(には「写真のみ？」になる？
　　キー項目はそれぞれあるの。行番号対応で行くの？。
ーー
本件は
（X)手動操作の仕方の質問か
（ｙ）VBAか何かの質問か
ーー
過去にした質問はあるの？
＞教えて頂きながら
あれば、参考に、番号を書いておいたほうが、良いと思う。

補足

レスありがとうございます。
具体的に書き直したつもりですが、まだ意味不明でしたら申し訳ありません。
最初の質問の列や行はスルーでお願いします m(__)m

Sheet1に部員全員のデータを表示します。

1行目にはフォームのボタンを置いてます。

2行目A列には名前
2行目B列C列には写真
2行目D列～住所(1)・住所(2)・住所(3)・Tel・fax・携帯・等々続きます…
2行目AA列からAF列まで写真　と言う様に2行目は見出しです。

3行目からそれぞれに個人のデータが入っています。
そしてボタンに登録した『貼付マクロ』で以下の処理をさせます。

Sheet1のActiveCellを含む行を写真も含めてSheet2の100行目へcopyして
(直接Sheet1からSheet2の任意の場所へ持って行ければもっと良いんですけどね^^;)
Sheet2の1行目から40行目辺りのscrollしなくてもモニターで見れる部分に
個人別データとして100行目のデータを表示させ、移動した写真のB列100行目と
C列100行目の写真は寸法を拡大して、R10とA20付近に表示させました。

Sheet1に戻って見たいデータ行をActiveにして『貼付マクロ』ボタンを押せば
前回表示されていた写真を削除して、同じ動作を繰り返します。

これでSheet1が全員のデータで、Sheet2で個人別のデータを見やすく出来ました。

ココからが質問なのですが、Sheet2のAA100～AF100に残っている写真を
Sheet3の任意の場所に表示させたいのですが、この処理を前出の処理と同時にする
為、『貼付けマクロ』にどの様に書き加えたら良いでしょうか？

Sheet1からSheet2へcopyして今度はSheet3へ切り取ってもって行く…と言う処理です。

そんな事しなくても、Sheet1のActiveCellのAからZをSheet2へ
AA～AFをSheet3へ…という風に出来ると一番いいのですが…