I just copy and paste to Word. I have a 505-sized document template (3.57 x 4.82", 0" margins.) I run a macro to resize images, and saveas PDF.
Macro (I'm sure somebody here could optimize it; I call out the same code twice. It works, though.)
Sub SonyResizeImages()
Dim shp As InlineShape
For Each shp In ActiveDocument.InlineShapes
If shp.Width > 250 Then
If shp.Height > 320 Then
shp.Height = 320
End If
shp.Width = 250
End If
If shp.Height > 320 Then
shp.Height = 320
End If
Next shp
End Sub
|