Привет всем ?
Подскажите где посмотреть кода FaceId для CommandBarButton ?

Jojo®

Все разобрался

Private Sub Ico()
Dim menu As CommandBar
Dim but As CommandBarControl
Dim i As Long

CommandBars("temp").Delete
Set menu = CommandBars.Add(Name:="temp", _
Position:=msoBarFloating, _
temporary:=True)
For i = 0 To 200
Set but = menu.Controls.Add(msoControlButton)
but.FaceId = i
but.BeginGroup = True
but.OnAction = "=MsgBox (" & i & ")"
Set but = Nothing
DoEvents
Next i

menu.Visible = True
Set but = Nothing
Set menu = Nothing
End Sub

Jojo®

Еще Подсказа на кнопке
but.Caption = CStr(i)

Jojo®

Ай какой маладес Stepler ...хахой умний джигит - возмы с полки пэрожок
Stepler ...это Stepler ...46 лет отроду а ума ...только бы на мной поприкалываться, только топики мои портишь ... ты лучше в чат иди ... там упражняйся в остроте своего ума ...там тебе место дарагой

Jojo®

Диапазончик то меняйте ! :)

For i = 500 To 800

Jojo®