VBA识别文件是否为常见的图片格式。

最新推荐文章于 2021-06-15 18:39:34 发布

qq_24499417

最新推荐文章于 2021-06-15 18:39:34 发布

阅读量2.1k

点赞数

分类专栏： vba 文章标签：图片真实格式判断

本文链接：https://blog.csdn.net/qq_24499417/article/details/86171142

版权

该博客介绍如何使用VBA来识别常见的图片格式，包括几种主流格式。对于罕见的图片格式，VBA会将其识别为unknown。

摘要由CSDN通过智能技术生成

用于识别部分图片的真实格式(几种主流的图片格式) .如若是比较罕见的图片格式，也会被认为是unknown：

Const wiaFormatBMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
Const wiaFormatPNG = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"
Const wiaFormatGIF = "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}"
Const wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
Const wiaFormatTIFF = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"
Function StringFormat(fid)
    Select Case fid
    Case wiaFormatBMP
        StringFormat = "BMP"
    Case wiaFormatPNG
        StringFormat = "PNG"
    Case wiaFormatGIF
        StringFormat = "GIF"
    Case wiaFormatJPEG
        StringFormat = "JPEG"
    Case wiaFormatTIFF
        StringFormat = "TIFF"
    Case Else
        StringFormat = "Unknown"
    End Select
End Function

Sub ts()

Dim img '测试一个真实为png的文件,改了名称为rar

Se