방법: 프로그래밍 방식으로 Visio 문서 저장
Microsoft Office Visio 문서는 여러 가지 방법으로 저장할 수 있습니다.
기존 문서의 변경 내용을 저장합니다.
새 문서를 저장하거나 문서를 새 이름으로 저장합니다.
지정한 인수를 사용하여 문서를 저장합니다.
자세한 내용은 Microsoft.Office.Interop.Visio.Document.Save, Microsoft.Office.Interop.Visio.Document.SaveAs 및 Microsoft.Office.Interop.Visio.Document.SaveAsEx 메서드에 대한 VBA 참조 설명서를 참조하십시오.
기존 문서 저장
문서를 저장하려면
이전에 저장된 문서에 있는 Microsoft.Office.Tools.Visio.Document 클래스의 Microsoft.Office.Interop.Visio.Document.Save 메서드를 호출합니다.
이 코드 예제를 사용하려면 프로젝트의 ThisAddIn 클래스에서 이 코드 예제를 실행하십시오.
[!참고]
새 Visio 문서가 아직 저장되지 않았으면 Microsoft.Office.Interop.Visio.Document.Save 메서드는 예외를 throw합니다.
Me.Application.ActiveDocument.Save()
this.Application.ActiveDocument.Save();
새 이름으로 문서 저장
Microsoft.Office.Interop.Visio.Document.SaveAs 메서드를 사용하여 새 문서를 저장하거나 문서를 새 이름으로 저장합니다.이 메서드를 사용하려면 새 파일 이름을 지정해야 합니다.
활성 Visio 문서를 새 이름으로 저장하려면
파일 이름을 포함한 정규화된 경로를 사용하여 저장할 Microsoft.Office.Tools.Visio.Document의 Microsoft.Office.Interop.Visio.Document.SaveAs 메서드를 호출합니다.지정한 폴더에 동일한 이름의 파일이 이미 있으면 자동으로 덮어씁니다.
이 코드 예제를 사용하려면 프로젝트의 ThisAddIn 클래스에서 이 코드 예제를 실행하십시오.
Dim docPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyDrawing.vsd" Me.Application.ActiveDocument.SaveAs(docPath)
string docPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyDrawing.vsd"; this.Application.ActiveDocument.SaveAs(docPath);
새 이름 및 지정한 인수를 사용하여 문서 저장
Microsoft.Office.Interop.Visio.Document.SaveAsEx 메서드를 사용하여 문서를 새 이름으로 저장하고 문서에 적용할 인수를 지정합니다.
새 이름 및 지정한 인수를 사용하여 문서를 저장하려면
파일 이름을 포함한 정규화된 경로를 사용하여 저장할 Microsoft.Office.Tools.Visio.Document의 Microsoft.Office.Interop.Visio.Document.SaveAsEx 메서드를 호출합니다.해당 폴더에 동일한 이름의 파일이 이미 있으면 예외가 throw됩니다.
다음 코드 예제에서는 활성 문서를 새 이름으로 저장하고, 문서를 읽기 전용으로 표시하고, 가장 최근에 사용한 문서 목록에 문서를 표시합니다.이 코드 예제를 사용하려면 프로젝트의 ThisAddIn 클래스에서 이 코드 예제를 실행하십시오.
Dim newDocPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyOtherDrawing.vsd" Me.Application.ActiveDocument.SaveAsEx(newDocPath, CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO) + CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU))
string newDocPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyOtherDrawing.vsd"; this.Application.ActiveDocument.SaveAsEx(newDocPath, ((short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO + (short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU));
코드 컴파일
이 코드 예제를 실행하려면 다음이 필요합니다.
- 문서를 새 이름으로 저장하려면 내 문서 폴더(Windows XP 또는 이전 버전의 경우) 또는 문서 폴더(Windows Vista의 경우)에 Test라는 디렉터리가 있어야 합니다.