word图片点击右键没有另存为 word右键怎么增加图片另存为 _数组

如果我们想把word中的图片保存下来，苦恼word无法使用右键图片另存为，接下来小编就为大家介绍一下如何使用VBA代码增加图片另存为

代码如下：
Option Explicit
Private Const UnitPixelAs Long = 2
Private Const EncoderQualityAs String = "{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"
Private Type GdiplusStartupInput
GdiplusVersionAs Long
DebugEventCallbackAs Long
SuppressBackgroundThread As Long
SuppressExternalCodecs As Long
End Type
Private Enum EncoderParameterValueType
EncoderParameterValueTypeByte = 1
EncoderParameterValueTypeASCII = 2
EncoderParameterValueTypeShort = 3
EncoderParameterValueTypeLong = 4
EncoderParameterValueTypeRational = 5
EncoderParameterValueTypeLongRange = 6
EncoderParameterValueTypeUndefined = 7
EncoderParameterValueTypeRationalRange = 8
End Enum
Private Type EncoderParameter
GUID(0 To 3)As Long
NumberOfValuesAs Long
TypeAs EncoderParameterValueType
ValueAs Long
End Type
Private Type EncoderParameters
CountAs Long
ParameterAs EncoderParameter
End Type
Private Type ImageCodecInfo
ClassID(0 To 3) As Long
FormatID(0 To 3)As Long
CodecNameAs Long
DllNameAs Long
FormatDescription As Long
FilenameExtension As Long
MimeTypeAs Long
FlagsAs Long
VersionAs Long
SigCountAs Long
SigSizeAs Long
SigPatternAs Long
SigMaskAs Long
End Type
Private Declare Function GdiplusStartup Lib "gdiplus" (Token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long
Private Declare Sub GdiplusShutdown Lib "gdiplus" (ByVal Token As Long)
Private Declare Function GdipSaveImageToFile Lib "gdiplus" (ByVal hImage As Long, ByVal sFilename As Long, clsidEncoder As Any, encoderParams As Any) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal Image 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 GdipGetImageEncodersSize Lib "gdiplus" (numEncoders As Long, Size As Long) As Long
Private Declare Function GdipGetImageEncoders Lib "gdiplus" (ByVal numEncoders As Long, ByVal Size As Long, Encoders As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlenW Lib "kernel32" (ByVal psString As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpszProgID As Long, pCLSID As Any) As Long
Private Declare Function GdipBitmapSetResolution Lib "gdiplus" (ByVal Bitmap As Long, ByVal xdpi As Single, ByVal ydpi As Single) As Long
Public Enum ImageFileFormat
Bmp = 1
Jpg = 2
Png = 3
Gif = 4
End Enum
Public Function SaveStdPicToFile(Stdpic As StdPicture, ByVal FileName As String, _
Optional ByVal FileFormat As ImageFileFormat = Jpg, _
Optional ByVal JpgQuality As Long = 80, _
Optional Resolution As Single) As Boolean
Dim CLSID(3)As Long
Dim BitmapAs Long
Dim TokenAs Long
Dim GspAs GdiplusStartupInput
Gsp.GdiplusVersion = 1'GDI+ 1.0版本
GdiplusStartup Token, Gsp'初始化GDI+
GdipCreateBitmapFromHBITMAP Stdpic.Handle, Stdpic.hPal, Bitmap
If Bitmap <> 0 Then'说明我们成功的将StdPic对象转换为GDI+的Bitmap对象了
GdipBitmapSetResolution Bitmap, Resolution, Resolution
Select Case FileFormat
Case ImageFileFormat.Bmp
If Not GetEncoderClsID("Image/bmp", CLSID) = -1 Then

word图片点击右键没有另存为 word右键怎么增加图片另存为

推荐阅读

如果岁月可回头蒋欣有感情戏吗

cf激光毁灭者在哪得到

中华龟就是草龟吗

温峥嵘个人资料温峥嵘个人资料简介

lee男装什么档次

支付宝扣款顺序怎么设置

社保余额怎么查询社保余额怎么查询支付宝

如何通过微信钱包零钱余额为加油卡充值

6寸是多少厘米，6寸等于多少厘米长度？

军训晒黑了怎么白回来军训变黑还能白回来吗

?280mm是40几码 ?280mm是多少码

豆沙色口红适合什么皮肤豆沙色口红适合什么肤色

小编教你电脑版kakaotalk怎么下载。

女神试炼，NDS精灵驿站女神救女神问题急

洛克网址是什么意思,美国得到了什么

520表白情话很甜暖心句子大全表白情话最暖心一段话