CoreldrawVBA按名称选择多个对象-Java 学习之路

伙计我是VBA for Coreldraw的新手，正在寻找一些按名称选择多个对象的帮助

我有两个对象1是曲线，一个是矩形 . 我用下面的代码命名它们OBJ1和OBJ 2

For Each s In sr.Shapes
    objName = s.Name
    objName = "OBJ1"
    If objName <> "" Then
    s.Name = objName
    End If
    Next s
For Each s In sr.Shapes
    objName = s.Name
    objName = "OBJ2"
    If objName <> "" Then
    s.Name = objName
    End If
    Next s

我然后尝试了以下代码来选择我需要做的两个对象，然后我可以执行修剪

Dim s as Shape
    ActiveDocument.ClearSelection
    Set s = ActivePage.FindShape(Name:="OBJ1")
    ActivePage.FindShape(Name:="OBJ2").AddToSelection
    s.CreateSelection

问题是结果是只选择OBJ1 OBJ2仍然是UN选择的

我确定这是一些愚蠢的东西，但我很感激你能给予的任何帮助

谢谢

标记

1 回答

Sub Test()

    CreateSelectionByNames Array("OBJ1", "OBJ2")

End Sub


Sub CreateSelectionByNames(aNames)

    Dim sName
    Dim shpRange As New ShapeRange

    For Each sName In aNames
        shpRange.Add ActivePage.FindShape(Name:=sName)
    Next
    shpRange.CreateSelection

End Sub

回复于 2024-05-03T08:24:09+08:00

CoreldrawVBA按名称选择多个对象

1 回答

相关问题