![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
大げさな方法。
なんとか2K文字をクリア。ご参考まで。Private Type GdiplusStartupInput
GdiplusVersion As Long
DebugEventCallback As Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Private Declare Function GdipCreateBitmapFromFile Lib "Gdiplus" (FileName As Any, bitmap As Long) As Long
Private Declare Function GdipDisposeImage Lib "Gdiplus" (ByVal Image As Long) As Long
Private Declare Function GdipGetImageHeight Lib "Gdiplus" (ByVal Image As Long, Height As Long) As Long
Private Declare Function GdipGetImageWidth Lib "Gdiplus" (ByVal Image As Long, Width As Long) As Long
Private Declare Sub GdiplusShutdown Lib "Gdiplus" (ByVal token As Long)
Private Declare Function GdiplusStartup Lib "Gdiplus" (token As Long, pInput As GdiplusStartupInput, pOutput As Any) As Long
Private Declare Function GdipGetImageHorizontalResolution Lib "Gdiplus" (ByVal Image As Long, resolution As Single) As Long
Private Declare Function GdipGetImageVerticalResolution Lib "Gdiplus" (ByVal Image As Long, resolution As Single) As Long
Sub test()
Dim udtInput As GdiplusStartupInput
Dim lngToken As Long, lngStatus As Long
Dim pSrcBmp As Long, pDstBmp As Long
Dim lngWidth As Long, lngHeight As Long
Dim horResln As Single, verResln As Single
Dim srcPath As String
srcPath = "C:\Documents and Settings\????????\デスクトップ\hoge.tif"
udtInput.GdiplusVersion = 1
If GdiplusStartup(lngToken, udtInput, ByVal 0&) <> 0 Then
Exit Sub
End If
If GdipCreateBitmapFromFile(ByVal StrPtr(srcPath), pSrcBmp) <> 0 Then
GdiplusShutdown lngToken
Exit Sub
End If
GdipGetImageWidth pSrcBmp, lngWidth
GdipGetImageHeight pSrcBmp, lngHeight
Debug.Print lngWidth, lngHeight
GdipGetImageHorizontalResolution pSrcBmp, horResln
GdipGetImageVerticalResolution pSrcBmp, verResln
Debug.Print horResln, verResln
GdipDisposeImage pSrcBmp
GdiplusShutdown lngToken
End Sub
参考URL:http://arkham46.developpez.com/articles/office/c …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
解像度をまとめて下げる
-
デジカメ画像をとりこむ時の解像度
-
ワードA3で作成したファイルをA...
-
excelの列幅高さが勝手に変わる...
-
邪魔なwww.softonic.jpの消し方...
-
フォトショップで画像を貼り付...
-
Windowsで大量の画像サイズを半...
-
WordのA3で作成されたファイル...
-
ワード B4→A4に縮小印刷す...
-
Excelの行列幅をcmで表示したい
-
Excelで連続するデータの個数を...
-
フォトショップで切って分ける...
-
Excel 列幅のピクセル数につい...
-
影を両サイド(全方位)につけ...
-
PhotoShopでレイヤーマスクがう...
-
図の濃淡を調節するには。
-
フォトショップ(グレースケー...
-
卒業証書をコンビニでA4コピー...
-
エクセルのセル(マス目)を正...
-
JPG画像のレイヤー分解?編集?...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードに貼付けてある画像のサ...
-
解像度をまとめて下げる
-
Windows作成Excel文書添付JPEG...
-
PowerPointに貼り付けた画像の...
-
ACCESS VBA TIFF...
-
final cut proのmotion(2.1.2...
-
分解能から解像度を求めること...
-
イラレで埋め込んだ画像の解像...
-
デジカメ画像をとりこむ時の解像度
-
画像の解像度の設定を変えるには
-
背景画像の固定(FRONT ...
-
excelの列幅高さが勝手に変わる...
-
ワードA3で作成したファイルをA...
-
邪魔なwww.softonic.jpの消し方...
-
ワード B4→A4に縮小印刷す...
-
WordのA3で作成されたファイル...
-
フォトショップで画像を貼り付...
-
Excelで連続するデータの個数を...
-
フォトショップで切って分ける...
-
アンドロイドタブレットを使っ...
おすすめ情報