Just call the CompressPics method is ok.
I have no idea of the SendKeys "%a%p~", True
. Is this necessary?
Sub ResizeSelectedPicture()
On Error GoTo errorHandler
Application.ScreenUpdating = False
With selection
.PasteAndFormat (wdPasteDefault) 'Pastes in the content
.Start = .Start - 1 'move the start back one postion to include
…
Top comments (0)