Здравствуйте, форумчане. Помогите с решением проблемы.
В общем ход мысли таков: На листе располагается "Группа 12". В ее состав входит фигура - "Узел1". Рядом нарисована линия и несколько фигуры с названием "Приемный узел1"
Как расположить копии "Группы 12" - в соответствии с таблицей R9:S18, так чтобы копия "Группы 12" располагалась на нужном месте - объединяя красные фигуры "Узел1" с фигурами "Приемный узел1" ?
То есть допустим имеются координаты фигур "Приемный узел1" (они не состоят в группе). И копии целевой группы - должны разместится на этих фигурах так, чтобы координаты их элементов с названием "Узел 1"- совпали бы с координатами фигур "Приемный узел1" Так это сложно на словах объяснить, в файле-примере показал.
В чем тут сложность. Этот красный овал - который входит в группу - в VBA как-то по особенному должен обрабатываться. То есть VBA различает фигуру вне группы и фигуру в группе - это считается как две совершенно разные фигуры. Координаты этого красного овала - находятся внутри группы, а не снаружи - поэтому обычные тригонометрические способы перемещения здесь навряд ли будут применимы.
radioamator написал: поэтому обычные тригонометрические способы перемещения здесь навряд ли будут применимы.
А причём тут тригонометрия? Находите Shape группу, по имени например. Находите через GroupItems по имени тот овал Узел1, находите координаты центра. Разница в координатах центра Узел1 и центра Приёмный узел1 даст величину смещения координат всей группы. Где в этом решении хоть один sin или cos или tg?