【vbs】 画像ファイルの大きさを測定

画像ファイルの大きさを知りたいときに、画像にマウスをあてて右クリックをすれば知ることはできますが、今回はvbsを使用して画像の大きさを知ることができるソースを載せたいと思います。
※下のソースをコピーして、メモ帳を開きコピー後、任意の名前で保存してください。
※ 例) Ptest.vbs

-------------------------------------------------------------------
Option Explicit

Dim objPic

'大きさを測りたい画像を設定
'Cドライブのtestフォルダ内に「P1.jpg」という画像がある場合
Set objPic = LoadPicture("C:\test\P1.jpg")

'メッセージとして出力
WScript.Echo "【種類】 " & TypeName(objPic)

WScript.Echo "【大きさ】 " & _
"幅:" & CLng(CLng(objPic.Width) * 567 / 15000) & _
" x " & _
"高さ:" & CLng(CLng(objPic.Height) * 567 / 15000)

Set objPic = Nothing
-------------------------------------------------------------------

うまくいきましたでしょうか?

↓ よろしければ、下記ボタンをポチりとお願いしますm(_ _)m





テーマ : プログラミング
ジャンル : コンピュータ

プロフィール

maroon3

Author:maroon3
約15年システム開発を経験後、現在は知的財産に関する仕事をしています。最近子供も生まれ、日々仕事の勉強と子育ての勉強に奮闘しています。
ブログをとおして、皆様のお役に立てる情報を発信できればいいなぁと思っています。

カレンダー
08 | 2017/09 | 10
- - - - - 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
最近の記事
ランキング
リンク
ブロとも申請フォーム

この人とブロともになる

全記事表示リンク

全ての記事を表示する

カテゴリー
おすすめ書籍1

一生モノの株のトリセツ

新品価格
¥2,800から
(2017/11/16 07:38時点)

おすすめ書籍2
おすすめ広告1
おすすめ広告2
訪問者数
月別アーカイブ
免責事項
当ブログで取り上げている情報に関しては 十分に注意を払っていますが、あくまでも私個人が発している情報であり正確さを保障するものではありません。 当ブログに掲載している情報をご利用の際には ご自身の責任と判断でお願いします。 一切責任は負えませんのでご了承ください。
オートリンクネット