将页码添加到目录Visio [VBA]

Sub AddPageNumbersToTableOfContents()
    Dim vsoPage As Visio.Page
    Dim vsoShape As Visio.Shape
    Dim vsoTOC As Visio.Shape
    
    ' 获取目录的Shape对象
    Set vsoTOC = ActivePage.Shapes("Table of Contents")
    
    ' 遍历绘图中的每个页面
    For Each vsoPage In ActiveDocument.Pages
        ' 创建一个新的形状，用于显示页码
        Set vsoShape = ActivePage.Drop(Application.Documents.Add("Basic Shapes.vss").Masters("Rectangle"), 0, 0)
        
        ' 设置形状的位置和大小
        vsoShape.Cells("PinX").FormulaU = "Width*0.5"
        vsoShape.Cells("PinY").FormulaU = "Height*0.5"
        vsoShape.Cells("Width").FormulaU = "2 in"
        vsoShape.Cells("Height").FormulaU = "0.5 in"
        
        ' 设置形状的文本为页码
        vsoShape.Text = "Page " & vsoPage.PageIndex
        
        ' 将形状添加到目录中
        vsoTOC.ContainerProperties.InsertListMember vsoShape, 0
    Next vsoPage
End Sub