Toggle Button in a Toolbar

[amitmohantybbsr]

Can anyone tell me how to create a toggle button in a Toolbar in Excel
VBA?

Thanks,
Amit

 

[Bob Phillips]

Here is an example that uses click to set the calculation mode to manual,
shift-click to automatic, and changes the tooltiptext to show whixh mode it
is in.

Sub SetCalculateMode() 'Shifted is automatic, unshifted is manual
Dim sMode As String
Dim nState As Long


If GetKeyState(vkShift) < 0 Then
Application.Calculation = xlAutomatic
sMode = "Automatic"
nState = msoButtonDown
Else
Application.Calculation = xlManual
sMode = "Manual"
nState = msoButtonUp
End If
With Application.CommandBars.ActionControl
.TooltipText = "Calculation mode is " & sMode
.State = nState
End With


End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

 

[amitmohantybbsr]

Thanks for your reply. I will try to implement it.