Вопрос про CommandBars&Timer&StatusBar&LineInput

[Hamber]

Привет всем ... К вам знатоки вопросы ...

Вопрос №1:



Мне интересно, как в CommanBars создать такие вот разделительные черты ?
====================



Верхний "Файл" - это стандартное меню

Нижний "Файл" - это тот что я создал через CommandBars. Это расскрывающиеся список с подпунктами(Закрыть,Сохранить и Выход)

Вопрос №2:

Интересно, можно ли убрать как-нибудь значок, который обозначен номером 1 - на рисунке ?

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

Вопрос №3:

Можно ли как-нибудь убрать кнопку номер "2" на рисунке.

Она служит для добавления или удаления кнопки на данную панель. Мне она тоже не нужна ...
====================

Вопрос №4:
Мне нужно в StatusBar-е показывать время до тех пор, пока работает мой проект "Work.xls".

Это делается : Application.StatusBar = Time

Но я не знаю как сделать чтобы время выводилось постоянно, т.е. каждую секунду!

Вопрос №5:
Как пользоваться Line Input ?

Я набрал Line Input #"c:\a.txt"

Она просит какой-то ещё параметр, а какой я не могу понять ...

Спасибо заранее, если поможите!

С уважением,
Михаил!

[alibek]

1. Какой именно ComandBar? Помоему ты говоришь о Toolbar? Он совсем не такой, как панель инструментов в Office XP.
2. --
3. --
4. Можешь приделать таймер, смотри хэлп к Application.OnTime.
5. Line Input #1, "C:\a.txt"
#1 - это файл, который предварительно надо открыть Open и потом закрыть Close.

[Hamber]

alibek,

Простой обычный CommandBars.

Application.CommanBars("<имя панели>")

Вот об этом я говорю .

А разве ToolBar можно поместить Как панель задач в верхнее меню !?

Мне просто нужно создать меню, которое заменит главную стандартну панель(Файл,Правка), но при этом по внешнему виду останется таким же как и стандартная...

[alibek]

А... Понял. Я почему-то подумал, что ты о Microsoft Common Controls.
Разделители, это я понимаю, свойство Application.CommandBars(...).Controls(...).BeginGroup. Если оно True, то перед элементом рисуется разделитель. А насчет стрелок - разве что с .Type поиграться, и то не уверен, что это реально.

[Hamber]

C 1ым вопросом разобрался ))) Спасибо ...

А вот как сделать таймер на OnTime, чтобы он обновлялся каждую секунду, я так и не понял =(

Помоги ...

[tyomitch]

Sub SetUp()
Application.OnTime DateAdd("s", 1, Now), "OnTime"
End Sub

Sub OnTime()
Application.StatusBar = Time
SetUp
End Sub

[Hamber]

tyomitch,

Спасибо большое!

Но ещё бы хотелось знать, как в твоём примере этот таймер останавливать ?

[tyomitch]

Dim Enabled As Boolean

Sub SetUp()
Application.OnTime DateAdd("s", 1, Now), "OnTime"
Enabled = True
End Sub

Sub ShutDown()
Enabled = False
End Sub

Sub OnTime()
Application.StatusBar = Time
If Enabled Then SetUp
End Sub

[Hamber]

Ещё вопрос где можно глянуть рисунок и под каким номером FaceId В CommandBars ?

[GSerg]

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

sub ПолучитьКартинки
  dim i as long, tmp as worksheet
 
  application.screenupdating=false
  set tmp=worksheets.add
  with application.commandbars("formatting").controls.add
    for i=1 to 1000 'можно другой предел; я просто не знаю, сколько их
      .faceid=i
      .copyface
      tmp.cells(i,2).pastespecial
      tmp.cells(i,3).value=i
    next
    .delete
  end with
  activewindow.zoom = 200
  application.screenupdating=true
end sub

[Hamber]

GSerg

Спасибо большое! Заработало +)