ＥＸＣＥＬでデータと写真の同時コピーは出来ませんか？

質問

バージョンは2002です。
セルＡ～Ｅにデータが入れてあります。
その横のセルＦに写真が貼ってあります。
マクロでこのデータをシート２へコピーしたいのですが
Ａ～Ｅと同時にＦにある写真も移動する事は出来ませんか？
宜しくお願い致します。

回答No.4

papayuka · ベストアンサー

#2です。

> アクティブセルを含む行をシート２の任意の行(60行目)に張付けて、

用途の説明が無いですが、同じ行に上書きに行くって事なら、Sheet1 は写真付きのリストで、Sheet2 は個別帳票だろうという想像で書きました。
そういう用途だと実行するたびに同じ場所に画像のコピーが重なってしまうので、事前に画像を消しにいってます。（※部分）

Sub Test()
Dim sh As Shape

'シート名、Sheet1を対象にする
If ActiveCell.Parent.Name <> "Sheet1" Then Exit Sub

With Worksheets("Sheet2")

　　'※Sheet2のI3にある画像を削除
　　For Each sh In .Shapes
　　　　If sh.TopLeftCell.Address = "$I$3" Then
　　　　　 sh.Delete
　　　　End If
　　Next sh

　　'Sheet1のアクティブセルを含む行をSheet2のA60にコピー
　　ActiveCell.EntireRow.Copy Destination:=.Range("A60")

　　'Sheet2のF60にある画像を移動してサイズ変更
　　For Each sh In .Shapes
　　　 If sh.TopLeftCell.Address = "$F$60" Then
　　　　　sh.Top = .Range("I3").Top
　　　　　sh.Left = .Range("I3").Left
　　　　　sh.LockAspectRatio = False
　　　　　sh.Height = 127.5
　　　　　sh.Width = 169.5
　　　 End If
　　Next sh

End With

End Sub

お礼

非常にお礼が遅くなってしまい申し訳ありません。
教えて頂いた物を元に思い通りの事ができました。
言葉足らずな所もしっかり意図を汲んでいただけ
感謝の気持ちでイッパイです!!
まだ、製作途中なので試行錯誤ですが頑張ります。
でも、お陰様で重要な部分はクリアです^^
本当にありがとうございました、
宜しければ、また教えて下さいませ m(__)m

回答No.3

imogasi

＞Ｆにある写真も移動する事
２段階ステップになるが
（１）セルの値、書式など
（２）図形など
をそれぞれ、コピー張り付けできる。
（２）の選択は、編集ージャンプーセル選択ーオブジェクトで
できました。
写真のほかに図形１つ貼り付けてテストしましたが１つだけなら、
クリックすればよいかと。
ーー
＞Ｆにある写真
写真、図形はセルのTop,Leftと関連付けて、その位置に表示はできるが、セルF1と写真等は従属的、包含的関係に無い（できない）と思う。
ただセルと大きさを連動させたりはできる。(PlacementのxlMoveAndSizeなど）
図の挿入もセル番地を指定してでは、させてくれない。
VBAで写真側からF1セルを捉える方法は、コードをどこかで見たような気がするが、思い出せないしないとおもう。
このことを理解してない質問が多いが、エクセルの現状はそうだと思う。
F1を指定して、同じ行にあるあの図形という捉え方はできない。
（画面での両者の位置関係を計算するのは別として）

回答No.2

papayuka

行ごとコピーしちゃうとか。

下記はシート名が「Sheet1」の場合にアクティブセルを含む行を 2枚目のシートにコピーします。

Sub Test()
　If ActiveCell.Parent.Name <> "Sheet1" Then Exit Sub
　ActiveCell.EntireRow.Copy Destination:= _
　　　Worksheets(2).Range("A65536").End(xlUp).Offset(1, 0)
End Sub

補足

レスありがとうございます。
画像も持って行けました^^
感激です♪

もし宜しければ…
アクティブセルを含む行をシート２の任意の行(60行目)に張付けて、
張付けたデータの中からＦ60にある写真のサイズを大きく(200pix.150pix)
変更してシート２の"I3"辺りに表示さす方法とかも教えて頂けると
助かります。

めっちゃ甘えてゴメンナサイ。

回答No.1

noname#51444

内容を読むと全部コピーしたいと
いっているように思うのですが
Sheetの移動またはコピーで
Sheetごとコピーすればいいのでは

補足

レスありがとうございます。
シート全部ではなく、１行だけコピーしたいんです。
言葉足らずで申し訳ありませんでしたm(__)m