ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Shape
16 сообщений из 16, страница 1 из 1
Shape
    #36899553
evansl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evansl
Гость
Добрый день!

Не подскажите, как узнать в Excel через VBA адрес ячейки на которой находится объект Shape (рисунок).
...
Рейтинг: 0 / 0
14.10.2010, 15:05
| Ответить | Цитировать | Написать  
Shape
    #36899663
Komil_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Komil_
Гость
evanslДобрый день!

Не подскажите, как узнать в Excel через VBA адрес ячейки на которой находится объект Shape (рисунок).

Если не ошибаюсь, то Shape ни как не связан с ячейкой. Чтобы убедиться в этом достаточно выделить всю страницу и удалить от записей (DELETE). Хоть форма Shape слегка исказиться, но не исчезнет! А значит адрес ячейки отсутствует.
А зачем Вам это надо? Может Вам достаточно координаты?
...
Рейтинг: 0 / 0
14.10.2010, 15:41
| Ответить | Цитировать | Написать  
Shape
    #36899692
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Komil_
> Чтобы убедиться в этом достаточно выделить всю страницу и удалить от записей (DELETE). Хоть форма Shape слегка
> исказиться, но не исчезнет!

А у меня исчезла, наверное от установленной точки - "перемещать и изменять объект вместе с ячейками"
Описываемое тобой поведение получаю при установке точки в позицию - "перемещать, но не изменять размеры"

> А зачем Вам это надо? Может Вам достаточно координаты?

+1

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
14.10.2010, 15:47
| Ответить | Цитировать | Написать  
Shape
    #36899810
evansl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evansl
Гость
Komil_evanslДобрый день!

Не подскажите, как узнать в Excel через VBA адрес ячейки на которой находится объект Shape (рисунок).

Если не ошибаюсь, то Shape ни как не связан с ячейкой. Чтобы убедиться в этом достаточно выделить всю страницу и удалить от записей (DELETE). Хоть форма Shape слегка исказиться, но не исчезнет! А значит адрес ячейки отсутствует.
А зачем Вам это надо? Может Вам достаточно координаты?

Дело в том, что Shape (Рисунок) это кнопка по которой выполняется макрос.
Что я делаю есть некая таблица, выделяем строку в ней через Worksheet_SelectionChange

далее наживаем кнопку(рисунок) "Удалить", но так как теряется фокус с выделенной ячейки в таблице то не не могу получить адрес выделенной строки ...

Моих познаний на VBA не много поэтому пока не предумал ничего другого как игнорировать выделение по кнопке ....
...
Рейтинг: 0 / 0
14.10.2010, 16:19
| Ответить | Цитировать | Написать  
Shape
    #36899895
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
запоминайте выделенную строку в глобальной переменной и удаляйте именно ее
...
Рейтинг: 0 / 0
14.10.2010, 16:49
| Ответить | Цитировать | Написать  
Shape
    #36899937
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Или дайте пример вашей таблички.
У меня так вроде ActiveCell не теряется...
...
Рейтинг: 0 / 0
14.10.2010, 17:06
| Ответить | Цитировать | Написать  
Shape
    #36900001
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub CommandButton1_Click()

    Dim oSht As Worksheet
    Dim oRange As Range
    
    Set oSht = ThisWorkbook.Worksheets("Moy Worksheet S Knopkoj") ' i s vydelennoj yachejkoj, stroku kotoroj xochu udalit'
    Set oRange = oSht.Range(ThisWorkbook.Application.Selection.Address)
    oRange.Rows.EntireRow.Delete
    
End Sub
...
Рейтинг: 0 / 0
14.10.2010, 17:28
| Ответить | Цитировать | Написать  
Shape
    #36901402
evansl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evansl
Гость
VladConn
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub CommandButton1_Click()

    Dim oSht As Worksheet
    Dim oRange As Range
    
    Set oSht = ThisWorkbook.Worksheets("Moy Worksheet S Knopkoj") ' i s vydelennoj yachejkoj, stroku kotoroj xochu udalit'
    Set oRange = oSht.Range(ThisWorkbook.Application.Selection.Address)
    oRange.Rows.EntireRow.Delete
    
End Sub


VladConn, спасибо за отличный пример. Все работает если код работает по
нажатию элемента управления Кнопки.

У меня макрос присоединен к рисунку и адрес выделения это ячейка на которой находится рисунок.
...
Рейтинг: 0 / 0
15.10.2010, 13:45
| Ответить | Цитировать | Написать  
Shape
    #36902066
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
evansl,

Вам требуется пример с рисунком, а не кнопкой?
...
Рейтинг: 0 / 0
15.10.2010, 17:07
| Ответить | Цитировать | Написать  
Shape
    #36902412
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
evansl,

VladConnВам требуется пример с рисунком, а не кнопкой?
...
Рейтинг: 0 / 0
15.10.2010, 19:34
| Ответить | Цитировать | Написать  
Shape
    #36904666
evansl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evansl
Гость
VladConnevansl,

Вам требуется пример с рисунком, а не кнопкой?

да ..
...
Рейтинг: 0 / 0
18.10.2010, 11:46
| Ответить | Цитировать | Написать  
Shape
    #36904690
evansl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evansl
Гость
AndreTMevansl,

VladConnВам требуется пример с рисунком, а не кнопкой?


AndreTM,
в вашей книге все работает, у меня же фокус переходит в ячейку на которой находится рисунок.

Может что-то нужно установить дополнительно в Excele?
...
Рейтинг: 0 / 0
18.10.2010, 11:54
| Ответить | Цитировать | Написать  
Shape
    #36906127
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
У меня все работает.
У вас какой Офис? 2007 или 2003?

В-принципе, можно же использовать не Shape, а CommandButton с рисунком. По крайне мере, кнопка точно не переводит фокус.
...
Рейтинг: 0 / 0
18.10.2010, 21:01
| Ответить | Цитировать | Написать  
Shape
    #36906347
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Блиииннн... Люди отупели до невозможности.
Четыре отвечателя за четыре дня не могут догадаться в справку, блин, залезть.

evansl, Запускаешь Эксель, тыкаешь Alt+F11, F2, в списке выбираешь Shape, в большом окне смотришь на все что возможно делать с объектом. Пять минут поиска и задача решена.
...
Рейтинг: 0 / 0
19.10.2010, 00:20
| Ответить | Цитировать | Написать  
Shape
    #36906836
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: White Owl
> Блиииннн... Люди отупели до невозможности.

+100000

> Запускаешь Эксель, тыкаешь Alt+F11, F2, в списке выбираешь Shape, в большом окне смотришь на все что возможно
> делать с объектом. Пять минут поиска и задача решена.

Там по английски, а я знаю только русский и никакой другой учить не хочу и НЕ БУДУ


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
19.10.2010, 10:40
| Ответить | Цитировать | Написать  
Shape
    #36907029
evansl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
evansl
Гость
AndreTMУ меня все работает.
У вас какой Офис? 2007 или 2003?

В-принципе, можно же использовать не Shape, а CommandButton с рисунком. По крайне мере, кнопка точно не переводит фокус.

Решил проблему, дело было действительно в версии офиса.

Использовал глобальную переменную и проверяю на выделение в нужной области.

CommandButton с рисунком не очень красиво смотрится))

Shocker.Pro, AndreTM, VladConn спасибо за советы!
...
Рейтинг: 0 / 0
19.10.2010, 11:34
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Shape
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]