将图片控件中的图片保存为图片文件BMP、JPG、PNG、GIF、TIFF

最新推荐文章于 2023-11-15 15:51:25 发布

w_dexu

最新推荐文章于 2023-11-15 15:51:25 发布

阅读量922

点赞数 1

分类专栏：函数 VBA 图片文章标签： vba Microsoft Office wps

本文链接：https://blog.youkuaiyun.com/w_dexu/article/details/107146342

版权

本文介绍了如何利用VBA在Microsoft Office或WPS中，将图片控件中的图像保存成不同格式的文件，包括BMP、JPG、PNG、GIF和TIFF。提供了调用示例和函数示例，帮助进行办公软件的二次开发和培训。作者强调，转载请注明出处，并提供了联系方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

本例函数可以将图片控件中的图片，保存为多种图片文件格式，

调用例子

Dim FlName As String
FlName = Application.GetSaveAsFilename("二维码图片_" & Format(Now(), "yyyymmddhhmm"), "图片文件(*.jpg),*.jpg", , "保存二维码为图片")
If FlName = "False" Then MsgBox "二维码图片未保存", vbInformation + vbOKOnly, "保存二维码为图片": Exit Sub
SavePicToFile Image1.Picture, FlName
MsgBox "二维码图片保存成功！" & vbCrLf & FlName, vbInformation + vbOKOnly, "保存二维码为图片"

函数例子

Private Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
Private Type GdiplusStartupInput
    GdiplusVersion As Long
    DebugEventCallback As Long
    SuppressBackgroundThread As Long
    SuppressExternalCodecs As Long
End Type
Private Type EncoderParameter
    nGUID As GUID
    NumberOfValues As Long
    Type As Long
    Value As Long
End Type
Private Type EncoderParameters
    Count As Long
    Parameter As EncoderParameter
End Type
Enum PicType
   p_BMP
   p_JPG
   p_GIF
   p_PNG
   p_TIFF
End Enum
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long
Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hPal As Long, BITMAP As Long) As Long
Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long
Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal FileName As Long

最低0.47元/天解锁文章