Народ, подскажите, пожалуйста как можно выбрать все рисунки в выделенном диапазоне ячеек?
На всём листе-то это сделать не трудно:
Sub All_Draws_Select() ' выделить все рисунки на листе
ActiveSheet.DrawingObjects.Select
End Sub
А вот как выбрать в Selection?
При этом, конечно, хотелось бы обойтись без цикла перебора всех элементов DrawingObjects в Selection :), но если нельзя, то и ладно, пусть с циклом …
К сожалению, Справка про коллекцию .DrawingObjects молчит как рыба об лёд и узнать что-то про свойства её элементов, относящиеся к привязке картинок к ячейкам, по аналогии с элементами коллекции .Shapes при моём слабом знании инглиша трудно.
Мне нужно выделять только РИСУНКИ, поэтому я и пытаюсь использовать именно коллекцию .DrawingObjects, а не .Shapes, т.к. (насколько я смог нарыть по разным источникам) в .DrawingObjects в отличие от .Shapes не входят примечания, выпадающие списки проверки данных, автофильтра, списков и сводных таблиц
На всём листе-то это сделать не трудно:
Sub All_Draws_Select() ' выделить все рисунки на листе
ActiveSheet.DrawingObjects.Select
End Sub
А вот как выбрать в Selection?
При этом, конечно, хотелось бы обойтись без цикла перебора всех элементов DrawingObjects в Selection :), но если нельзя, то и ладно, пусть с циклом …
К сожалению, Справка про коллекцию .DrawingObjects молчит как рыба об лёд и узнать что-то про свойства её элементов, относящиеся к привязке картинок к ячейкам, по аналогии с элементами коллекции .Shapes при моём слабом знании инглиша трудно.
Мне нужно выделять только РИСУНКИ, поэтому я и пытаюсь использовать именно коллекцию .DrawingObjects, а не .Shapes, т.к. (насколько я смог нарыть по разным источникам) в .DrawingObjects в отличие от .Shapes не входят примечания, выпадающие списки проверки данных, автофильтра, списков и сводных таблиц