CommandBar

[Tuco]

Здравствуйте!
Хочу создать панель с кнопками, которые будут запускать макросы, но что бы ни делал, и с помощью форума, и с помощью хелпа, ничего не получается. Что-то не так с переменными... Подскажите, пожалуйста, как это сделать?

[RayShade]

С какими переменными?

[Tuco]

Дословно:

Код: Выделить всё

Run-time error '91':
Object variable or With block variable not set

но у меня там нет блока With...

[Amed]

Приведи чуть больше кода в окрестности ошибки, пожалуйста, а то так можно дать лишь общий совет: проверь операции присвоения переменной объекта...

[Tuco]

это то, что я накопал в хелпе:

Код: Выделить всё

Dim myBlankBtn As Object
Dim myCustomBar As Object
Dim myControl As Object

Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)

myControl.Copy Bar:=myCustomBar, Before:=1

Set myBlankBtn = CommandBars("Custom").Controls.Add

и с первой же строки он мне выдаёт сообщение...

[Amed]

Кажется, Ваша программа выглядит так:

Код: Выделить всё

Option Explicit
Private Sub Form_Load()
Dim myBlankBtn As Object
Dim myCustomBar As Object
Dim myControl As Object

Set myCustomBar = CommandBars("Custom")
Set myControl = CommandBars("Standard").Controls(1)

myControl.Copy Bar:=myCustomBar, Before:=1

Set myBlankBtn = CommandBars("Custom").Controls.Add
End Sub


И ещё подключен Word в References.

А должна, кажется, так:

Код: Выделить всё

Option Explicit
Private wrd As New Word.Application

Private Sub Form_Load()
Dim myBlankBtn As Object
Dim myCustomBar As Object
Dim myControl As Object

wrd.Visible = True

Set myCustomBar = wrd.CommandBars(1)
Set myControl = wrd.CommandBars(1).Controls(1)

myControl.Copy Bar:=myCustomBar, Before:=1

Set myBlankBtn = wrd.CommandBars(2).Controls.Add
End Sub


Необходимо использование обёекта wrd - Word.Application

Хотя я, конечно, не полностью уверен в правильности моих выводов: с VBA я работаю довольно редко и не обладаю уверенностью ))

[Tuco]

Вообще-то я с экселем работаю, а не с вордом. Как это для экселя всё сделать? Никогда не программировал для ворда...

[Amed]

Хех, а для Excel всё точно так же - только надо заменить

Word.Application на Excel.Application, т.е.

Код: Выделить всё

Private xl as New Excel.Application

И везде поменять wrd на xl

[GSerg]

Amed, не путай население
Чел кодит прямо в экселе, поэтому никаких референсов там и нью обжектов. А ошибка эта возникает просто потому, что нет у тебя, Tuco, панели инструментов "Custom" Как я понял из приведённого куска, требуется создать свою панельку, скопировать на неё одну кнопочку с панели "Стандартная", и ещё создать пустую кнопочку, не делающую ни фига. Тады так:

Код: Выделить всё

dim myCustomBar as commandbar
set mycustombar=commandbars.add
with mycustombar
  .name="Custom"
  commandbars("standard").controls(1).copy mycustombar
  .controls.add
end with

[Tuco]

как ни странно, но при запуске этого куска результат тот же.

Код: Выделить всё

Object variable or With block variable not set

[GSerg]

На какой строчке?

[Tuco]

на той, где set...

[GSerg]

Ты будешь смеяться, но у меня всё работает. У тебя Офис-то какой?
А, начинаю понимать. Ну-ка добавь option explicit в начало модуля...

[Tuco]

офис у меня 2000
а option explicit у меня всегда в начале модуля стоит, я без него не работаю...

[GSerg]

Такое ощущение, что commandbars=nothing. Посмотри в watch, так ли это. Хотя бред, конечно. Или объектная модель к чёрту поменялась, и теперь это toolbar какой-нибудь?

[Tuco]

но ведь я использовал его родной хелп... и в нём был именно commandbars.
А как пользоваться watch? К моему стыду я не знаю, что это такое

[GSerg]

View - Watch window - Add watch
Харошая вещь

[Tuco]

и дальше что делать? чего-то не пойму совсем ничего...

[GSerg]

Ну так в окне добавления watch пиши: commandbars. И будет оно добавлено. Вот и посмотришь, что там содержится.

[Tuco]

оно пишет, что Value out of context, а type - empty. Так и раньше было, только я не понимаю, что всё это значит.

[GSerg]

[Tuco]

а теперь что мне делать со всем этим счастьем?

[GSerg]

Теперь ты знаешь, как отслеживать значения переменных в рантайме... Вот и отслеживай, что там у тебя в commandbars, когда ты выполняешь макрос через F8...

[Tuco]

Я так понимаю, что нету у меня панели с кнопками?

Код: Выделить всё

    : ActionControl : Nothing : CommandBarControl :

Но ведь она-то есть!

[vrodo]

Прошу прощения что поднимаю тему 2-х годовой давности

но я нашел решение и решил поделиться

Dim newButton As CommandBarButton
Dim customBar As CommandBar
Set customBar = Application.CommandBars.Add
With customBar
Set newButton = .Controls.Add(msoControlButton, Application.CommandBars("Edit").Controls("Cut").ID)
Set newButton = .Controls.Add(msoControlButton, Application.CommandBars("Edit").Controls("Copy").ID)
Set newButton = .Controls.Add(msoControlButton, Application.CommandBars("Edit").Controls("Paste").ID)
End With