coreldraw vba FindShapes方法 Recursive参数含义
vba写如下代码:
Public Sub Test()
Dim str1 As String
str1 = "@type='" & "rectangle" & "'"
Application.ActivePage.Shapes.FindShapes("", 0, False, str1).CreateSelection
End Sub
[bool Recursive = true/false Recursive作用:指定是否遍历所有对象]
Recursive =...
原创
2020-09-29 10:25:50 ·
630 阅读 ·
0 评论