' [288.xls]



' [Module1] のコード
'★★☆　ワークシートの一部を画像にする　☆★★

Option Explicit

Sub start()
Dim RetVal
    
    'CopyPicture メソッドは選択範囲をクリップボードへ
    'ピクチャ (画像) としてコピーします
    [A1:N11].CopyPicture Format:=xlBitmap
    
    '新ブック挿入
    Workbooks.Add
    
    '新ブックに今取り込んだワークシートの一部の画像を貼り付け
    ActiveSheet.Paste [A2]
    
    [C1] = "↓これは新ブックに貼り付けられた画像です、選択、移動可能です"
    
    'クリップボードをアクティブにして起動表示します
    RetVal = Shell("CLIPBRD.EXE", 1)

End Sub