Application.GetOpenFilena

質問

excelvbaです。

Application.GetOpenFilenameで画像ファイル（.jpg)を読み込んだ時、
幅や高さの調べ方を教えてください。

「読み込んだ画像ファイル」.width
「読み込んだ画像ファイル」.height
とやるのだと思うのですが、
この「読み込んだ画像ファイル」の具体的な書き方が分かりません。

set XXX = yyy
xxx.width
xxx.height
とやるのだと思うのですが。

宜しくお願いします。

回答No.1

keithin · ベストアンサー

＞画像ファイル（.jpg)を読み込んだ時、幅や高さの調べ方

ふつーに読み込んで調べます。

sub macro1()
　dim s as string
　s = application.getopenfilename()
　on error resume next
　with activesheet.pictures.insert(filename:=s)
　　msgbox .width
　　msgbox .height
　end with
end sub

＞excelvbaです。

ご利用のエクセルのバージョンが不明のご相談ですが、マクロを使った画像の取り扱いはエクセルのバージョンに応じて少し違いがある場合があります。ご相談投稿では、普段ご利用のソフトのバージョンまでキチンと明記する事を憶えて下さい。今後のご参考に。

お礼

早速有り難うございました。
また、何時も有り難うございます。
出来ました。

＞キチンと明記する事を
　了解です。
　チャンと書くときもあるのですが、
　意識は薄かったです。
　今後は意識して書くようにします。

お世話になりました。