マクロの編集

２９−７４．指定したセルへ画像を貼り付け ○●● ワークシートに画像を張付ける場合、マニアル操作でメニューから [挿入][図][ファイルから]を選択して画像フェイルを指定して貼り付け その後任意の場所に移動すると共にサイズを変更すれば希望のセルへ 画像を張付けることが出来す。 しかし、ワークシートへ多数の画像を張付ける場合マニアル操作は 面倒であり、下記マクロでセル範囲を指定し簡単に貼り付けることが できます。（本例ではセル範囲は固定になっていますが実際の使用では インプットボックスで行なうとよい）（サンプル掲載「KIgazou1」) Sub Macro1() 'セル範囲 Set scel = Range(Cells(2, 2), Cells(12, 5)) scel.Select x = ActiveCell.Column y = ActiveCell

[mellow_punch]

画像中の色の取得とRGB変換