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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
- Access(アクセス) Access VBA を利用して、フォルダ内のファイルの名称を変更したい 1 2023/08/03 08:27
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- C言語・C++・C# このプログラミング誰か教えてくれませんか 1 2022/06/02 15:27
- Access(アクセス) CSVファイルの「0落ち」にVBA 6 2023/02/02 15:27
- Excel(エクセル) Excel 毎日手作業で時間がかかって、泣きたいです、、、VBAのプロの方、助けてください。。。 3 2022/10/25 04:26
- その他(プログラミング・Web制作) 【GAS】Gmail本文をブラウザ表示された状態でPDFにしたいです 1 2022/12/12 09:54
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBの色を変えるにはどうしたら...
-
Excel(M365) Vlookup/セル反転(...
-
VBA 別ブックから条件に合うも...
-
Excel 範囲指定スクショについ...
-
エクセルVBAコードで教えて下さ...
-
VBAコードについて教えてくださ...
-
【ExcelVBA】インデックスが有...
-
VBA ユーザーフォーム ボタンク...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Outlookの「受信日時」「件名」...
-
Outlookにて既にウィドウ単体で...
-
プログラミング
-
エクセルファイルのデータ転記...
-
VBA 指定した回数分、別シート...
-
VBAなくなるの?
-
VBA レジストリの値の読み方に...
-
VBAの計算で@が出てしまう件
-
VBA 複数条件の分岐処理の上手...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードに貼付けてある画像のサ...
-
Windows作成Excel文書添付JPEG...
-
ACCESS VBA TIFF...
-
解像度をまとめて下げる
-
PowerPointに貼り付けた画像の...
-
final cut proのmotion(2.1.2...
-
イラレで埋め込んだ画像の解像...
-
excelの列幅高さが勝手に変わる...
-
邪魔なwww.softonic.jpの消し方...
-
ワード B4→A4に縮小印刷す...
-
ワードA3で作成したファイルをA...
-
Excelで連続するデータの個数を...
-
WordのA3で作成されたファイル...
-
図の濃淡を調節するには。
-
フォトショップで画像を貼り付...
-
エクセルに添付された画像が×に...
-
歪みと歪みはどう違う?
-
アンドロイドタブレットを使っ...
-
Excelの行列幅をcmで表示したい
-
bmp式画像のバイト数の計算方法
おすすめ情報