Люблю я TreeView, чего и всем желаю

Здравствуйте
На товарищеский суд:

Контрол TreeViewNEWи его друзья

Последнее обновление:  04-01-2019

Здравствуйте. Будьте добры,

ДАНО:  В Class'е формируем  CommandBar:ВОПРОС: Как записать  .OnAction [= String], если процедура должна находиться в Class'е  (а не в стандартном модуле) ?

Rem Такие конструкции не помогают:
.OnAction = "'" & ThisWorkbook.Name & "'!" & "Me.Macro"
.OnAction = "Application.Run Me.Macro"
.OnAction = "!<Me.Macro>"
Или получать процедуру из Class'а не получиться?

Здравствуйте. Будьте добры,

ДАНО: Активировали (любую) ячейку внутри [именованного] диапазона
ВОПРОС: Как получить Имя ( или хотя бы Адрес) диапазона?  Наподобие  rName =  ActiveCell.Range.Name

Rem UsedRange не подойдет (см файл)
Rem У Excel это получается (при определении данных для "Сводной таблицы"  или  "Таблицы"):

Здравствуйте.
На товарищеский суд...
Все в файле. Вызов с вкладки 'Разработчик'
http://rghost.net/6n9QXbRdJ

Здравствуйте
Можно ли получить программно Цветовую Схему для использования в процедуре. Наподобие  If Val(Application.Version) >=...?

ПРИМ. Ну вот приспичило
ПРИМ. На форуме много тем со словосочетанием "Цветовая Схема". Но, в данном случае, имеется ввиду это:

Здравствуйте. Будьте добры,

Дано:
Если создавать  'VBProject.VBComponents'   в  'ThisWorkbook', то все чудесно.

А если создавать  н о в у ю  Книгу  и творить  ".VBComponents"  в  этой  н о в о й  Книге, то имеем плохо терпимый побочный эффект .
Весь процесс создания начинает  демонстрироваться  на экране:  т .е. открывается  [и даже не думает потом закрываться]  VBA  и  Tahom'ой по белому живописует как все  эти ".VBComponents"  создаются и прописываются.
Вопрос:   Как остановить этот душевный терроризм?

ПРИМ. Application.DisplayAlerts = False или Application.ScreenUpdating = False не помогает [точнее, помогало бы при создании в  'ThisWorkbook']
ПРИМ. Т.к. пример сведен к самому необходимому минимуму, то  [в примере]  этот  'клип'  может лукаво быстро проскочить. Но при реальных объемах информации предстает во всех подробностях  [даже на мощном компьютере].
ПРИМ.  Может,  можно  'связать'   с помощью ProgressBar. Не смог разобраться как в данном случае это нужно делать.

Спасибо

Здравствуйте.
Надстройка создает в Книге пользователя модуль и прописывает в нем макросы, которые работают автоматически и вмешательства / корректировки со стороны пользователя не требуют. Но их вереница в Списке макросов (Alt+F8)  пользователю будет мешать, нервировать, глаза мозолить.
Вопрос: Можно ли их скрыть в  Списке макросов (Alt+F8)? Или, например,  в выпадающем списке  "Находится в .."  создавать пользовательское "звено" (наподобие "Определенные пользователем" в Мастере Функций" )?
Подозреваю, что вряд-ли. Но вдруг можно что-нибудь придумать.
Спасибо.

Здравствуйте. Будьте добры,






При попытке 'войти' в ImageList получаю данное сообщение. В WindowsXP тот же самый файл работал.  В Windows7 - сообщение.
Вопрос:  Что конкретно требуется сделать?  Где и как 'looking for object'?
 

Здравствуйте, будьте добры..
Имеем:

Столкнулся в паре-тройке процедур, что второй(очередной) раз конструкция On Error GoTo.. не срабатывает.
В иных случаях одна On Error GoTo.. находилась врутри другой On Error GoTo..
Разношу "несрабатывающие" части процедуры в отдельные макросы (по одной On Error GoTo.."на-нос"), "объединяю" результаты работы этих разрозненных макросов:  то,что требовалось изначально - работает.

Вопрос: Существуют-ли (не)явные ошибки при использовании On Error GoTo.. Если про то ничего не ведомо,то и "шут с ними".
Спасибо.

Здравствуйте.  Будьте добры,
Имеем:
Шаг1: При инициализации Userform формируем TreeView и формируем многомерный  Массив из Node.Text.
Шаг2:  Добавляем Новый Node (которому Excel автоматически присваивает Index=Nodes.Count+1).
Если после этого  (любым) циклом бежать по обновленному  TreeView, чтобы снова  получить  массив, то новый Node.Text окажется в к о н ц е массива.
Что логично только программно, но не "понятийно".
Вопрос: Переиндексировать Nodes мы не можем (read only). Каким образом можно каждый раз получать массив (состоящий из Node.Text)  от  каждый раз "обновленного" TreeView, но так,  чтобы массив формировался согласно  обновленному "визуальному" ряду.
Т.е. если вставляется Новый Node, например, пятым (по визуальному счету  сверху), то и в новом массиве  НовыйNode.Text был пятым (а не идиотски последним)?
Спасибо..

Здравствуйте.  Будьте добры,

В VBA  в окне  'Properties' на  MultiPage (на каждой Page) расположен control (?), в котором мы вводим свойства объектов.
Вопрос: Какой это control?  Можно ли с ним работать в VBA?
Или это просто скоординированный набор отдельных TextBox/ComboBox?
Ни от ListBox,  ни от ListView такого "поведения"  у меня не получается добиться.
Спасибо.

Здравствуйте,
Возможна ли загрузка (программно)   Shape object'а  с  Листа  в  Object.Picture ?
Наподобие:
Object.Picture =   LoadPicture(pathname.Application.Worksheets(1).Shapes(1))

Здравствуйте. Будьте добры,
Наверно, недобросовестно ищу, но где можно посмотреть пример использования одно и того же Class Module сразу для нескольких UserForm?

Полная аналогия автофильтра для строк [и еще дополнительно].
Надстройка. Вызов из Контекстного Меню ячейки. Справочное руководство прилагается. Не гарантируется на 64-разрядных системах. Используется Treeview. Как смог. http://rghost.ru/58955852

Здравствуйте. Будте добры,
имеем:

Private MyControl As MSForms.control
Dim N As Long

Private Sub Label1_MouseMove(...)
Set MyControl = UserForm1.Label1
End Sub
Private Sub CommandButton234_Click()
Set MyControl = UserForm1.CommandButton234
End Sub
'и т.п.

ВОПРОС: Возможно ли составить уникальные фразы, чтобы:
1.любой Элемент в процедурах UserForm'ы автоматически определял сам себя
2.автоматически получить его (порядковый) №.
Наподобие:
Private Sub Элемент№_Click()
Set MyControl = UserForm1.Me
N = №
End Sub

Будьте добры.
Имеем:

PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop

PauseTime = 20
Start = Timer
Do While Timer < Start + PauseTime
MyObject.Visible = True
DoEvents
Loop


Если первый или второй циклы должны ПРИНУДИТЕЛЬНО прерываться, то как грамотно оформить Error, т.е. как грамотно ПРИНУДИТЕЛЬНО прерывать тот или другой циклы?
On Error GoTo My_Error что-то не очень на них действует.