задать свойство ICON

[Tony]

День добрый господа... столкнулся с такой проблемой...
Создается панель инструментов на нее навешиваются кнопки... хочу кнопку без текста... чисто иконкой.. но своей... и иконка есть... но как ее туда поместить?

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

With Application.CommandBars.Add("panel", msoBarBottom, False, True)
    .Visible = True
    With .Controls
        With .Add(msoControlButton)
            .TooltipText = "preferens"
            .Style = msoButtonIcon
            .OnAction = "prop"
            .Visible = True
        End With
    End With
End With


Есть книжка по VBA так вот там сказано что для отображения иконки в свойствах объекта CommandBarControl надо задать Icon но не один из авторов не догадался хоть маленький примерчик привести...

Люди помогите... А то кнопки с простыми надписями там грустно смотряться....

[Vitaly1]

Во первых, можно поместить только стандартные иконки в пункт меню.

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

[Tony]

Во первых, можно поместить только стандартные иконки в пункт меню.

Грустно...

Во, вторых, через свойство пункта меню задается код иконки, имя свойства к сожалению не помню.

имя свойства ID вдруг кому пригодится...
Но копать и искать нужный код ей богу утомительно....

могу принести программу выдающую иконки и их коды, а вней и имя свойства есть

Vitaly1 если не сложно... буду примного благодарен...

[Vitaly1]

'Это вставь в модуль макросов

Sub FaceIdPicture()
Dim i As Long, k As Long
Dim mButton As CommandBarButton
Msgbox "Для продолжения вывода нажимайте Еnter. Для завершение выберите пункт Выход."
k = 1
Do
Set MBar = Application.CommandBars.Add(, msoBarPopup)
With MBar
For i = 1 To 26
Set mButton = .Controls.Add(Type:=msoControlButton)
With mButton
If i = 26 Then
.Caption = "Выход"
.OnAction = "Выход"
Else
.Caption = CStr(k)
If k <= 3518 Then
.FaceId = k
k = k + 1
End If
End If
End With
Next i
.ShowPopup
.Delete
End With
Loop Until k > 3518
End Sub

Sub Выход()
End
End Sub

[Tony]

Красота! СУПЕР! все прекрасно! Огромное огромное спасибо!