![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
試行錯誤して色々と試してみましたが、初心者のため苦戦しております。
詳しい方、コードのご教授お願いします。
A列にあるファイル名から、他のフォルダ内より該当する画像ファイルを検索し、その画像をO列に画像のみを表示させたいのです。
1. A列にファイル名が入力されています。
2. ファイル名には拡張子.pngが含まれていません。
3. ファイルは特定のフォルダ内のみ探します。 「C:Users¥★★★¥Desktop¥画像」内のみです。
4. ファイルが見つかったら、画像そのものをO列に表示させたい
他に必要な情報があればよろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんばんは
不明点は勝手に解釈した参考例です。
参考例ですので、後はお好きなように変更してください。
Sub Q13644592()
Dim pic, rng As Range
Dim i As Long, spec As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Cells(i, 1)
spec = "C:Users¥★★★¥Desktop¥画像\" & rng.Text & ".png"
If Dir(spec) <> "" Then
Set pic = ActiveSheet.Shapes.AddPicture(fileName:=spec, _
LinkToFile:=False, SaveWithDocument:=True, _
Left:=0, Top:=0, Width:=-1, Height:=-1)
pic.LockAspectRatio = True
Set rng = rng.Offset(, 14)
pic.Width = rng.Width
If pic.Height > rng.Height Then pic.Height = rng.Height
pic.Top = rng.Top + (rng.Height - pic.Height) / 2
pic.Left = rng.Left + (rng.Width - pic.Width) / 2
End If
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 画像編集・動画編集・音楽編集 Win10背景について 1 2021/12/15 18:29
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) EXCLE VBA シートクリックしたら該当シートコピー 1 2021/11/11 16:37
- Visual Basic(VBA) EXCEL VBA シート比較し〇×判定 1 2021/11/19 11:49
- その他(Microsoft Office) エクセルをPDFに変換できません 1 2021/11/07 19:29
- Excel(エクセル) VGAを利用した画像表示について 4 2021/11/03 23:07
- Windows 10 画像を選択する際や保存などフォルダにあるpngファイルがきちんとサムネイル表示されない 1 2021/12/30 23:47
- Visual Basic(VBA) フォルダー名の検索で開くことは出来たが開いた先のファイルからvlookupで抽出する方法が不明 1 2021/12/09 18:30
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- その他(Microsoft Office) エクセルの数式で教えてください。 3 2021/12/21 09:20
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
Excel マクロについて
Visual Basic(VBA)
-
-
4
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
5
VBA コード
Visual Basic(VBA)
-
6
Cellsのコードが打てません
Visual Basic(VBA)
-
7
VBAを教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 s
Visual Basic(VBA)
-
8
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
9
月ごとに作成している日報ファイルを、VBAでコピーし日付ごとのシートにしたい
Visual Basic(VBA)
-
10
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
11
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
12
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
13
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
14
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
15
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
16
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
17
エクセルVBAの配列について
Visual Basic(VBA)
-
18
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
-
19
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
Visual Basic(VBA)
-
20
Excelに保存されているユーザー情報から別ブックの複数シートへ自動転記されるようにしたいです。 ユ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
透過PNGが透過されない!!
-
VBSの「MsgBox」について
-
改行コードのカウント
-
ChatGPTに作らせたい Excel VBA
-
libpngでpng操作がうまくいかない
-
VBAでJPGサイズ変更
-
GDを使って画像の背景を透過さ...
-
MatlabによるRGB空間からYUV空...
-
PHPのサムネイル生成について(...
-
Illustratorで文字と画像を流し...
-
jar化すると画像が消える
-
PHP MySQLに画像を直接保存
-
Webカメラように頻繁に画像を更...
-
PHPでHTMLソースの<img src="★"...
-
ImageTTFTextで保存すると文字...
-
画像をアップロードするプログラム
-
【PHP】画像が表示されず「×」...
-
画像をひとつにするには・・・?
-
ドラッグアンドドロップで画像...
-
手作業で埋め込んだ、UserForm1...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBSの「MsgBox」について
-
VBAでJPGサイズ変更
-
拡張子php画像をjpg画像等に変...
-
透過PNGが透過されない!!
-
SQLiteに画像を格納したい
-
アップロード画像数でCSSを分け...
-
PythonのTkinter詳しい方へ。画...
-
ビットマップ画像を読み込むプ...
-
Illustratorで文字と画像を流し...
-
C# Excelファイルへの画像挿入。
-
php,mysqlにて画像パス保存/表...
-
pictureboxに表示した画像のフ...
-
OpenGLで描いて画像ファイル出力
-
ListViewコントロールでサムネ...
-
BLOBデーターの画像の表示方法...
-
「imagejpeg」(GD)で作成した...
-
【PHP】画像が表示されず「×」...
-
PHP MySQLに画像を直接保存
-
GDを使って画像の背景を透過さ...
-
★PHP★画像アップロードの際に余...
おすすめ情報