Visio 2003/2010 페이지 목록 Excel

Question

Visio 시트에서 여러 페이지 이름을 가져오고 내보내는 방법이 있습니까? 페이지의 개체를 내보내고 싶지 않고 단지 페이지 목록을 얻고 싶습니다.

예 : Accounting_Layout.vsd 파일에는 입력, 출력, 보고서 및 사용되지 않은 페이지가 포함되어 있습니다.

이 목록을 가져 와서 Excel로 내보낼 수 있습니까?

Answer 1

내가 모르는 무슨 내장 된 기능은 VBA 매크로와 함께 편안하지만, 당신이 원하는 것을 달성 할 것이라고, 다음 코드는 당신이 필요로 할 것입니다

Sub Demo() 
    Set Excel = CreateObject("excel.application") 
    Excel.Visible = True 

    Set Workbook = Excel.Workbooks.Add 
    Set Sheet = Workbook.Worksheets("sheet1") 

    Let numpages = ActiveDocument.Pages.Count 
    For i = 1 To numpages 
     Set CurPage = ActiveDocument.Pages(i) 
     Sheet.Cells(i, 1) = CurPage.Name 
    Next i 
End Sub