|
こんにちは。かみちゃん です。
>これに、画像の幅と高さをセルに表示するようにプログラムを追加したいのですが、どうやってみても値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
|
|