Macro to resample bitmap image at 105% each time run.

Reply

GermansonArts Posted: Thu, Oct 2 2008 9:51

rated by 0 users

I've tried recording a macro to resample a bitmap image at +105% each time it runs. Unfortunately, the macro records absolute information, not relative.

So, it'll record the pixel information for width and height. The next time I run the macro, nothing changes because it recorded the previous information. Is there a way to record percentage increases?

I found that I get better results if I need to increase an image to do so incrementally... and I'd like to automate this task.

I'd appreciate any help.

- Tom.

Reply

Rikk Flohr replied on Thu, Oct 2 2008 14:48

rated by 0 users

 You can edit the script that is created during the macro record and save to remove the reference to the size of the image being input.  Foster demo'd this a few years back at CorelWorld and he might have something about it at Unleash.com

Reply

andyaxa replied on Wed, Oct 7 2009 16:02

rated by 0 users

What would the edit look like? Below is the macro created to resample 105%. Thanks for any help!!

Sub Macro1()
    '
    ' Recorded 10/7/2009
    '
    ' Description:
    '
    '
    Dim OrigSelection As ShapeRange
    Set OrigSelection = ActiveSelectionRange
    OrigSelection(1).Bitmap.Resample 1862, 2422, True, 136, 136
End Sub