| |
ご返信感謝します。ありがとうございます！m(_ _)m以下、わかりにくい内容に
なり、すいません。回答させていただきます。
1.うまくいかないというのが具体的にどういう状況ですか？
画像を全て貼り付けることは出来たのですが、セルに画像ファイル名を
記載し、その画像を横のセルにはりつけるコードが全く思いつかないということです…。
2.ActiveSheet.Pictures.Insert(myPath.Items.Item.Path + "\" + fileName).Select
>これでエラーになるのですか？
>それとも、意図しないものが貼り付けられるのですか？
いえ、エラーにもなりませんし、意図したものが貼り付けられるわけでもないです。
当初の意図とは裏腹に、画像を全てはりつけるマクロしか、私には思いつきません
でした。。
3.コードを拝見した限りでは、実行時のアクティブセルから下方向に、
無条件にフォルダ内の画像データを貼り付けていますが？
本来は、画像名が記載されたセル領域を特定し、その画像名をトリガーに指定フォルダから
画像データを抽出するのではないですか？で、そのセル領域は、どこからどこまでといった条件があるのではないですか？
はい、仰る通りです。実際には、B列に一定の間隔(B2.B4.B6.B8…)で写真名を記載していきたいです。写真は、だいたい50個ほど存在します。かなりコードを修正しないといけませんよね（ ; ; ）
|
|
きょん
- 12/2/7(火) 22:57 -
