hat jemand auf die schnelle einen Code für mich womit ich
Symbole(Icon) mir anzeigen lassen kann und bei makieren mir
die ID gezeigt wird?
Danke
der Chris
Option Explicit
Private Const MyCmdBarName$ = "Icons"
'Private Sub Workbook_BeforeClose(Cancel As Boolean)
' On Error Resume Next
' Application.CommandBars(MyCmdBarName$).Delete
'End Sub
Public Sub SubMain()
Dim MyCmdBar As CommandBar, MyCmdBarButton As CommandBarButton, i
If (CmdBarExists(MyCmdBarName$) = False) Then
Set MyCmdBar = Application.CommandBars.Add
With MyCmdBar
.Name = MyCmdBarName$
.Left = 200
.Top = 200
.Position = msoBarFloating
.Protection = msoBarNoProtection
.Visible = True
End With
For i = 1 To 500
Set MyCmdBarButton = MyCmdBar.Controls.Add(Type:=msoControlButton)
On Error Resume Next
MyCmdBarButton.FaceId = i
MyCmdBarButton.TooltipText = i
Next i
End If
End Sub