Работа с графическим объектом на рабочем листе

[Red_Garry]

Здравствуйте!
Имеем команду VBA

Selection.ShapeRange.IncrementRotation 3

- некий выделенный объект, к примеру, линия, поворачивается на угол 3. Вопрос:
Можно ли поворачивать объект не выделяя его? Т.е. дать команду объекту с УКАЗАННЫМ именем повернуться (или изменить координаты), не задействуя Selection?

Спасибо!

[kuklp]

Да без проблем:

ActiveSheet.Shapes("Линия 1").IncrementRotation 3

P.S. никак часики ваяете?

[Red_Garry]

Спасибо за ответ!Хочу попробовать автоматизировать задачку по расчёту эпюр по сопромату. Вбил исходные данные в прогу на входе и получил красивую картинку на выходе. Ексель, по моему, должен справиться с этим. Ну, это пока только прикидки

[IgorGO]

если значения в характерных точках посчитаны - используйте диаграммы excel и получите картинку, которая полностью совпадет с внешним видом эпюры, так, как будто Вы рисовали ее вручную

[Red_Garry]

Спасибо за ответ

[Red_Garry]

Вопрос вдогонку:
Как изменить координаты графического объекта?
Есть такой код

Worksheets("Лист1").Shapes("strela").ScaleWidth 2, msoFalse, msoScaleFromTopLeft

а нельзя ли явно указать x1,y1,x2,y2?

Спасибо!

[Aleksandr H.]

with Worksheets("Лист1").Shapes("strela")
.Top = XXXX
.Left = XXXX
end with

[Red_Garry]

Спасибо!

[Red_Garry]

И ещё вопрос вдогонку, если можно.
Есть нужда графические объекты привязать к определённому месту рабочего листа, например, сделать графический указатель на определённую ячейку. Как определить графические координаты требуемой ячейки?

Спасибо!

[IgorGO]

а у ячейки есть такие же свойства .Top, .Left, как и у стрелки, (есть еще ширина и высота и у ячейки, и у стрелки)
простыми арифметическими действиями Вы можете сосчитать координаты "вашей" стрелки-указателя и упереть ее в требуемую точку