はじめまして、
タイトルの通り、エクセルのマクロでコンタクトシートを作成したく質問しました。
コンタクトシートの内容としては、
●フォルダ内にある画像(今回の場合はPNG)すべてを一覧リスト化する(A列)。
●A列に配置された画像の情報(ファイル名、画像サイズ等)をB列以降に表示。
の以上がやりたい事です。
A列 B列 C列
1 画像 ファイル名 画像サイズ
2 画像 ファイル名 画像サイズ
3 画像 ファイル名 画像サイズ
・
・
・
と、続く様な表示にしたいです。
できれば、
A列の画像は、セルにあわせてしまうと小さく表示されてしまうようなので、
・元の画像の50%などといったように表示される?
・またはセルのサイズの最大値(50px x 50px)を固定する?
のようになると、とてもありがたいです。
他の質問等を探してみましたが、
photoshopでのコンタクトシートは求めているものと違いました。
また、エクセル等での回答がありましたが、画像のみの表示でしたので、
上記の様な事が1度にできればと思い、ココに質問させていただきました。
知識レベルとしては、
マクロ初心者です。
どうか みなさんの知識をお借りしたいと思いますので、
よろしくお願いいたします。
pc環境:
windows XP
Excel 2000
No.1ベストアンサー
- 回答日時:
Sub Pict_Addは、A列にPNG画像、B列にファイル名、C列に画像サイズ、D列に画像作成日 を表示させるサンプルです。
以下は、標準モジュールにコピペしてください。
下記マクロを実装したエクセルのファイルは、必ずPNG画像を置いてあるフォルダーに保存してください。
保存してから実行してください。
Sub Pict_Deleteは、表示されたデータを消去するマクロです。
Sub Pict_Add()
Dim myPic As Shape, myC As Range, i As Long
Cells.RowHeight = 50
Columns(1).ColumnWidth = 8.38
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.SearchSubFolders = False
.Filename = "*.png"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Set myC = ActiveSheet.Range("A" & i)
Set myPic = ActiveSheet.Shapes.AddPicture _
(.FoundFiles(i), msoTrue, msoFalse, myC.Left, myC.Top, myC.Width, myC.Height)
myC.Offset(0, 1).Value = Dir(.FoundFiles(i))
myC.Offset(0, 2).Value = FileLen(.FoundFiles(i))
myC.Offset(0, 3).Value = FileDateTime(.FoundFiles(i))
Next i
End If
End With
Rows(i & ":" & Rows.Count).AutoFit
Columns("B:D").EntireColumn.AutoFit
End Sub
Sub Pict_Delete()
Dim myPic As Shape
For Each myPic In ActiveSheet.Shapes
If myPic.Type = msoLinkedPicture Then
myPic.Delete
End If
Next
Columns("B:D").ClearContents
End Sub
merlionXX さま
回答ありがとうございます。
このマクロを実行したトコロ、問題なく、思い通りのエクセルシートが出来上がりました。
スマートな回答ありがとうございます。
この回答を実行するタイミングが遅くなり、返事が遅くなって申し訳ありませんでした。
また、質問を投稿した際に、ご縁があればまたよろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル、画像ファイル名の書かれたセル(複数個所)に画像を一括で表示させる方法 1 2023/04/19 00:19
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Excel(エクセル) ある数値に対して、値を返す数式についてです 2 2022/09/13 22:06
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
- C言語・C++・C# このプログラミング誰か教えてくれませんか 1 2022/06/02 15:27
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
- Excel(エクセル) エクセル VBA セルの結合 2 2022/09/07 11:48
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ImageMagickでgif画像の一部が...
-
Pythonでgif画像が上手く作れない
-
こんなことてしますか??
-
C#で画像を他の画像に貼り付け...
-
UWSC 画像判定と条件分岐について
-
Leafletで画像をon、offさせる...
-
UWSCの色判定
-
PowerPoint VBA で画像の鮮明度...
-
uwscについての質問です。 画面...
-
UWSCでループ処理がうまくいき...
-
画像比較
-
uwcs のマクロで画像認識をして...
-
画像のバックを透明にする方法を
-
背景画像の繰り返しについて
-
uwscの画像認識に失敗します。
-
ActionScriptで画像のフェード...
-
【EXCEL VBA】ダブルクリックで...
-
UWSCを使って画像リンクをクリ...
-
PCは表示されるがスマホでは画...
-
フラッシュでjpg画像の背景を透...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【EXCEL VBA】ダブルクリックで...
-
こんなことてしますか??
-
Pythonでgif画像が上手く作れない
-
Excel ユーザーフォームで表示...
-
VBA シート毎に画像挿入
-
生成AI画像について
-
EXCEL VBA 複数のImageコントロ...
-
HTMLで画像をポップアップで表...
-
UWSCの色判定
-
UWSC 画像判定と条件分岐について
-
jQuery . プログラミング 助け...
-
VBAのユーザーフォームのイメー...
-
jqueryスライダーを2段でスライ...
-
vb.net 画像の透過について
-
【WPF】画像の切り替え
-
背景画像の繰り返しについて
-
「using Windows」でエラーが出る
-
画像処理したBitmapをピクチャ...
-
スマホでサイトの画像を長押し→...
-
UWSC 画像認識で条件分岐
おすすめ情報