I use ctrl+ the number pad to change the point size of fonts. I just got thinking, it would be nice to use the same commands for making the current selection larger or smaller too. Maybe 2 and 8 would be down and up by 1 percent of current size and 4-6 could be 1% of original size. 5 would be 'return to 100% of original size.
And then I thought, if I post it to the forum, one of the other geniuses here would tell me that a command already exists and then I'd know what it is.
So now I wait...
Try the attached DupInPlace macro I wrote when I got a "travelling" laptop that does NOT have any NumPad keys at all. I assigned the shortcut + to it. (Shift and the += key just as if you were typing a plus sign).
Here's the macro written out in case you want to see it in writing:
-------------------------------
Sub DupInPlace()
Dim OrigSelection As ShapeRange
Set OrigSelection = ActiveSelectionRange
Dim dup1 As ShapeRange
Set dup1 = OrigSelection.Duplicate
End Sub
---------------------------------
Patti
P.S. I think I posted this in the wrong thread. See this one instead.
Silvio (Win) Gomes said:I also agree with your suggestion about the possibility to resize objects via the keyboard.
I just setup the following:
Sub Larger() ' Recorded 9/25/2013 Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange ActiveDocument.ReferencePoint = cdrCenter OrigSelection.Stretch (1.01)End Sub
Sub Smaller() ' Recorded 9/25/2013 Dim OrigSelection As ShapeRange Set OrigSelection = ActiveSelectionRange ActiveDocument.ReferencePoint = cdrCenter OrigSelection.Stretch (0.99)End Sub
Then I assigned CTRL+NUMPAD+ and CTRL+NUMPAD- respectively. seems to work so far. it increases/decreases by 1% relative to current size.
Works so far, no conflicts.
Hi Mike,
Your Macro works (increase/decrease) but it DUPLICATES the object (overlapping) when Increasing.
Is it possible only increase object (not duplicate it)?
The same is not true when the size is Decreased, object does not duplicate > I think that's better.
Silvio (Win) Gomes said: Hi Mike Your Macro works (increase/decrease) but it DUPLICATES the object (overlapping) when increasing. Is it possible only increase object (not duplicate it)? The same is not true when the size is decreased, object does not duplicate > I think that's better.
Hi Mike
Your Macro works (increase/decrease) but it DUPLICATES the object (overlapping) when increasing.
The same is not true when the size is decreased, object does not duplicate > I think that's better.
apparently CTRL+NUMPAD+ is a 'hidden' shortcut that isn't listed on the sheet. Macro works fine, but it also dulicates the object as you say. Not sure how I missed that when I tested it.
Re assign the shortcuts I used CTRL+NUMPAD1 and CTRL+NUMPAD3 as they were not taken and they are similar to using 4 and 6 for changing the point size of text (Although I can't remember if I set that up or if corel was already set up that way.) But either way, it's the shortcut button that is the problem.
It is working fine. I changed shortcuts to:
INCREASE > Ctrl + 2
DECREASE > Ctrl+ 1
I chose these numbers by analogy:
2 is bigger than 1> then INCREASE.
1 is less than 2 > then DECREASE.
Thank you!