最近在做一個項目，由于客戶提供的是Visio文件，可是我們要操作的SVG文件，所以找了相關資料之后，就有了這段代碼。

將Visio文件轉為SVG文件，將如下代碼保存在文本文件中，另存為VBS文件

PS：對于Visio的操作可以參見點擊打開鏈接(MSDN Library ->? Office Development ->? Microsoft Office 2010 -> Visio 2010 -> Visio 2010 SDK -> Visio 2010 Automation Reference -> Reference)

'VSD2SVG.vbs 'Describe:批量將Visio文件轉為SVG 'Author:Haber 'QQ:542143331 'Version:V1.0 'Date:2012-05-04 On Error Resume NextSet objVisio = CreateObject("Visio.Application")objVisio.Visible = False'Set objShell = CreateObject("Wscript.Shell") Set Fso = CreateObject("Scripting.FileSystemObject")Set MyFolder=FSO.GetFolder("D:\sh") '源文件目錄Set Files=MyFolder.filesFso.CreateFolder(MyFolder+"\converted")For Each File In FilesExt=FSO.GetExtensionName(file)If Ext="vsd" Thenbasename=fso.GetBaseName(file)objVisio.Documents.OpenEx File, visOpenRWSet? objVisioPags =? objVisio.ActiveDocument.Pages'讀取多個sheet頁,并轉為多個SVG圖For Each Page in objVisioPagspage.Export (Myfolder+"\converted\"+basename+"_"+CStr(page.index-1)+".svg")NextobjVisio.ActiveWindow.Close ?END ifNEXTobjVisio.quit()MsgBox("Transformation has been done!")Set objVisio = NoThingSet Fso = NoThingSet MyFolder=NoThingSet Files=NoThingSet objShell=NoThingWScript.Quit

總結

以上是生活随笔為你收集整理的批量将Visio文件转为SVG的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。