|
こんにちは。かみちゃん です。
>BMPファイルのファイル名を取得するところまではできたのですが、BMPの縦横サイズを取得するのがわかりません。
ファイル名を取得できているということなので、次がヒントになりませんか?
これは、特定のファイル名を表示して、そのサイズを取得しています。
Option Explicit
Sub Macro1()
Dim strFileName As Variant
Range("A1").Select
strFileName = Application.GetOpenFilename _
("画像ファイル,*.bmp", 1, "画像ファイルを指定して下さい")
If strFileName = False Then
Exit Sub
End If
ActiveSheet.Pictures.Insert(strFileName).Select
MsgBox "画像ファイル名 " & strFileName & vbCrLf & _
"縦 " & Selection.Height & vbCrLf & _
"横 " & Selection.Width
Range("A1").Select
End Sub
|
|