生活随笔
收集整理的這篇文章主要介紹了
批量将Visio文件转为SVG
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
最近在做一個項目，由于客戶提供的是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的全部內容，希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。
