|
|
#4
12-02-2013, 04:26 PM
|
||||
|
||||
Try:
Code:
Sub CropIt()
On Error Resume Next
With Selection.InlineShapes(1)
.LockAspectRatio = False
With .PictureFormat
.CropLeft = CentimetersToPoints(0.5)
.CropRight = CentimetersToPoints(0.5)
.CropTop = CentimetersToPoints(0.5)
.CropBottom = CentimetersToPoints(0.5)
End With
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 How to click on one picture, and another picture will be shown?
|
unsvn | Drawing and Graphics | 18 | 09-27-2023 02:36 PM |
| Move Picture by picture name, rename picture by picture name | CatMan | PowerPoint | 2 | 04-18-2012 12:21 PM |
| VBA code to group picture to export as one | RenaatS | PowerPoint | 3 | 03-05-2012 12:40 PM |
| Powerpoint automatically changing picture size when adding a picture (2010) | One_Life | PowerPoint | 7 | 01-20-2012 06:57 AM |
| Multiple Audio Tracks - Won't trim? | Hlogan89 | PowerPoint | 0 | 09-12-2010 01:33 PM |
Windows 7 32bit 
Office 2010 32bit
Threaded Mode