Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


128 / 13052 ツリー ←次へ | 前へ→

【78726】ファルダ内の画像を任意のセルに貼り付ける方法 VBA勉強中 17/1/10(火) 17:11 質問[未読]

【78739】Re:ファルダ内の画像を任意のセルに貼り付... VBA勉強中 17/1/11(水) 15:58 発言[未読]
【78741】Re:ファルダ内の画像を任意のセルに貼り付... β 17/1/11(水) 17:32 発言[未読]
【78742】Re:ファルダ内の画像を任意のセルに貼り付... VBA勉強中 17/1/12(木) 10:00 お礼[未読]

【78739】Re:ファルダ内の画像を任意のセルに貼り...
発言  VBA勉強中  - 17/1/11(水) 15:58 -

引用なし
パスワード
   ▼β さん:
ありがとうございます!
読みやすい上にコメントがついているので理解しやすいです
実行してみましたがやはり画像が消えるのみで挿入はされませんでした。

>    fName = Right(Pos(1).Value, 3) & Pos.Offset(1).Value & ".jpg"
pos(1)ですが(1)とはなにを意味するのでしょうか、宣言した変数の最初の1個だから(1)…ということですか?
また、確かにデスクトップ上に"画像フォルダ"を作りそこに画像が入っているのですが挿入されない状態です。一応画像フォルダのプロパティを見てみたら、
C:\Users\*****\Desktop となっていました。tが小文字なのが原因なのかなと思いつつ修正してみましたが変化はありませんでした。

私の言葉足らずのために迷惑をかけてしまって本当にすみません…

【78741】Re:ファルダ内の画像を任意のセルに貼り...
発言  β  - 17/1/11(水) 17:32 -

引用なし
パスワード
   ▼VBA勉強中 さん:

ごめんなさい。

画像ファイル名は 2つの値を - 連結させるんでしたね。
いつの間にか、そこを忘れていました。

fName = Right(Pos(1).Value, 3) & Pos.Offset(1).Value & ".jpg"

これを

fName = Right(Pos(1).Value, 3) & "-" & Pos.Offset(1).Value & ".jpg"

に変更してください。

【78742】Re:ファルダ内の画像を任意のセルに貼り...
お礼  VBA勉強中  - 17/1/12(木) 10:00 -

引用なし
パスワード
   ▼β さん:
無事、当初予定していた意図で動きました!
ありがとうございました!

128 / 13052 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free