Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для поворота фигуры
 
#1
30.03.2015 11:29:26
Здравствуйте!
Помогите, пожалуйста, разобраться.
Поискала по форуму, может быть где то уже и поднимался такой вопрос, но я не нашла.
Дело вот в чем. Требуется записать с помощью макрорекордера макрос, осуществляющий поворот фигуры. У меня Excel 2007.
При записи макроса код VBA получается таким:

Код
Sub Вращение()'
' Вращение Макрос
    Range("B5") .Select
End Sub

А нужно что-то вроде такого:
Код
Sub Повороты()
    ActiveSheet.Shapes("AutoShape1").Select
    Selection.ShapeRange.IncrementRotation50
    Range("A1").Select
End Sub

Простое копирование нужного кода в макрос, ничего не дает. Пишет, что произошла ошибка.
Подскажите, что можно предпринять?
 
 
 
#2
30.03.2015 12:31:53
Вот такой макрос у меня работает (для предварительно вставленного на лист треугольника)
Код
Sub Rot_Triangle()
Application.ScreenUpdating = False
    ActiveSheet.Shapes.Range(Array("Isosceles Triangle 1")).Select
    Selection.ShapeRange.IncrementRotation 50
    Range("A1").Select
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
30.03.2015 12:42:06
Спасибо за ответ! Попробовала выполнить тот макрос, который вы написали (предварительно вставив треугольник, для чистоты эксперимента)). При запуске выдает ошибку: 1004, не найден компонент с таким именем. Я так понимаю мне надо теперь свою фигуру переименовать. подскажите где описываются свойства фигуры как объекта, чтобы поменять имя?  
 
 
 
#4
30.03.2015 12:57:46
Вот в файле
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
30.03.2015 13:09:28
Загрузила ваш файл, запустила, и снова та же ошибка. В чем может быть дело?
 
 
 
#6
30.03.2015 16:02:20
В итоге решить проблему удалось только установкой Excel 2003. Там все работает как надо! Жаль, конечно, что в Excel 2007 есть такое недоразумение! Большое спасибо за попытки помочь!
 
 
 
#7
30.03.2015 16:41:50
Цитата
Leila написал: В чем может быть дело?
в коде имя фигуры английское у вас скорей всего русское. Выделите фигуру и в окне слева от строки формул увидите название фигуры. (например "Равнобедренный треугольник 1"). Здесь же и меняется имя. Меняете и все работает.
Изменено: V - 30.03.2015 17:50:29
 
 
 
#8
30.03.2015 17:50:11
V, спасибо! теперь буду знать где имя фигуры искать в Excel. А насчет макроса, если его сделать в Excel 2003 (там все получается отлично), и потом открыть в Excel 2007, то все будет работать. А напрямую записывать (как я писала в первом посте), никак не получится.
 
 
 
Страницы: 1
Читают тему
Наверх