Excel VBA質問箱 IV

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

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


61387 / 76732 ←次へ | 前へ→

【19965】Re:BPM画像の大きさを取得したい
質問  kk  - 04/11/20(土) 19:29 -

引用なし
パスワード
   ありがとうございます。
超初心者(今日初めてVBA挑戦しました)なので、本当に何もわからず、参考文書から抜き出して作ったのが以下です。

Sub GETBMP()
  Dim Filename      As String
  Dim i          As Long
  Dim ファイルオープン  As Variant

  ファイルオープン = Application _
    .GetOpenFilename(" (*.bmp), *.bmp")
 
'  Filename = "*.*"
  If ファイルオープン <> False Then
    i = 2
    ファイルオープン = Left(ファイルオープン, InStrRev(ファイルオープン, "\")) & "*.bmp"
    Filename = Dir(ファイルオープン)
'    Do Until ファイルオープン = ""
    Do Until Filename = ""
      Cells(i, 1).Value = Filename
      Filename = Dir
      i = i + 1
    Loop
 
  End If


End Sub

これに、画像の幅と高さをセルに表示するようにプログラムを追加したいのですが、どうやってみても値0が返ってきてしまって、いそいでいるのに出来なくて泣きが入ってます。
すみませんが、よろしくお願いいたします。
0 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 お礼

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