我有一个简单的要求，将嵌入 Word Doc 中的 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