#1
|
||||
|
||||
resizing pictures
I have a 25 page document. Each page is an inserted JPG picture. I need to resize them. I can right click on one and resize it but I don't know how to resize all of them at once. Can it be done? How?
Thanks. Jim B. |
#2
|
||||
|
||||
If the pictures are floating, having resized one picture, you can select all of remainder then press F4 to apply the same dimensions. If they're inline with text, having resized one picture, you can select each of remainder in turn, press F4 to apply the same dimensions to them one at a time.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
||||
|
||||
Thanks. But...
I resized one - closed the dialog box - clicked on the next picture and pressed F4. Nothing happened. Maybe I'm missing something....Sounds simple enough. Jim |
#4
|
||||
|
||||
I'd suggest trying again - it definitely works in all Word versions. Make sure you don't select anything more that the picture or do anything else in-between resizing the first one, then clicking on the second one to resize it via F4.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
||||
|
||||
I've resized the first picture (page 1). Closed the dialog box. scrolled down to the next picture (page 2). clicked on it and hit F4. nothing happened...
Maybe I could send you the first 4 pages of the doc and you could take a look at it? Jim. |
#6
|
|||
|
|||
Quote:
|
#7
|
|||
|
|||
For a different approach altogether, use the Link option to insert the images and do any resizing you need with a graphics editor.
|
#8
|
||||
|
||||
That would work but it doesn't solve the problem of not being able to resize them all at once.
|
#9
|
|||
|
|||
Photoshop, for one, will let you set up a batch resize. Other editors may well offer the same, either as a built-in function or with the help of a platform-based macro utility.
|
#10
|
||||
|
||||
eNGiNe: Photoshop & other image editors aren't particularly useful for changing the display size of a picture in Word.
Jimbir & fumei: F4 is a standard Word/Windows function for repeating the last action. Unless something/someone has re-assigned that key, F4 should work to repeat the resizing; it does for me and I've used it with multiple Windows/Word versions.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#11
|
|||
|
|||
hmmmm, F4 does not do that for me in Word, or IE, or PolyView, or Explorer or Photoshop. Let me switch to a different computer and try it there...
Nope. Now I did check in Customize (Word), and yes F4 is listed as the keyboard shortcut for EditRedoOrRepeat. However, again, performing the actions previously: Resizing one image. Selecting another, pressing F4 Does nothing. Hmmmmm |
#12
|
||||
|
||||
OK, since F4 isn't working for you folk, try the following macro. In it, there's code to reformat both floating and inline pictures. All you should need to do before running the macro is to set the picture scaling or dimensions to suit your requirements (and Delete/Comment out whichever you don't use), plus tell the macro whether the aspect ratios should be preserved (if you set this to True, you only need to set the scaling or dimensions for either the height or the width). As it runs, each picture (or other 'object') will be selected and you'll be asked whether to resize it. You have Yes, No & Cancel options. Cancelling exits the macro.
Code:
Sub ReformatPics() Dim oShp As Shape, iShp As InlineShape, Rslt, bLockAspectRatio As Boolean Dim sngScHght As Single, sngScWdth As Single, sngHght As Single, sngWdth As Single ' Set Pic Dimensions here bLockAspectRatio = True sngScHght = 70: sngScWdth = 70 sngHght = CentimetersToPoints(10) sngWdth = CentimetersToPoints(15) With ActiveDocument For Each oShp In .Shapes With oShp .Select Rslt = MsgBox("Resize this picture?", vbYesNoCancel) If Rslt = vbCancel Then Exit Sub If Rslt = vbYes Then .LockAspectRatio = bLockAspectRatio ' Delete/Comment out unused scaling/dimensioning parameters here .ScaleHeight sngScHght / 100, True .ScaleWidth sngScWdth / 100, True .Height = sngHght .Width = sngWdth End If End With Next For Each iShp In .InlineShapes With iShp Rslt = MsgBox("Resize this picture?", vbYesNoCancel) If Rslt = vbCancel Then Exit Sub If Rslt = vbYes Then .LockAspectRatio = bLockAspectRatio ' Delete/Comment out unused scaling/dimensioning parameters here .ScaleHeight = sngScHght .ScaleWidth = sngScWdth .Height = sngHght .Width = sngWdth End If End With Next End With MsgBox "Finished Reformatting." End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#13
|
|||
|
|||
Well I am really not sure what is happening, but I overrode the Sub attached to F4 - EditRedoOrRepeat - just to test things.
And yes, F4 does indeed fire EditRedoOrRepeat. However, again, it does NOT repeat any resizing. I have no idea why. |
#14
|
|||
|
|||
See what you mean – I'd happily forgotten what I now remember as Word's helpful tendency to resize graphics when they hit the page :-} I was thinking of my usual non-Word workflow, where I frequently edit screenshots (in a graphics editor) so they'll fit neatly into the standard margins on my page.
|
#15
|
|||
|
|||
Try it this way:
Select the first image, adjust the dimension(s) using the Size/Height, Width scroll boxes at the right end of the Picture Tools tab on the ribbon. Select the 2nd image and press F4. Works for me. Actually, only the last adjustment -- height or width -- repeats; that's what F4 does. |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Problem with resizing | Adrian187 | PowerPoint | 2 | 12-11-2012 12:18 AM |
Resizing A4 doc into A5, end with error | powerfulwhite | Word | 6 | 07-19-2012 02:16 AM |
Resizing pictures | alamorchgirl | PowerPoint | 3 | 05-27-2011 04:30 PM |
Resizing the Name range | derohanes | Excel | 4 | 05-27-2011 03:05 AM |
resizing a checkbox?? | aceensor | Excel | 0 | 05-10-2006 01:44 PM |