No.1ベストアンサー
- 回答日時:
Sub GetImageSize(ByVal f, ByRef x, ByRef y)
Dim p
Set p = LoadPicture(f)
x = CLng(CDbl(p.Width) * 24 / 635)
y = CLng(CDbl(p.Height) * 24 / 635)
Set p = Nothing
End Sub
Sub main()
Dim FSO As New FileSystemObject
Dim FLD As Folder
Dim FLE As File
Dim FF As File
Dim x As Long
Dim y As Long
Set FLD = FSO.GetFolder("フォルダー名")
For Each FF In FLD.Files
Call GetImageSize(FF, x, y)
MsgBox FF.Name & ":" & x & "×" & y
Next FF
End Sub
で出来ます。
ただし、フォルダーに画像以外のファイルがあるとこけます。
もう一工夫してください
参考URL:http://www.geocities.co.jp/SiliconValley/4334/un …
この回答への補足
お返事が遅くなりすみません。
参考URLありがとう御座います。
まだまだ、初心者なのでLoadPicture関数とは初めて知りました。
補足内容を加えさせて頂きます。
上記の内容で実行すると"Dim FSO As New FileSystemObject"の部分で
『コンパイル エラー:ユーザー定義型は定義されていません。』
と表示が出ます。
どのように解決をしたら良いのでしょうか?
教えて頂けないでしょうか?宜しくお願いします。
No.4
- 回答日時:
<結果を順にExcelに記入したい>
Excel VBAで実行しているのなら、質問するまでも無いことです。
単に cells(行,列).value = 何々 とか
range("A1").value とか
でシートのセルにセットするだけでしょ。
No.3
- 回答日時:
"Scripting.FileSystemObject"を使うときは、
VBE(VisualBasicEditor)の
ツール=>参照設定 を選んで
「Microsoft Scripting Runtime」
にチェックを付けます。
この回答への補足
ありがとう御座います。
ご指導のおかげで画像の大きさが出てきました。
すみません、何度も質問をするのは心苦しいのですが
出てきた画像の大きさを読み取り順にExcelに記入したい
と思っています。
後少し、お知恵を貸して頂けないでしょうか?
宜しくお願い致します。
No.2
- 回答日時:
フォルダの名前を[XYZ]とします。
Dim A,BDim AA
Dim AAA,BBB,CCC,DDD
Dim XXX()
Set AAA = CreateObject("Scripting.FileSystemObject")
Set BBB = AAA.GetFolder("XYZ")
Set CCC=BBB.Files
A=CCC.Count
ReDim XXX(A,2)
B=0
For Each DDD In CCC
AA=DDD.Name
C = InStr(AA, ".JPG") + InStr(AA, ".jpg") +InStr(AA, ".JPEG") + InStr(AA, ".jpeg") +InStr(AA, ".BMP") + InStr(AA, ".bmp")
If C>0 Then
B=B+1
XXX(B,1)=AA
XXX(B,2)=DDD.Size
End If
Next
Bに画像ファイルの個数
XXX(i,1)に画像ファイルの名前
XXX(i,2)に画像ファイルのサイズ
が取得されます。
これをどういう風にOutputするかについてはご自分で
この回答への補足
お教えて頂きありがとう御座います。
補足内容を加えさせて頂きます。
すみません、説明不足で申し訳ございません。
画像サイズとは画像の大きさ(縦何dot x 横何dot)
のことです。
もう一度、お教えて頂けるのなら宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 写真・ビデオ 明日が期限!職務経歴書(EXCEL)に写真添付可能なアプリ。 証明写真でアプリを探しても紙に貼るタイ 2 2022/06/29 17:57
- その他(Microsoft Office) ExcelデータをPDFにして保存するとWordデータに変換されるようになった 10 2023/06/20 09:03
- Visual Basic(VBA) ChatGPTに作らせたい Excel VBA 1 2023/04/05 19:56
- Excel(エクセル) Excel 毎日手作業で時間がかかって、泣きたいです、、、VBAのプロの方、助けてください。。。 3 2022/10/25 04:26
- Visual Basic(VBA) Outlook VBAについて 1 2023/07/10 12:41
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Photoshop(フォトショップ) 写真のサイズ変更 1 2022/08/07 16:00
- Excel(エクセル) iphonからone driveに保存してあるExcelを閲覧すると表示の仕方がちがうデータ 2 2022/12/21 13:51
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel VBA】指定行以降をクリ...
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
”戻り値”が変化したときに、マ...
-
【Excel】指定したセルの名前で...
-
EXCELで変数をペーストしたい
-
VBAでセルをクリックする回...
-
Excel VBA マクロ ある列の最終...
-
VBA コピーして次の値まで貼り...
-
セル色なしの行一括削除
-
【EXCEL VBA】Range("A:A").Fi...
-
Excelで指定した日付から過去の...
-
VBからEXCELのセルの値を取得す...
-
Excel vbaで特定の文字以外が入...
-
指定した条件で行セルを非表示...
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA実行後に元のセルに戻りたい
-
EXCELのVBA-フィルタ抽出後の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel】指定したセルの名前で...
-
Excelで指定した日付から過去の...
-
特定の文字を条件に行挿入とそ...
-
Excel VBA、 別ブックの最終行...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
TODAY()で設定したセルの日付...
-
Excel vbaで特定の文字以外が入...
-
screenupdatingが機能しなくて...
-
DataGridViewの各セル幅を自由...
-
Sub 要具ライフ() ActiveSheet....
-
【EXCEL VBA】Range("A:A").Fi...
-
VBAを使用した時間管理
-
VBAでセルをクリックする回...
-
セル色なしの行一括削除
-
エクセルVBAでコピーして順...
おすすめ情報