If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Can I create a macro to crop a picture?
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. |
#2
|
|||
|
|||
Can I create a macro to crop a picture?
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" wrote in message ... 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. |
Thread Tools | |
Display Modes | |
|
|