| |
いつも大変お世話になっております。
指定した画像をエクセルに貼り付けるプログラムを教えてください。
以下のような処理ができるマクロを作成したいと思います。
何卒よろしくお願いいたします。
1.画像が入ったデスクトップ上のフォルダをよみにいく。
' フォルダ選択画面を表示
Set shell = CreateObject("Shell.Application")
Set myPath = shell.BrowseForFolder(&O0, "フォルダを選んでください", &H1 + &H10, "D:\")
Set shell = Nothing
2.この中には、撮影した画像が大量に入っています。この中から必要な写真のみエクセルへ貼り付けたいと思います。エクセルのセルに必要な写真名（100.jpgなら100と記載）を記入して、その画像を貼り付けます。画像を記載するセル番号や、写真の貼り付け先は以下のようにしたいと思います。
写真名を記載するセル番号 写真の左上のセル番号 写真の大きさ指定
・J3 ・・・・・・・・・・・・・J10・・・・・・・・・・・・3行〜18行
・J30・・・・・・・・・・・・・J30・・・・・・・・・・・・23行〜38行
・J50・・・・・・・・・・・・・J50・・・・・・・・・・・・43行〜58行
・J70・・・・・・・・・・・・・J70・・・・・・・・・・・・63行〜78行
・J90・・・・・・・・・・・・・J90・・・・・・・・・・・・83行〜98行
※写真の大きさ指定は、行方向へは上記のように指定しますが、A列B列など、列方向へは指定しません。縦横比は固定したいと思います。以上のようなマクロはできますでしょうか？
お手数ですが、マクロを始めたばかりで、画像をすべて貼り付けるマクロしか作成できませんでした・・。お手数ですがお力をお貸しくだされば幸いです。何卒よろしくお願いいたします。
|
|
ようちゃん
- 12/2/9(木) 15:50 -
