![]() |
#1
|
|||
|
|||
![]()
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:
Code:
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 Chris |
#2
|
||||
|
||||
![]()
Hi.
Try disabling UAC as a test. -John |
#3
|
||||
|
||||
![]() |
#4
|
|||
|
|||
![]()
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 |
#5
|
|||
|
|||
![]() Quote:
Chris |
![]() |
Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Had to reinstall Windows lately | sallybode | General | 0 | 07-10-2010 18:45 |
fit text to curve in a windows app | dlpfis | CorelDRAW/Corel DESIGNER VBA | 5 | 17-09-2010 05:00 |
Sendkeys Test with CD12 | knowbodynow | CorelDRAW/Corel DESIGNER VBA | 1 | 18-06-2010 09:47 |
Dismissing info windows via VBA | ddonnahoe | CorelDRAW/Corel DESIGNER VBA | 2 | 03-02-2006 13:40 |
SendKeys | Lev | CorelDRAW/Corel DESIGNER VBA | 2 | 17-02-2004 11:27 |