vba - 如何使用VBA将Word形状保存到图像？

Question

我有一个简单的要求，即将嵌入在 Word 文档中的 MS-Office 绘图对象保存到图像文件。以下代码适用于从 Powerpoint 中提取图像。但是，如果我将 ActivePresentation 修改为 ActiveDocument，则它不适用于 MS-Word。导出方法不适用于形状对象。有什么想法吗？

Dim oPPTShap as Shape
For k = 1 To .Slides(intSlide).Shapes.Count
    Set oPPTShape = ActivePresentation.Slides(intSlide).Shapes(k)
    oPPTShape.Export "C:\images\s" & k & ".bmp", ppShapeFormatBMP                
Next

Answer 1

这不太好，因为它以 EMF 格式输出每个图像，但它确实将内联形状集合中的每个图像写入单个文件。当然可以对其进行修改以进行其他形状收集。

我想增强为直接写入JPG，但到目前为止不知道VBA如何通过过滤器推送WRITE输出。因此，要使用这些文件，您需要运行一些外部后处理/批处理，将文件从 EMF 转换为更可用的文件。

Sub WriteInlineShapesToFile()
    Dim docCurrent As Document
    Dim shapeCurrent As InlineShape
    Dim RC As Integer
    Dim vData() As Byte
    Dim i As Long
    Dim lWritePos As Long
    Dim strOutFileName As String

    Set docCurrent = ActiveDocument

    i = 1

    For Each shapeCurrent In docCurrent.InlineShapes
        strOutFileName = "c:\temp\datafile" & CStr(i) & ".emf"
        Open strOutFileName For Binary Access Write As #1
        i = i + 1
        vData = shapeCurrent.Range.EnhMetaFileBits
        lWritePos = 1

        Put #1, lWritePos, vData

        Close #1

 Next shapeCurrent

    RC = MsgBox("Job complete.", vbOKOnly, "Job Status")

End Sub