Prev: Visual Basic for Word - Code for Footnotes
Next: how can I load my address book in to Outlook 2003?
From: Donna on 5 May 2010 19:44
I routinely paste print screens into word. I then crop them so I can enlarge
to easily read. I would like to have a macro to eliminate several key
strokes.
From: macropod on 6 May 2010 00:38
Hi Donna,

Here's a macro to crop a given amount of each side of a picture and then zoom in by the amount cropped.

Sub Demo()
Dim sngHeight, sngWidth, sngCrop As Single
sngCrop = 0.1
With Selection.InlineShapes(1)
sngHeight = .Height
sngWidth = .Width
With .PictureFormat
.CropLeft = sngWidth * sngCrop
.CropRight = sngWidth * sngCrop
.CropTop = sngHeight * sngCrop
.CropBottom = sngHeight * sngCrop
End With
.Height = .Height * 1 / (1 - sngCrop * 2)
.Width = .Width * 1 / (1 - sngCrop * 2)
End With
End Sub

As coded, the macro crops 10%. from each side. Change the sngCrop = 0.1 value to suit your requirements.

--
Cheers
macropod
[Microsoft MVP - Word]


"Donna" <Donna(a)discussions.microsoft.com> wrote in message news:85EF099E-6CDA-4D1D-A1CF-D75B0ED10D0A(a)microsoft.com...
>I routinely paste print screens into word. I then crop them so I can enlarge
> to easily read. I would like to have a macro to eliminate several key
> strokes.
 | 
Pages: 1
Prev: Visual Basic for Word - Code for Footnotes
Next: how can I load my address book in to Outlook 2003?