如何用vba输出wmf格式的图片

mayuezxl

各位大佬，能否告诉一下如何用vba编程输出wmf格式的图片

zzyong00

sendcommand 调用 WMFOUT命令就行了

q1365466

Sub Example_Export()
   Dim SSet As AcadSelectionSet
    For Each SSet In ThisDrawing.SelectionSets
        If SSet.Name = "SS1" Then
            ThisDrawing.SelectionSets.Item("SS1").Delete
            Exit For
        End If
    Next
    Set SSet = ThisDrawing.SelectionSets.Add("SS1")
SSet.SelectOnScreen
    Dim objEnt As AcadEntity

    For Each objEnt In SSet
        exportFile = "C:\AutoCAD\DXFExprt"  
        ThisDrawing.Export exportFile, "wmf", SSet


End Sub

q1365466

最后 少了个next

ZZC18858664123

wmf不太清晰吧。发送到打印机指定文件夹。图片格式转换wmf？