excelrangeをダウンロードして有難うございました。  Excel 97 VBAによるサンプルコードです。  エクセルの選択領域に対しては計算をしたい、画像を自由に貼りつけたい等の希望を持っている人が多いと思います。  このルーチンは選択領域に対する処理を記述した関数とサブルーチンの例と画像貼りつけプログラムからなります。  解凍するとrange.xlsとolepaste.xlsが現れます。 range.xls '原作者: Masami Koguchi 1996.09.23 (MON) Ver 1.02 ' (1998.05.30 functionの追加とExcel 97に対応させた Ver 1.03) 'Email koguchi@sf.airnet.ne.jp http://www.sf.airnet.ne.jp/koguchi/ ' 'Excelの選択領域に各種処理を行うサブルーチンおよび関数 ' 'このマクロは改変・再配布可能のフリーウェアです。 'このプログラムを使用して起きた不都合については保証しません。各自の責任で使用して下さい。 ' 'サブルーチンについて '表示 - ツールバー - ユーザー設定 − コマンド -新しいメニューのドラッグでメニューバーに登録できます 'ツール−メニューエディタでマクロをメニューバーに登録できます。(Excel 95) '図形描画ツールバーのボタンにマクロを登録しても実行できます。(Excel 95) '処理中に画面を書き換えないと高速に処理することができます。 'Application.ScreenUpdating = False '非表示 'Application.ScreenUpdating = True '再表示 '再表示は必ず実行して下さい。 ' olepaste.xls '関数はExcel 97のみ動作します。 '原作者: Masami Koguchi 1998.05.30 (MON) Ver 1.01 ' Excel 97に対応させた 'Email koguchi@sf.airnet.ne.jp http://www.sf.airnet.ne.jp/koguchi/ ' 'Excelの選択領域に画像を貼りつけるサブルーチン ' 'このマクロは改変・再配布可能のフリーウェアです。 'このプログラムを使用して起きた不都合については保証しません。各自の責任で使用して下さい。 ' 'サブルーチンについて '表示 - ツールバー - ユーザー設定 − コマンド -新しいメニューのドラッグでメニューバーに登録できます 'ツール−メニューエディタでマクロをメニューバーに登録できます。(Excel 95) '図形描画ツールバーのボタンにマクロを登録しても実行できます。(Excel 95)