試行錯誤して色々と試してみましたが、初心者のため苦戦しております。
詳しい方、コードのご教授お願いします。
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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
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
Excel マクロについて
Visual Basic(VBA)
-
7
ユーザーフォームに別シートからデータを反映させたい。
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
Excel VBA ダブルクリックで入力 複数まとめる
Visual Basic(VBA)
-
13
ご教授お願いします。#NUM!が解消されません。
Visual Basic(VBA)
-
14
Excelセルに入力された文字の色を変える方法を教えてください
Visual Basic(VBA)
-
15
ExcelのVBAのことで質問です。 以下のコードを入れ、ボタンを押せば作動させると写真のように画面
Visual Basic(VBA)
-
16
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
17
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
18
エクセルVBAの配列について
Visual Basic(VBA)
-
19
環境依存文字?をEnumで定義したい
Visual Basic(VBA)
-
20
VBEを開くのにコマンド名が「Visual Basic」な理由はなぜ?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
透過PNGが透過されない!!
-
C# Excelファイルへの画像挿入。
-
PHPによる画像の生成による色の...
-
libpngでpng操作がうまくいかない
-
GDI+を使ったビット数とDPIの扱い
-
ckfinderの画像のアップロード先
-
画像の形式
-
HPに画像が表示されてないので...
-
ImageTTFTextで保存すると文字...
-
iphoneで虫眼鏡の作り方
-
「クリックして表示される画像...
-
VBSの「MsgBox」について
-
ファルダに画像をいれておいて...
-
PHP getimagesize();
-
php,mysqlにて画像パス保存/表...
-
OpenGLで描いて画像ファイル出力
-
libpng 24bpp rawをPNGに変換す...
-
【PHP】画像が表示されず「×」...
-
PHP+PostgreSQLを使ってPDFファ...
-
Ajaxで画像表示
マンスリーランキングこのカテゴリの人気マンスリー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】画像が表示されず「×」...
-
画像リストを作りたい
-
GDを使って画像の背景を透過さ...
おすすめ情報