Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2010, 13:44   #1
Valegor69
Новичок
Джуниор
 
Регистрация: 16.10.2010
Сообщений: 1
По умолчанию Как получить имя выделенной фигуры

Подскажите пожалуйста

На листе рабочей книги Excel есть множество полилиний. На полилинию назначен макрос. Как в этом макросе получить имя той полилинии, с нажатия на которую он начал выполняться. Насколько я понимаю, это должно выглядеть примерно так:

Имя_переменной = Sheets("Имя_листа").ShapeRange. Active.Name

Но не работает. Заранее спасибо за помощь.
Valegor69 вне форума Ответить с цитированием
Старый 16.10.2010, 13:54   #2
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Ну если макрос назначается на конкретную линию, по идее, можно прописать вручную ее название в макросе, если оно не планируется изменяться потом
motorway вне форума Ответить с цитированием
Старый 16.10.2010, 14:01   #3
motorway
Участник клуба
 
Регистрация: 28.06.2009
Сообщений: 1,950
По умолчанию

Также можете использовать свойство Application.Caller
motorway вне форума Ответить с цитированием
Старый 16.10.2010, 14:30   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Код:
Sub test()    ' макрос назначен всем линиям
    On Error Resume Next
    Dim sha As Shape: Set sha = ActiveSheet.Shapes(Application.Caller)
    sha.Left = sha.Left - 30    ' смещаем линию влево
End Sub
EducatedFool вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как получить имя текущего пользователя в windows? betirsolt Общие вопросы Delphi 2 30.08.2011 06:27
Как получить имя листа? ABCOz Microsoft Office Excel 2 29.11.2009 15:37
Как получить имя файла? Maxx Microsoft Office Excel 4 02.09.2009 13:54
Как получить имя файла Crazyman Работа с сетью в Delphi 4 11.07.2008 00:47
Как получить имя этого компонента? ffo Win Api 2 26.04.2007 23:45