Hello,
I got a problem with a macros which have to resize imported images, crop them to specific size and ordering them 3x3 per page. Can you help me with the code?
For the moment I succeeded to make this:
Sub Macro1() '15 sm = 5.905512 '13 sm = 5.11811 '10 sm = 3.937008 '9 sm = 3.543307 NumberImages = 2 DimensionX = 5.905512 DimensionY = 3.937008 ActiveDocument.ReferencePoint = cdrCenter For i = 1 To NumberImages If ActiveLayer.Shapes(i).SizeWidth > ActiveLayer.Shapes(i).SizeHeight Then ActiveLayer.Shapes(25).Rotate 90# ActiveLayer.Shapes(i).SetSize 0, DimensionY If ActiveLayer.Shapes(i).SizeWidth < DimensionX Then ActiveLayer.Shapes(i).SetSize DimensionX, 0 End If Next End Sub
But cropping each image to the dimensions don't want to work. Any help with arranging 3x3 per page and centering them on each page A3 will be great.