Страницы: 1
RSS
пропадают кнопки
 
с листа пропадают кнопки, макросы целы.  
где вообще хранятся данные о кнопках (местоположение на листе, размеры и т.д.)  
СПАСИБО!
 
{quote}{login=login}{date=28.11.2008 10:56}{thema=пропадают кнопки}{post}с листа пропадают кнопки, макросы целы.  
где вообще хранятся данные о кнопках (местоположение на листе, размеры и т.д.)  
СПАСИБО!{/post}{/quote}  
 
Кнопки могут пропадать при группировке (скрытии) столбцов/строк. Необходимо установить в свойствах кнопок (в режиме конструктора правой мышкой - "Формат объекта") "Не перемещать и не изменять размеры".
 
Точно так и СДЕЛАНО!  
А они пропадают, так где же прописываются их (кнопок) параметры??
 
{quote}{login=login}{date=28.11.2008 11:14}{thema=}{post}Точно так и СДЕЛАНО!  
А они пропадают, так где же прописываются их (кнопок) параметры??{/post}{/quote}  
Свойства - в режиме конструктора на панели "Элементы управления" выбрать кнопку "Свойства"
 
кнопки были сделаны из паненли инструментов ВИД - ФОРМЫ и к ним назначены макросы.
 
{quote}{login=}{date=28.11.2008 11:40}{thema=}{post}кнопки были сделаны из паненли инструментов ВИД - ФОРМЫ и к ним назначены макросы.{/post}{/quote}  
тогда опять же в режиме конструктора щелкните по кнопке правой кнопкой мыши и выберите "Формат объекта"
 
Вероятно я совсем бестолковый!  
Но ни в режиме конструктора, ни в каком другом режиме мне не удалось увидеть, понять: где же задается местоположение, координаты, если хотите, кнопки на листе???
 
Sub test()  
With Shapes("Кнопка 1")  
Debug.Print .Top, .Left, .Width, .Height  
End With  
End Sub
 
как то для меня сложно!!
 
Наверное, просто на листе нет кнопки (с панели Формы) под таким именем  
Просмотреть все объейты  shapes иожно так:  
 
Sub test()  
For Each a In ActiveSheet.Shapes  
With a  
Debug.Print .Name, .Top, .Left, .Width, .Height  
End With  
Next  
End Sub
 
выполнил данный код, и - тишина!
 
Значит, нет уже никаких кнопок на листе.  
Ищите, куда они подевались.
 
Так кнопки, как раз, имеются - а сообщение от кода какое? Или ещё что-нибудь!
 
Тогда "и тишина" понятна :)  
Информация выводится в VBE (Alt-F11) в окно Immediate (Ctrl-G)  
 
Можно вывести и в MsgBox так вот:  
 
Sub test()  
Dim a, s  
s = "Имя - Верх - Cлева - Ширина - Высота"  
For Each a In ActiveSheet.Shapes  
With a  
s = s & vbLf & .Name & " - " & .Top & " - " & .Left & " - " & .Width & " - " & .Height  
End With  
Next  
MsgBox s  
End Sub
 
СПАСИБО!
Страницы: 1
Читают тему
Наверх