X5 Sendkeys and Windows 7

[knowbodynow]

I have a set of macros to move objects around by their width or height. I tied these to the alt and arrow keys. However, this displaced the pan function so for panning I use crtl+alt+arrow key. I have some code that will send the pan command if no object is selected. Here's the code for moving right:

Sub moveRight()

    ActiveDocument.ReferencePoint = cdrCenter
    ActiveDocument.Unit = cdrMillimeter

    If ActiveDocument Is Nothing Then Exit Sub
    
    If ActiveSelection.Shapes.Count = 0 Then
    
        SendKeys "^%{right 4}", True
        Exit Sub
        
    End If

    x = ActiveSelection.Shapes(1).SizeWidth
    ActiveSelection.Move x, 0

End Sub

This code worked fine with XP. However I'm now using Windows 7 64 bit and when I try to run it I'm getting run-time error 70, permission denied. I switched off anti-virus etc to see if that was causing the problem, but it wasn't. So my long-winded question is how to make sendkeys work with X5 vba on Windows 7 64 bit. Thanks!

Chris

[runflacruiser]

Hi.
Try disabling UAC as a test.
-John

[shelbym]

You can also give this a look:

http://vb.mvps.org/samples/SendInput/


-Shelby

[knowbodynow]

Originally Posted by runflacruiser

Hi.
Try disabling UAC as a test.
-John

No error message with UAC on default setting using my Admin account. .But an error when using my Standard User Account. Maximum security setting causes an error with my Admin account so it is pretty clear that UAC is the culprit. However I'm loathe to disable it completely. Any alternatives?

Thanks,

Chris

[knowbodynow]

Originally Posted by shelbym

You can also give this a look:

http://vb.mvps.org/samples/SendInput/


-Shelby

Thanks Shelby, I looked at that page but not sure what to do to incorporate the ideas there.

Chris