SaveAsSVG 方法示例

下列示例打开文档TestPicture，并将其保存为TestPicture.svg。

Private Sub CommandButton1_Click()

Dim iDoc As CFixFileLink

Set iDoc = Application.Documents.open("C:\Program Files (x86)\GE\iFIX\pic\TestPicture.grf")

Application.Documents.SaveAsSVG "C:\Program Files (x86)\GE\iFIX\pic\TestPicture.svg", iDoc

End Sub