Hey CM,
Good to see you back!
So far, I am just grasping for straws, time permitting.
I have tried something like this:
'Test Move Points
Dim mdpnt1N(0 To 2) As Double
Dim mdpnt1P(0 To 2) As Double
mdpnt1N(0) = 0: mdpnt1N(1) = 0: mdpnt1N(2) = 0
mdpnt1P(0) = 2.5: mdpnt1P(1) = 2.5: mdpnt1P(2) = 0
'Test Move Raster
RastImg.Move mdpnt, mdpnt1N, mdpnt1P
So, I was trying to use our existing mdpnt which we know is constant each time we define our points to a mid point of a rectangle on a title block; that is where the clipped raster will end up.
So, that would be cool; after the user chooses their points, it will magically get moved to the necessary location for them, assuming I can get it to work.
I think after the move method, we can only use 2 variables and I am using 3 above which did not work for me.
The other thing is that the mdpnt will never be the same, so how do we address that?
We could say mdpnt = RastImg.Origin then perform the move; assuming that will first shift the clipped image to the original raster origin before performing the move.
What do you think?
Thanks
Mark