Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61379 / 76732 ←次へ | 前へ→

【19973】Re:BPM画像の大きさを取得したい
回答  かみちゃん  - 04/11/21(日) 14:00 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>>もしかして、画像を表示せずに、縦横のサイズを取得したいということですか?
>そうなのです。しかも、単位をピクセルでサイズ取得したいのです。

Keinさんが紹介されたページを見ながら、書き換えてみました。
ただし、ピクセルではなくドット単位に取得しています。

Sub Macro1()
 Dim strFileName As Variant
 Dim strFolderName As Variant
 Dim i As Integer, i_Byte As Integer
 Dim b As Byte
 Dim FileSize As Long, x As Long, y As Long '4バイトずつ読み込むので必ずLong型

 Range("A1").Select
 strFileName = Application.GetOpenFilename _
  ("画像ファイル,*.bmp", 1, "画像ファイルを指定して下さい")

 If strFileName = False Then
  Exit Sub
 End If
 i = 2
 strFolderName = Left(strFileName, InStrRev(strFileName, "\")) & "*.bmp"
 strFileName = Dir(strFolderName)
 Do Until strFileName = ""
  Cells(i, 1).Value = strFileName
  '----------------------------------------
  'BMPファイル解析
  '----------------------------------------
  'ファイルを内部で開く
  Open strFileName For Binary As #1
  '1バイトから2バイト読み捨て
  For i_Byte = 1 To 2
   Get #1, , b
  Next
  'ファイルサイズを取得 3バイト目から4バイト(Long型変数で取得)
  Get #1, , FileSize
  '7バイトから12バイト読み捨て
  For i_Byte = 7 To 18
   Get #1, , b
  Next
  'イメージの幅(つまり横のドット数)を取得 19バイト目から4バイト(Long型変数で取得)
  Get #1, , x
  'イメージの高さ(つまり縦のドット数)を取得 23バイト目から4バイト(Long型変数で取得)
  Get #1, , y
  Close #1
  'BMPファイル解析 終了
  
  MsgBox "画像ファイル名 " & strFileName & vbCrLf & _
       "ファイルサイズ " & FileSize & vbCrLf & _
        "縦 " & y & vbCrLf & _
         "横 " & x
  
  strFileName = Dir
  i = i + 1
 Loop
 Range("A1").Select
End Sub

>そして、メッセージボックスではなく、セルに結果(ファイル名・幅・高さ)を表示したいのです。

Msgbox "aaa"

Cells(1,1)="aaa"
のよう感じで書けますので、ご自分で書き直してみてください。

1 hits

【19963】BPM画像の大きさを取得したい kk 04/11/20(土) 17:26 質問
【19964】Re:BPM画像の大きさを取得したい かみちゃん 04/11/20(土) 18:54 回答
【19965】Re:BPM画像の大きさを取得したい kk 04/11/20(土) 19:29 質問
【19966】Re:BPM画像の大きさを取得したい かみちゃん 04/11/20(土) 20:22 回答
【19967】Re:BPM画像の大きさを取得したい kk 04/11/20(土) 20:50 質問
【19968】Re:BPM画像の大きさを取得したい Kein 04/11/21(日) 0:45 発言
【19971】Re:BPM画像の大きさを取得したい ぎこ 04/11/21(日) 13:30 回答
【19972】Re:BPM画像の大きさを取得したい ぎこ 04/11/21(日) 13:38 発言
【19973】Re:BPM画像の大きさを取得したい かみちゃん 04/11/21(日) 14:00 回答
【19977】Re:BPM画像の大きさを取得したい ぎこ 04/11/21(日) 19:16 発言
【19984】Re:BPM画像の大きさを取得したい kk 04/11/22(月) 9:55 お礼

61379 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free