CoreldrawVBA Выбор нескольких объектов по имени - PullRequest
Новая
       32

CoreldrawVBA Выбор нескольких объектов по имени

0 голосов
/ 10 декабря 2018

Ребята Я новичок в VBA для 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 остается не выбранным

Я уверен, что это глупо, но был бы признателен за любую помощь, которую вы могли бы оказать

Спасибо

Mark

1 Ответ

0 голосов
/ 10 декабря 2018 
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
...