我想通过Visio2007中的VBA将某些图层导出为svg。
我被困在添加图层到选择中。我该怎么做呢?
Sub tester()
Dim Layer As Visio.Layer
Dim Layers As Visio.Layers
Dim sel As Visio.Selection
Dim filename As String
Dim lyrName As String
Dim iLays As Integer
Set Layers = Application.ActivePage.Layers
Set sel = EmptySelection