如何使用VBA检索Visio自定义形状信息

Sub ListCustomShapes()
    Dim vsoPage As Visio.Page
    Dim vsoShape As Visio.Shape
    Dim intCount As Integer

    'Get the active page
    Set vsoPage = ActivePage

    'Loop through all the shapes on the page
    For Each vsoShape In vsoPage.Shapes
        'Check if the shape is a custom shape
        If vsoShape.Type = visTypeUserDefined Then
            'Print the name of the custom shape to the Immediate window
            Debug.Print vsoShape.Name
            intCount = intCount + 1
        End If
    Next vsoShape

    'Print the total number of custom shapes found
    Debug.Print "Total custom shapes found: " & intCount
End Sub