|
ありがとうございます。
超初心者(今日初めて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が返ってきてしまって、いそいでいるのに出来なくて泣きが入ってます。
すみませんが、よろしくお願いいたします。
|
|