VBA-Word图片导出（四种方法）
VBA-Word图片导出是指使用VBA编程语言将Word文档中的图片导出到指定文件夹的操作。这种操作可以使用多种方法来实现，下面将介绍四种不同的方法。
方法一：使用Word的SaveAs方法
使用Word的SaveAs方法可以将Word文档另存为HTML文件，从而将图片导出。下面是一个示例代码：
```vba
Sub doc_To_HTML()
Dim WordDOC As Object
Dim Path, Name As String
Set WordDOC = Documents.Open("C:\Brildo\Test.docx")
Path = WordDOC.Path
Name = WordDOC.Name
ActiveDocument.SaveAs2 FileName:=Path & "\" & Split(Name, ".")(0), FileFormat:=wdFormatHTML
ActiveDocument.Close (0)
End Sub
```
方法二：使用Windows API
使用Windows API可以将图片导出到指定文件夹。下面是一个示例代码：
```vba
Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, ByVal outputbuf As Long) 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, clsidEncoder As GUID, encoderParams As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal str As Long, id As GUID) As Long
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Integer) As Long
```
方法三：使用OLE对象
使用OLE对象可以将图片导出到指定文件夹。下面是一个示例代码：
```vba
Sub ExportImage()
Dim OleObj As OLEObject
Set OleObj = ActiveDocument.InlineShapes(1).OLEFormat.Object
OleObj.SaveAs "C:\Images\Image.jpg"
End Sub
```
方法四：使用第三方库
使用第三方库可以将图片导出到指定文件夹。下面是一个示例代码：
```vba
Sub ExportImage()
Dim Img As Object
Set Img = CreateObject("WIA.ImageFile")
Img.LoadFile "C:\Images\Image.jpg"
Img.SaveAs "C:\Images\Image.jpg"
End Sub
```
VBA-Word图片导出可以使用多种方法来实现，每种方法都有其优缺点。选择合适的方法取决于实际情况和需求。
VIP享7折，此内容立减3.57元 
我的内容管理
展开
