Страницы: 1
RSS
как обратиться к дочернему объекту shapes
 
На листе Shapes состоящая из нескольких сгруппированных линий. Нужно несколько линий сместить в сторону. Не пойму как обратиться к этим объектам. К сожалению на листе есть еще линии с аналогичными именами в других группах Shapes. Данные объеты получились путем копирования группы.
 
Через shaperange - https://msdn.microsoft.com/ru-ru/library/office/ff840131.aspx
С уважением,
Федор/Все_просто
 
спасибо
 
Статью прочитал но там про то как обратиться к объектам в корне. А про дочерних ничего нет. Неужели разгруппировать ??
 
Здравствуйте .Тема до сих пор для меня актуальна. Прикладываю пример. Нужно удалить линию LG3 из группы.
пробовал:
Код
Sub test()
For Each p In ActiveSheet.Shapes
    If p.name Like "LG*" Then
    MsgBox p.name
    End If
Next p
End Sub
перебор  идет только по верхнему уровню графических форм.
Разгруппировать нельзя по определенным причинам.
 
 
удаляете всю группу, строите такую же, но без не нужной линии.
и правила соблюдены (ничего не разгруппировалось) и требуемый результат получен
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Ігор Гончаренко, а просто нельзя обратиться к объекту??? Ведь у него есть конкретное имя..
 
Лист1.Shapes("vv2").GroupItems("LG3").Delete
Страницы: 1
Наверх