Hello:

I was wondering how I can write a VBA code that will allow me to change the
mouse options in the control panel that switches primary and secondary
buttons. How can I access the control panel from excel? Please let me know.

Thanks.

Private Declare Function SwapMouseButton Lib "user32" (ByVal _
bSwap As Long) As Long

Function DefMouseButton(Optional nButton As Long = 0)

DefMouseButton = SwapMouseButton(nButton)
End Function


DefMouseButton 1& ' right
DefMouseButton 0 ' left


Regards,
Peter T

"art" wrote in message
...
Hello:

I was wondering how I can write a VBA code that will allow me to change
the
mouse options in the control panel that switches primary and secondary
buttons. How can I access the control panel from excel? Please let me
know.

Thanks.

Function DefMouseButton(Optional nButton As Long = 0)

better as

Function DefMouseButton(Optional nButton As Long = 0) As Long

Peter T

"Peter T" <peter_t@discussions wrote in message
...
Private Declare Function SwapMouseButton Lib "user32" (ByVal _
bSwap As Long) As Long

Function DefMouseButton(Optional nButton As Long = 0)

DefMouseButton = SwapMouseButton(nButton)
End Function


DefMouseButton 1& ' right
DefMouseButton 0 ' left


Regards,
Peter T

"art" wrote in message
...
Hello:

I was wondering how I can write a VBA code that will allow me to change
the
mouse options in the control panel that switches primary and secondary
buttons. How can I access the control panel from excel? Please let me
know.

Thanks.

Thanks. What I wanted was the window "C:\Windows\system32\main.cpl" that is
the mouse option window to display. Can you tell me how to write that.

"Peter T" wrote:

Private Declare Function SwapMouseButton Lib "user32" (ByVal _
bSwap As Long) As Long

Function DefMouseButton(Optional nButton As Long = 0)

DefMouseButton = SwapMouseButton(nButton)
End Function


DefMouseButton 1& ' right
DefMouseButton 0 ' left


Regards,
Peter T

"art" wrote in message
...
Hello:

I was wondering how I can write a VBA code that will allow me to change
the
mouse options in the control panel that switches primary and secondary
buttons. How can I access the control panel from excel? Please let me
know.

Thanks.

Thanks, I got already what I wanted:

Sub OPenMousenow()
Set ShellApp = CreateObject("Shell.Application")
ShellApp.ControlPanelItem ("C:\Windows\system32\main.cpl")
End Sub





Thanks Anyways.

"Peter T" wrote:

Function DefMouseButton(Optional nButton As Long = 0)

better as

Function DefMouseButton(Optional nButton As Long = 0) As Long

Peter T

"Peter T" <peter_t@discussions wrote in message
...
Private Declare Function SwapMouseButton Lib "user32" (ByVal _
bSwap As Long) As Long

Function DefMouseButton(Optional nButton As Long = 0)

DefMouseButton = SwapMouseButton(nButton)
End Function


DefMouseButton 1& ' right
DefMouseButton 0 ' left


Regards,
Peter T

"art" wrote in message
...
Hello:

I was wondering how I can write a VBA code that will allow me to change
the
mouse options in the control panel that switches primary and secondary
buttons. How can I access the control panel from excel? Please let me
know.

Thanks.

Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0",
vbNormalFocus)

Regards,
Peter T

"art" wrote in message
...
Thanks. What I wanted was the window "C:\Windows\system32\main.cpl" that
is
the mouse option window to display. Can you tell me how to write that.

"Peter T" wrote:

Private Declare Function SwapMouseButton Lib "user32" (ByVal _
bSwap As Long) As Long

Function DefMouseButton(Optional nButton As Long = 0)

DefMouseButton = SwapMouseButton(nButton)
End Function


DefMouseButton 1& ' right
DefMouseButton 0 ' left


Regards,
Peter T

"art" wrote in message
...
Hello:

I was wondering how I can write a VBA code that will allow me to change
the
mouse options in the control panel that switches primary and secondary
buttons. How can I access the control panel from excel? Please let me
know.

Thanks.