Как изменить свойство пункта меню?

@ronick.ru · Регистрация: 12.12.2010

Студворк — интернет-сервис помощи студентам

Есть свой CommandBar, в нем есть меню, в меню есть текстбокс.
Как средствами VBA изменять его свойства например размер или содержание?

@VladConn · 03.10.2006, 22:25

Visual Basic
1
2
3
4
Dim objCommmBarContror As CommandBarControl
Set objCommmBarContror = Application.CommandBars(1).Controls.Add(Type:=msoControlEdit, temporary:=True)
objCommmBarContror.Width = 2 * objCommmBarContror.Width
objCommmBarContror.Text = "My Cap"

@ronick.ru · 03.10.2006, 22:54 **[ТС]**

Не...

я наверно опять не там акценты расставил

Свойства объекта на панели инструментов я могу поменять, как поменять свойства объекта в меню на панели инструментов?!
т.е. Есть меню допустим Файл в нем есть пункт меню допустим сохранить...вот именно этого пункта и нужно свойства изменять...т.е. речь идет не о той ситуации когда кнопка или текстбокс находятся на панели инструментов, а о той, когда они находятся в меню (созданном на панели инструментов)

@ronick.ru · 04.10.2006, 22:48 **[ТС]**

Вообщем сделал вот так, может кому пригодится:
Application.CommandBars("MyMenu").Contro ls("Реквизиты").Controls("Номер документа").Text = "1"

@VladConn · 05.10.2006, 00:54

Так почему тогда "<SPAN id=ctl03_ctlTopic_ctlPanelBar_ctlTopicsR epeater_ctl09_lblFullMessage>Не...", если вы в сущности сделали тоже самое?</SPAN>

@ronick.ru · 06.10.2006, 15:06 **[ТС]**

Меня интересовал именно доступ к свойствам пунктов меню созданного на панели инструментов, тот макрос который вы писали создавал текстбокс на самой панли инструментов и изменял его свойства...
Мне просто нужно было понять вот это: Controls("***").Controls("***")
Хотя я тут читал, что обращение к объектам панели инструментов через их имя - это не самый лучший вариант...

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@ronick.ru 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 72

	Как изменить свойство пункта меню? 03.10.2006, 22:05. Показов 2015. Ответов 5 Метки нет (Все метки) Есть свой CommandBar, в нем есть меню, в меню есть текстбокс. Как средствами VBA изменять его свойства например размер или содержание? 0

@ronick.ru 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 72
	03.10.2006, 22:54 [ТС]
	Не... я наверно опять не там акценты расставил Свойства объекта на панели инструментов я могу поменять, как поменять свойства объекта в меню на панели инструментов?! т.е. Есть меню допустим Файл в нем есть пункт меню допустим сохранить...вот именно этого пункта и нужно свойства изменять...т.е. речь идет не о той ситуации когда кнопка или текстбокс находятся на панели инструментов, а о той, когда они находятся в меню (созданном на панели инструментов) 0

@ronick.ru 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 72
	04.10.2006, 22:48 [ТС]
	Вообщем сделал вот так, может кому пригодится: Application.CommandBars("MyMenu").Contro ls("Реквизиты").Controls("Номер документа").Text = "1" 0

@VladConn 6 / 6 / 3 Регистрация: 17.10.2007 Сообщений: 1,119
	05.10.2006, 00:54
	Так почему тогда "<SPAN id=ctl03_ctlTopic_ctlPanelBar_ctlTopicsR epeater_ctl09_lblFullMessage>Не...", если вы в сущности сделали тоже самое?</SPAN> 0

@ronick.ru 0 / 0 / 0 Регистрация: 12.12.2010 Сообщений: 72
	06.10.2006, 15:06 [ТС]
	Меня интересовал именно доступ к свойствам пунктов меню созданного на панели инструментов, тот макрос который вы писали создавал текстбокс на самой панли инструментов и изменял его свойства... Мне просто нужно было понять вот это: Controls("*").Controls("*") Хотя я тут читал, что обращение к объектам панели инструментов через их имя - это не самый лучший вариант... 0