Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
точка привязки у шейпов
 
в VBA точкой вращения, смещения и пр для шейпов является геометрический центр фигуры.  
иногда это жутко не удобно, когда требуется перенести объект в определенное место, при этом повернув его на скажем 45 градусов. Так что бы боковая грань фигуры совпадала с заданной точкой.  
проблемы бы не было если бы объекты были бы постоянны в своих размерах. но они по условию меняют и длину и ширину. Я уже запарился. Скоро вспомню весь школьный курс геометрии, тригонометрии и еще бог знает чего.  
Хотелось бы найти возможность указывать точку вращения(как минимум)  
для понимания сего текста высылаю файл лучше смотреть 2003 или хр
как задать гарячие клавиши уже созданому макросу?
 
до сих пор пользовался макрорекодером, из которого выдирал ненужное
Возможно ли на одну ячейку наложить сразу несколько условий???
 
{quote}{login=Ленка}{date=11.02.2010 11:43}{thema=}{post}И как это добро использовать????{/post}{/quote}  
создать макрос  
с помощью макрорекодера(задав гарячие клавиши)  
сделав любое действие его (макрос остановить  
затем  
севрвис/макрос/редактор виж бейсик  
в новом окне ткнуть на Module1  
заменить все что там есть на то что прислано  
заменить слово tvoy на лист в котором ты работаешь  
все нажимаешь горячие клавиши работа делается
Есть ли в VBA проверка на версию Excel'я?
 
прелестно, и не надо много и менять, проверяешь версию , выбираешь искривление  
 
Благодарю!!
Возможно ли на одну ячейку наложить сразу несколько условий???
 
{quote}{login=Ленка}{date=11.02.2010 10:36}{thema=Возможно ли на одну ячейку наложить сразу несколько условий???}{post}Есть одна ячейка, которая по сути должна считать, но при различных вариантах выдавать различный ответ...  
Например: Если А1<5, то В1=1; Если 5<A1<10, то В1=2; Если А1>10, то В1=3  
Возможно ли такое нагородить в одной ячейке, и если да, то какое максимальное количество условий можно поставить?{/post}{/quote}  
Sub yach()  
Dim a As Double  
a = Worksheets("tvoy").Range("a1")  
Select Case a  
Case Is <= 1  
Worksheets("tvoy").Range("b1") = "ne nash"  
Case 1 To 4  
Worksheets("tvoy").Range("b1") = 1  
Case 5 To 10  
Worksheets("tvoy").Range("b1") = "mezdu 5 i 10"  
Case Is > 10  
Worksheets("tvoy").Range("b1") = "bolshe"  
End Select  
End Sub
Есть ли в VBA проверка на версию Excel'я?
 
работаю в 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  
 
совершенно не знаю как делать вложеные свойства элемента.
Доступ
 
сервис\защита\разрешить изменения диапазонов
ActiveSheet.Shapes("Picture 121").-подскажите некое свойство изменяющее сам рисунок
 
первоначально был список с картинками в одной книге, затем для ускорения разделил на два файла для ускорения работ, на некоторых компьютерах даже при 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>

Страницы: 1
Наверх