セルの値を取得してイメージの値を設定する方法はありますか？

マイExcelデータ： Cell1には、テキストと画像が含まれています。の値をCell2に設定します。私が試してみてください。セルの値を取得してイメージの値を設定する方法はありますか？

Cell2.Value=Cell1.Value

テキストだけを設定し、このコードは、&設定された画像を取得することはできません。

セルの値を取得してイメージを格納する方法は？ありがとうございます。なしでここ：

Cells(1, 1).Copy 
Cells(2, 1).select 
Activesheet.Paste

編集：

2017-04-25 D T

imageはセルプロパティではありません。挿入すると、別のオブジェクトとして追加されます。セル内の画像によって、適用されている書式設定（アイコン、バーなど）を参照しているかどうかを明示してください。 – ArindamD

写真は値のような細胞内に

このコードをコピーA1からA2へ画像をコピーされていない、セルにワークシートに貼り付けた後、整列されていますselect声明：

Cells(1, 1).Copy 
ActiveSheet.Paste Destination:=Worksheets(1).Cells(2, 1)

編集：1 - ライナーとして（あなた@Darrenに感謝）

Cells(1, 1).Copy Destination:=Worksheets(1).Cells(2, 1)

2017-04-25 11:52:29

'Destination ....'をコピーと同じ行に置くこともできます。 'Cells（1,1）.Copy Destination：=ワークシート（1）.Cells（3,1）' –

あなたがその名前を知っていれば、画像： 'Sheet1.Shapes（"写真1 "）コピー：Sheet1.Cells（3、1）.PasteSpecial' –

このコードを試してみますが、テキストのみをコピーします：aSheet.Cells（iRow_Src、5） .Copy Destination：= oTargetSheet.Cells（iRow、5） –

答えて