試行錯誤して色々と試してみましたが、初心者のため苦戦しております。
詳しい方、コードのご教授お願いします。
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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
VBA コード
Visual Basic(VBA)
-
-
4
Cellsのコードが打てません
Visual Basic(VBA)
-
5
csvファイルを列数ごとに分割するExcelマクロが書けずに困っています
Visual Basic(VBA)
-
6
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
7
Excel マクロについて
Visual Basic(VBA)
-
8
VBAを教えていただきたいです。 添付のような「data sheet」があります。 他に、「集計 s
Visual Basic(VBA)
-
9
VBA 二つのブックをうまく扱えないでいます
Visual Basic(VBA)
-
10
Excel VBAマクロをマスターするのに、どれ位時間掛かりますか?
Visual Basic(VBA)
-
11
月ごとに作成している日報ファイルを、VBAでコピーし日付ごとのシートにしたい
Visual Basic(VBA)
-
12
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
13
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
14
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
15
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
16
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
17
エクセルVBAの配列について
Visual Basic(VBA)
-
18
select case について
Visual Basic(VBA)
-
19
自動VBAマクロって会社の中で禁止なんですか?
Visual Basic(VBA)
-
20
環境依存文字?をEnumで定義したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBSの「MsgBox」について
-
画像リストを作りたい
-
BLOBデーターの画像の表示方法...
-
pictureboxに表示した画像のフ...
-
「imagejpeg」(GD)で作成した...
-
透過PNGが透過されない!!
-
画像が存在しない時の 「×」 表...
-
PythonのTkinter詳しい方へ。画...
-
php,mysqlにて画像パス保存/表...
-
PHPで吐き出した画像にリンクを...
-
VBAについて教えてください
-
ImageTTFTextで保存すると文字...
-
例えば、掲示板(bbs)モジュール...
-
画像読み込みとランダム表示に...
-
PHP MySQLに画像を直接保存
-
ListViewコントロールでサムネ...
-
ビットマップ画像を読み込むプ...
-
フォントの色を変えるには?
-
onedrive にexcelファイルをア...
-
PHPのif文でその処理を途中で抜...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBSの「MsgBox」について
-
拡張子php画像をjpg画像等に変...
-
透過PNGが透過されない!!
-
アップロード画像数でCSSを分け...
-
imageフォルダに、画像をリサイ...
-
VBAでJPGサイズ変更
-
Illustratorで文字と画像を流し...
-
VBAのコードを教えてください
-
C# Excelファイルへの画像挿入。
-
php,mysqlにて画像パス保存/表...
-
GDI+を使ったビット数とDPIの扱い
-
SQLiteに画像を格納したい
-
ListViewコントロールでサムネ...
-
★PHP?★画像を縦横比を変えずに...
-
ビットマップ画像を読み込むプ...
-
phpで画像がどうしても文字化け...
-
PHPで吐き出した画像にリンクを...
-
phpMyAdminに画像を保存できない
-
OpenGLで描いて画像ファイル出力
-
手作業で埋め込んだ、UserForm1...
おすすめ情報