| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Icon Macro
Can I have a macro which would list my icon's control id & description
& tell me which macro from my personal.xls is assigned to it. Thxs |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Icon Macro
Below is a macro that will find and list all custom buttons.
HTH, Bernie MS Excel MVP Sub FindAllUserDefinedButtons() Dim CmdBar As CommandBar On Error GoTo ErrorReading: For Each CmdBar In CommandBars For i = 1 To CmdBar.Controls.Count If CmdBar.Controls(i).BuiltIn = False Then ActiveCell.Value = i ActiveCell.Offset(0, 1).Value = CmdBar.Controls(i).Caption ActiveCell.Offset(0, 2).Value = CmdBar.Name ActiveCell.Offset(0, 3).Value = CmdBar.Controls(i).ID ActiveCell.Offset(0, 4).Value = CmdBar.Controls(i).OnAction ActiveCell.Offset(1, 0).Select On Error GoTo ErrorReading: If CmdBar.Controls(i).Type = msoControlPopup Then For j = 1 To CmdBar.Controls(i).Controls.Count ActiveCell.Value = "'" & i & " / " & j ActiveCell.Offset(0, 1).Value = CmdBar.Controls(i).Controls(j).Caption ActiveCell.Offset(0, 2).Value = CmdBar.Name ActiveCell.Offset(0, 3).Value = CmdBar.Controls(i).ID ActiveCell.Offset(0, 4).Value = CmdBar.Controls(i).Controls(j).OnAction ActiveCell.Offset(1, 0).Select Next j End If End If ErrorReading: Next i Next CmdBar End Sub "al007" wrote in message oups.com... Can I have a macro which would list my icon's control id & description & tell me which macro from my personal.xls is assigned to it. Thxs |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Icon Macro
Excellent !! - Exactly what I wanted - many thxs
Bernie Deitrick wrote: Below is a macro that will find and list all custom buttons. HTH, Bernie MS Excel MVP Sub FindAllUserDefinedButtons() Dim CmdBar As CommandBar On Error GoTo ErrorReading: For Each CmdBar In CommandBars For i = 1 To CmdBar.Controls.Count If CmdBar.Controls(i).BuiltIn = False Then ActiveCell.Value = i ActiveCell.Offset(0, 1).Value = CmdBar.Controls(i).Caption ActiveCell.Offset(0, 2).Value = CmdBar.Name ActiveCell.Offset(0, 3).Value = CmdBar.Controls(i).ID ActiveCell.Offset(0, 4).Value = CmdBar.Controls(i).OnAction ActiveCell.Offset(1, 0).Select On Error GoTo ErrorReading: If CmdBar.Controls(i).Type = msoControlPopup Then For j = 1 To CmdBar.Controls(i).Controls.Count ActiveCell.Value = "'" & i & " / " & j ActiveCell.Offset(0, 1).Value = CmdBar.Controls(i).Controls(j).Caption ActiveCell.Offset(0, 2).Value = CmdBar.Name ActiveCell.Offset(0, 3).Value = CmdBar.Controls(i).ID ActiveCell.Offset(0, 4).Value = CmdBar.Controls(i).Controls(j).OnAction ActiveCell.Offset(1, 0).Select Next j End If End If ErrorReading: Next i Next CmdBar End Sub "al007" wrote in message oups.com... Can I have a macro which would list my icon's control id & description & tell me which macro from my personal.xls is assigned to it. Thxs |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Icon Sets - Display icon in one cell depending upon value in anoth | Excel Worksheet Functions | |||
| macro - stop recording icon | Excel Discussion (Misc queries) | |||
| macro icon | Excel Programming | |||
| Can Excel Macro DoubleClick Icon? | Excel Programming | |||
| Executing a Macro From a Desktop Icon | Excel Programming | |||
Linear Mode
