Visio 매크로 만들기

문서작업하다 Visio 문서를 jpeg으로 저장할 일이 생겼다.
한, 두개 쯤이야 가뿐하게 다른 이름으로 저장하면 되는데, 문서가 전부 그림으로 된데다 모든 무서를 jpeg으로 변환해야되서 단순작업에 무지 시간이 많이 걸릴것 같아서...

visio 매크로를 만들었다. ㅋㅋ

일단 빈 매크로를 만든다.

1. visio 빈문서를 연다.
2. 메뉴에서 도구->매크로->새 매크로 기록... 선택
3. 매크로 기록 창에서 단축키, 이름 등을 설정고 확인
4. 매크로 제어하는 작은 다이얼로그가 pop되는데 기록 종료.

매크로 편집

• 다음 코드를 추가

  Dim filename As String
  Dim path As String
  filename = InputBox("파일이름을 입력하세요.이름이 없으면 no_name 으로 저장되고 확장자는 자동 붙임", "jpg 저장")
  
  If filename = "" Then
  filename = "no_name"
  End If
  
  path = ThisDocument.path
  
  filename = path + "\" + filename + ".jpg"
  
  Application.ActiveWindow.Selection.Export filename
  

주의 사항

• visio시작할때 "도구->보안센터"에서 매크로 허용 해야 될수도 있음.
• 그림 파일로 저장할때 해상도는 default로 저장됨.
  
• 한번 해상도 바꿔주면 계속 같은 해상도로 저장