Clique droit sur la toolbar, ensuite clic droit sur l'icône qui te préoccupe.
Tu peux alors lui assigner ta propre macro et ton propre code.
Par exemple:
Sub SwitchTools()
REM First check if the toolbar is shown or hidden
If CommandBars('sampler').Visible Then
REM Hide the toolbar and change the button image to 'normal'
CommandBars('sampler').Visible = False
CommandBars('switcher').Controls(1).State. = msoButtonUp
Else
REM Show the button and change the button image to 'selected'
CommandBars('sampler').Visible = True
CommandBars('switcher').Controls(1).State = msoButtonDown
End If
End Sub
Message édité par: maxoverfred, à: 08/08/2005 15:19