Панель инструментов Office: "Show buttons on two rows" - VB
Формулировка задачи:
Как можно программно выполнить пункт "Show buttons on two rows", чтобы каждый toolbar был на своей строке.
Или каким образом можно добиться цели по другому?
Вопрос возник из следующей ситуации: на VB форме есть WebBrowser Control, в котором открываю документ Word и включаю показ Commandbars("Standard") и Commandbars("Formatting"), но при этом они располагаются в одной линии, а мне надо чтобы в двух.
Или каким образом можно добиться цели по другому?
Вопрос возник из следующей ситуации: на VB форме есть WebBrowser Control, в котором открываю документ Word и включаю показ Commandbars("Standard") и Commandbars("Formatting"), но при этом они располагаются в одной линии, а мне надо чтобы в двух.
Решение задачи: «Панель инструментов Office: "Show buttons on two rows"»
textual
Листинг программы
<font color="blue">Public</font> <font color="blue">Sub</font> SetPositions()
<font color="blue">With</font> Application.CommandBars(<font color="teal">"Standard"</font>)
.Visible = True
.Position = msoBarTop
.Left = <font color="darkblue"><b>0</b></font>
.RowIndex = <font color="darkblue"><b>2</b></font>
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">With</font> Application.CommandBars(<font color="teal">"Formatting"</font>)
.Visible = True
.Position = msoBarTop
.Left = <font color="darkblue"><b>0</b></font>
.RowIndex = <font color="darkblue"><b>3</b></font>
<font color="blue">End</font> <font color="blue">With</font>
<font color="blue">End</font> <font color="blue">Sub</font>