в VBA точкой вращения, смещения и пр для шейпов является геометрический центр фигуры.  
иногда это жутко не удобно, когда требуется перенести объект в определенное место, при этом повернув его на скажем 45 градусов. Так что бы боковая грань фигуры совпадала с заданной точкой.  
проблемы бы не было если бы объекты были бы постоянны в своих размерах. но они по условию меняют и длину и ширину. Я уже запарился. Скоро вспомню весь школьный курс геометрии, тригонометрии и еще бог знает чего.  
Хотелось бы найти возможность указывать точку вращения(как минимум)  
для понимания сего текста высылаю файл лучше смотреть 2003 или хр

до сих пор пользовался макрорекодером, из которого выдирал ненужное

работаю в 2003, и в XP. Шейпы, в данном случае трапеция (с наклоном боковой грани, не очень удачно задаваемый(наклон)через длину детали) выглядит, как будто это угол 45 градусов  
(см пример), а смотришь в 2007 или Open office так там этот угол изменяется и становиться приблизительно 70-80 градусов.    
Вопрос:Есть ли в VBA проверка на версию Excel'я? или может в шейпах есть абсолютные величины?  
 
 
С уважением Алексей  
_______________________________________  
общий вопрос, что делать и кто виноват.:)

при выборе из списка элемента получаю его данные, которые обрабатываются.  
иногда возникает потребность часть или все данные у конкретного элемента заменить на новые  
Вопрос как найти адрес старой ячейки  
лучше через VBA  
как то    
select case element  
case=елемент1  
   .деталь1.цвет новый=ячейка 1  
   .деталь1.размер новый=ячейка 2  
   .деталь2.цвет новый=ячейка 3  
   .деталь2.размер новый=ячейка 4  
case=елемент2  
   .деталь1.цвет новый=ячейка 1  
   .деталь1.размер новый=ячейка 2  
   .деталь2.цвет новый=ячейка 3  
   .деталь2.размер новый=ячейка 4  
end select  
 
совершенно не знаю как делать вложеные свойства элемента.

первоначально был список с картинками в одной книге, затем для ускорения разделил на два файла для ускорения работ, на некоторых компьютерах даже при ActiveWorkbook.UpdateLinks = xlUpdateLinksAlways выдоется запрос об обновлении связей со вторым файлом.  
задача:  
замена картинки в  Shapes("Picture 121") указав путь на другую картинку  
  Sub Макрос2()    
ActiveSheet.Shapes("Picture 121").Select  
     With Selection.ShapeRange  
     .loadpicture(ActiveWorkbook.Path + "\кртика.jpg")  
end with  
end sub  
что то в этом роде :))  

<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>