如何从Word导出图片且避免触发Excel弹窗启动

方案1：最小改动适配原有逻辑（隐藏Excel窗口） #

原有代码触发弹窗是因为Shapes.AddChart方法会隐式调用Excel进程，你可以提前创建并隐藏Excel实例，用完后主动销毁即可，改动仅需新增3行代码：

' 新增代码段开始
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
' 新增代码段结束

If singleline.Range.InlineShapes.Count > 0 Then
Dim shp4 As InlineShape
Dim mchart4 As Shape
Set shp4 = singleline.Range.InlineShapes(1)
shp4.Select
Selection.Copy
Set mchart4 = ActiveDocument.Shapes.AddChart(xl3DAreaStacked, , , shp4.Width, shp4.Height)
mchart4.Chart.Paste
mchart4.Chart.Export ("c:\here\" + CStr(i) + ".png")
mchart4.Chart.Delete
b64strng = ConvertFileToBase64("c:\here\" + CStr(i) + ".png")
datainbtw = Replace(datainbtw, "<p>", " ")
datainbtw = Replace(datainbtw, "</p>", " ")
datainbtw = datainbtw + "<img src=\'data:image/png;base64," + b64strng + "\' style=\'Display:block\'>"
datainbtw = Replace(datainbtw, "/" & vbCr & " <", "<")

Kill "c:\here\" + CStr(i) + ".png"
End If

' 新增代码段开始
xlApp.Quit
Set xlApp = Nothing
' 新增代码段结束

该方案仍会在后台启动Excel进程，执行完成后会自动销毁，不会有残留。

方案2：完全不依赖Excel的实现方案 #

如果要彻底避免调用Excel，可以直接通过WIA组件读取剪贴板内容保存图片，无需创建Chart对象，全程无Excel进程启动：

If singleline.Range.InlineShapes.Count > 0 Then
    Dim shp4 As InlineShape
    Set shp4 = singleline.Range.InlineShapes(1)
    shp4.Select
    Selection.Copy
    
    ' 用WIA组件从剪贴板保存图片，无需Excel
    Dim img As Object
    Set img = CreateObject("WIA.ImageFile")
    Set img = Clipboard.GetData
    img.SaveFile "c:\here\" & CStr(i) & ".png"
    
    ' 后续原有逻辑保持不变
    b64strng = ConvertFileToBase64("c:\here\" + CStr(i) + ".png")
    datainbtw = Replace(datainbtw, "<p>", " ")
    datainbtw = Replace(datainbtw, "</p>", " ")
    datainbtw = datainbtw + "<img src=\'data:image/png;base64," + b64strng + "\' style=\'Display:block\'>"
    datainbtw = Replace(datainbtw, "/" & vbCr & " <", "<")

    Kill "c:\here\" + CStr(i) + ".png"
End If

• 该方案采用晚绑定调用WIA组件，无需提前添加引用，适配所有主流Word版本。
• 如果运行时提示剪贴板访问失败，可以在Selection.Copy后加100毫秒左右的延迟即可。

内容的提问来源于stack exchange，提问作者Gajendran