如何在Visio 2007 VBA中向所选内容添加层？

Sub AddLayerToSelection()
    Dim vsoPage As Visio.Page
    Dim vsoSelection As Visio.Selection
    Dim vsoLayer As Visio.Layer
    
    ' 获取当前页面
    Set vsoPage = ActivePage
    
    ' 获取当前选择
    Set vsoSelection = vsoPage.Selection
    
    ' 创建新的图层
    Set vsoLayer = vsoPage.Layers.Add("新图层")
    
    ' 将所选内容添加到新图层
    vsoSelection.ContainerProperties.AddMember vsoLayer
    
    ' 刷新显示
    vsoPage.Application.ActiveWindow.Refresh
    
    ' 清除选择
    vsoSelection.DeleteAll
End Sub