visio文件页码索引功能

Private Sub CommandButton1_Click() Dim exlname As String Dim tagname As String Dim tagtest As String Dim ybwh As String Dim vsoPage As Visio.Page Dim ExcelSheet As Object Dim vsoShape As Visio.Shape Dim vsoCell As Visio.Cell Dim totalshapes As Integer Dim totalpage As Integer Dim exlrow As Integer Dim compos As Integer exlname = "" tagname = "" exlrow = 2 ybwh = 0 Set ExcelSheet = CreateObject("Excel.Sheet") ExcelSheet.Application.Visible = True exlname = "c:\" + ThisDocument.Name + ".xls" Excel