Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
vba - как вывести на 1 план сгруппированный объект
 
#1
28.04.2011 14:53:40
Несколько элементов вывожу на 1 план так:  
ActiveSheet.Shapes.Range(Array( _  
       "Rectangle 1", "Rectangle 2", _  
       "AutoShape 3")).ZOrder msoBringToFront  
Нужно как-то вывести на первый план объект, полученный группировкой указанных объектов.  
Скажите, пжл, как к такому объекту обратиться?
 
 
 
#2
28.04.2011 15:05:12
ActiveSheet.Shapes("Rectangle 1")
There is no knowledge that is not power
 
 
 
#3
28.04.2011 15:12:35
ActiveSheet.Shapes(10).ZOrder msoBringToFront - выводится верно по номеру группы  
ActiveSheet.Shapes("Îñíîâà").ZOrder msoBringToFront - присвоила группе-фигуре имя и хочу вывести по-имени (Основа) - ругается  
Как правильно записать с именем, подскажите, пжл?
 
 
 
#4
28.04.2011 15:14:18
результат работы макрорекодера:  
 
Sub Макрос1()  
   ActiveSheet.Shapes("Rectangle 4").Select  
   ActiveSheet.Shapes.Range(Array("Rectangle 4", "Oval 5")).Select  
   Selection.ShapeRange.Group.Select  
   Selection.ShapeRange.ZOrder msoBringToFront  
End Sub
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#5
28.04.2011 15:53:24
Выделяю щелчком в excel группу, в строке имени отображается "Группа 22".  
Почему тогда  
ActiveSheet.Shapes(22).ZOrder msoBringToFront выдает ошибку?
 
 
 
#6
28.04.2011 15:56:24
ActiveSheet.Shapes("Group 22").ZOrder msoBringToFront - так тоже не работает
 
 
 
#7
28.04.2011 15:58:50
ActiveSheet.Shapes("Группа 22").ZOrder msoBringToFront - так работает, а по номеру тоже должно
 
 
 
#8
28.04.2011 15:58:51
вы так можете тыкаться до бесконечности.  
файл приложите.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#9
28.04.2011 16:11:18
файл
 
 
 
#10
28.04.2011 16:19:59
А так? Не то?
 
 
 
#11
28.04.2011 16:22:44
{quote}{login=ghjdjlrf}{date=28.04.2011 04:11}{thema=}{post}файл{/post}{/quote}  
ну и где у вас там "Группа 22"?  
 
чуть подправленная запись макрорекодера:  
Sub Макрос1()  
   ActiveSheet.Shapes("Группа 17").ShapeRange.ZOrder msoBringToFront  
End Sub  
 
в стандартный модуль и выполнить.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#12
28.04.2011 16:26:46
была и 22 - удалила  
я же писала что так получилось, не получается обращаться по присвоенному в диспетчере имен имени!
 
 
 
#13
28.04.2011 16:35:10
диспетчер имен - это не диспетчер для переименования объектов.  
ваш объект как назывался "Группа 17", так и называется.  
а в диспетчере имен вы создали ИМЯ для ФОРМУЛЫ. и эта формула возвращает вам строку "Группа 17"  
 
можете убедиться - в любой ячейке на листе наберите =Основа и нажмите Enter.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#14
28.04.2011 16:43:12
имя объекта меняем так:  
 
Sub Основа2() 'Osnova  
   ActiveSheet.Shapes("Группа 17").Name = "Основа"  
   ActiveSheet.Shapes("Основа").ZOrder msoBringToFront    
End Sub
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#15
28.04.2011 16:43:16
Имя тута.
 
 
 
#16
29.04.2011 08:56:46
{quote}{login=ikki}{date=28.04.2011 04:43}{thema=PS}{post}имя объекта меняем так:  
Sub Основа2() 'Osnova  
   ActiveSheet.Shapes("Группа 17").Name = "Основа"  
   ActiveSheet.Shapes("Основа").ZOrder msoBringToFront    
End Sub{/post}{/quote}  
 
Спасибо большое!
 
 
 
#17
29.04.2011 09:00:46
Пытаюсь записать макрос, чтобы узнать, как записать команду перемещения фигуры на задний план:  
Sub Макрос3()  
'  
' Макрос3 Макрос  
'  
 
'  
End Sub  
Ничего не записывается почему-то?  
А я создала фигуру и применила к ней команду - на задний план(.
 
 
 
#18
29.04.2011 09:03:34
ZOrder msoSendToBack - нашла и инете  
а почему все же макрос не записывается?
 
 
 
#19
29.04.2011 09:08:48
сейчас у меня макросы вызываются по кнопкам, а возможно сделать, чтобы щелчком по самой фигуре на удалялась или появлялись новые фигуры
 
 
 
#20
29.04.2011 09:16:30
нашла как по фигуре: ПКМ, назначить макрос
 
 
 
Страницы: 1
Читают тему
Наверх