Excel VBA質問箱 IV

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

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


61386 / 76732 ←次へ | 前へ→

【19966】Re:BPM画像の大きさを取得したい
回答  かみちゃん  - 04/11/20(土) 20:22 -

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

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

急いでいるのは、わかりますが、どのようにしたら0の値が返ってくるのでしょうか?
提示いただいたコードでは、ただ単にファイル名の一覧を表示するだけのように見えます。
さきほどのコメントのコードは参考にしていただけましたか?

もしかして、画像を表示せずに、縦横のサイズを取得したいということですか?

以下のコードは、画像を表示して、縦横のサイズを取得しています。
ご提示いただいたコードにさきほどのコードを加味して修正しました。
なお、変数名は、半角英数字にしたほうがいいので、変えています。
また、動作は、WindowsXP(HomeEdition) + Excel2002(SP3)で確認済みです。

Option Explicit
Sub Macro1()
 Dim strFileName As Variant
 Dim strFolderName As Variant
 Dim i As Integer

 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
  '画像を表示
  ActiveSheet.Pictures.Insert(strFileName).Select
  MsgBox "画像ファイル名 " & strFileName & vbCrLf & _
       "縦 " & Selection.Height & vbCrLf & _
        "横 " & Selection.Width
  strFileName = Dir
  i = i + 1
 Loop
 Range("A1").Select
End Sub
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 お礼

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