Select Object Button

[pan65]

I am using Excel 2000. Near the bottom left corner is the Select Object
button with the arrow cursor icon. Can this button be toggled on and off
using VBA code? If so, how? Thanks.

 

[Rick Rothstein \(MVP - VB\)]

I think this will work (I don't have XL2000, but it works in my copy of
XL2003)...

Sub ToggleSelectObject()
Dim ctl As Object
For Each ctl In CommandBars("Drawing").Controls
If ctl.ID = 182 Then
ctl.Visible = Not ctl.Visible
End If
Next ctl
End Sub

Rick

 

[Peter T]

If you mean toggle up/down simply

CommandBars.FindControl(ID:=182).Execute

or with a bit more control

Sub Toggle182(nState As Long)
Dim ctr As CommandBarButton
Set ctr = Application.CommandBars.FindControl(ID:=182)
If ctr.State <> nState Then
ctr.Execute
End If
End Sub

Sub test()
Toggle182 msoButtonDown ' -1
Stop
Toggle182 msoButtonUp ' 0

End Sub


Regards,
Peter T

 

[Rick Rothstein \(MVP - VB\)]

I read the "toggle on and off" part of your question as asking to make the
button visible or invisible. I see Peter T read your question differently.
You might have to clarify for us exactly what you are looking for.

Rick

 

[pan65]

Thanks that was exactly what I was looking for.

If you mean toggle up/down simply

CommandBars.FindControl(ID:=182).Execute

or with a bit more control

Sub Toggle182(nState As Long)
Dim ctr As CommandBarButton
Set ctr = Application.CommandBars.FindControl(ID:=182)
If ctr.State <> nState Then
ctr.Execute
End If
End Sub

Sub test()
Toggle182 msoButtonDown ' -1
Stop
Toggle182 msoButtonUp ' 0

End Sub


Regards,
Peter T