Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Shape / 16 сообщений из 16, страница 1 из 1
14.10.2010, 15:05
    #36899553
evansl
evansl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shape
Добрый день!

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

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

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

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

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

+1

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

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

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

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

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

Моих познаний на VBA не много поэтому пока не предумал ничего другого как игнорировать выделение по кнопке ....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 16:49
    #36899895
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shape
запоминайте выделенную строку в глобальной переменной и удаляйте именно ее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 17:06
    #36899937
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shape
Или дайте пример вашей таблички.
У меня так вроде ActiveCell не теряется...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2010, 17:28
    #36900001
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shape
Код: 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
| Ответить | Цитировать | Написать  
15.10.2010, 13:45
    #36901402
evansl
evansl
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shape
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, 17:07
    #36902066
VladConn
VladConn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shape
evansl,

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

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

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

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

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


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

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

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

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

+100000

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

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


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

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

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

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

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

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


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