Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Программирование, связанное с MS Office > Создание кнопки на панели инструментов


Автор: eugenko 13.12.2007, 12:51
Подскажите, пожалуйста, как мне создать кнопку на панели инструментов, которая бы постоянно находилась там и выполняла действие. Хочу дабавить кнопку в Microsoft Project. Что бы эта кнопка автоматически формировала Exel документ и автоматом все данные туда переносила! Вообще так можно сделать и как сделать? 
Спасибо

Автор: Akina 13.12.2007, 13:53
Вопрос относится к программированию на VBA под MS Project? переносим в соответствующий подфорум...

Автор: igor_123 14.12.2007, 18:30
Цитата

Подскажите, пожалуйста, как мне создать кнопку на панели инструментов, которая бы постоянно находилась там и выполняла действие


За ненадобностью, я никогда не устанавливал Microsoft Project, но учитывая большую похожесть ВБА в Екселе, Ворде и даже Корале, кнопку добавить на тулбар просто: включи запись макрова в екселе или ворде и добав кнопку и назначь её макрос, потом посмотри получившийся код, smile который тебе нужен один раз, для установки кнопки.

Цитата

Что бы эта кнопка автоматически формировала Exel документ и автоматом все данные туда переносила! Вообще так можно сделать и как сделать? 


Судя по ширине smile постановки вопроса программированием на ВБА заниматся не доводилось, иначе вопросы были-бы не "хочу всего и сразу", а более конкретные и по существу вопроса smile
К сожалению помочь в проджектом не могу, т.к. никогда его в глаза не видел :-( , советую во первых озаботится покупкой соответствующей литературы, во вторых начать эксперементировать и читать справку по ВБА не только для Project, но и для Екселя, и на форумах спрашивать то что не получается с кодом, а не нечто глобальное smile, как этот вопрос,  иначе в лучшем случае просто проигнорируют, а то и послать могут.

Удачи!

Автор: mihanik 24.12.2007, 18:27
igor_123,  smile 

Автор: mihanik 24.12.2007, 19:37
Вот так я создавал кнопки и панели в MS Outlook

Код

' Подключимся к панели меню приложения...
    Set objOutlook = Application
    Set objMenuBar = objOutlook.ActiveWindow.CommandBars("Menu Bar")
  
' Если на панели остались мои кнопки с предыдущих сеансов, то удалим их
    For Each i In objMenuBar.Controls
        If i.Caption = "Synhronyse" Then i.Delete
    Next
 
' Создадим свою кнопку в панели меню и придадим ей нужный вид...
    Set MyButton = objMenuBar.Controls.Add(Type:=msoControlButton)
    With MyButton
        .BeginGroup = True
        .Style = msoButtonIconAndCaption
        .FaceId = 195
        .Caption = "Synhronyse"
        .OnAction = "MyButton_Click"
    End With
 


Поможет?

Автор: Staruha 24.12.2007, 21:52
Панель инструментов-настройки - там есть кнопка с рожицей -Вешай на нее любой макрос

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)