AboutDale F. Wiley Expertise Microsoft Word 97
Microsoft Word 2000
Microsoft Word 2002
Please note: I will not answer questions about
Fields, Statements, Formulas, Macros, creating and writing specific macros, VBA (Visual Basic Editor) and the Microsoft Script Editor
I am willing to answer questions about:
Envelopes, Mailing Labels, Database, Graphics, WordArt, Interactive Forms, Formatting, Faxes, Letters, Lists, Newsletters, Tables, Web Pages, Email, Hyperlinks, Bookmarks, HTML, Table of Contents, Footnotes, Endnotes, AutoText, AutoCorrect, Headers and Footers, Converting Documents, Customizing Toolbars and Toolbar Icons, Margins, Page Settings, Layout, Dictionaries, Languages, Find and Replace, Mail Merge, Printing, Saving Cut, Copy, Paste, Paste Special, Office Clipboard, Keyboard Shortcuts, Font Lists, Customizing, Options, Templates, Bullets, Numbering, Borders, Using Themes, Fields, Symbols, Document Map, Find and Replace, etc.
Experience Formerly the #1 rated Microsoft Word Expert at Askme.com since volunteering there in December 2000. In that time, responding to hundreds of questions most of which were specific to Microsoft Word.
Microsoft Office and Microsoft Word in particular is one of the most popular programs that our firm, Computer Help provides instruction, one on one tutoring and consultation. I personally use MS Word for almost every task: Envelopes, Mailing Labels, Database, WordArt, Interactive Forms, Faxes, Letters, Lists, Newsletters, Tables, Email Editor and much more. The exception, Graphics and Web Pages. For graphics I use
Ulead's PhotoImpact and Microsoft's FrontPage for web site design.
Visit any of our web sites for some great free information:
International Association of Web Masters & Designers I.A.W.M.D.
Publications
Our column, COMPUTER Help's Q&A The Internet - E-mail,
appears in the Sun City Center PC Computer Club's Newsletter.
Past columns can be accessed from our home page, select
Question I want to resize all the dozens of pictures in my word document to 200% (lock aspect ratio) [Format picture dialog, size tab, scale section]
I want to do this without having to manually click on each picture and set the setting in the Format Picture dialog.
using Word 2003
Answer Glenn, I came across the follwing in one of my newsletters. This is exactly what you are trying to do.
I can't answer any questions about this macro or any macros but this may solve the resizing problem for you.
Good luck.
Dale :-)
Scaling Graphics in a Macro
You may have a need to routinely scale graphics in your document by a certain percentage. Using the menus to do the scaling can get tiresome, so you may want to do the scaling by using a macro you can assign to a toolbar button or a shortcut key. The following macro will handle doing the scaling very nicely:
Sub PictSize()
Dim PecentSize As Integer
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)
If Selection.InlineShapes.Count > 0 Then
Selection.InlineShapes(1).ScaleHeight = PercentSize
Selection.InlineShapes(1).ScaleWidth = PercentSize
Else
Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
End If
End Sub
The macro first asks for a percentage by which you want to scale the selected image, offering 75 (75%) as the default. When you specify a percentage, the macro then checks to see if the selected graphic is an inline or a floating graphic. The reason for doing this is that the object specification is different in each case, as well as how the scaling is specified. Inline objects belong to the InlineShapes collection, while floating objects are set using the ShapeRange object.
If you want to resize all the graphics in your document by the same percentage, then you only need to modify the above macro so that it steps through each of the inline graphics and then each of the floating graphics.
Sub AllPictSize()
Dim PecentSize As Integer
Dim oIshp As InlineShape
Dim oshp As Shape
PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)
For Each oIshp In ActiveDocument.InlineShapes
With oIshp
.ScaleHeight = PercentSize
.ScaleWidth = PercentSize
End With
Next oIshp
For Each oshp In ActiveDocument.Shapes
With oshp
.ScaleHeight Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
.ScaleWidth Factor:=(PercentSize / 100), _
RelativeToOriginalSize:=msoCTrue
End With
Next oshp
End Sub
(Thanks to Yechezkel Missel, Lynn Taylor, and David G. Lett for contributing to this tip.)
Hi Glenn,
Looks like you are in luck since there is a way to do just that sort of.
However, you will have to click on each picture but only set the setting in the Format Picture dialog box just once.
First select all the picture in your document by selecting the first one then hold down the Control Key (Ctrl) and select the rest of them.
Right-click on one off the pictures and choose Format Picture and then the Size Tab
Type in 200 in the Height: box and make sure the Lock aspect ration is checked and click OK.
About Microsoft Word
This topic answers questions related to Microsoft Word stand-alone or Mircrosoft Office Word including Word 2003, Word 2007, Office 2000, and Office XP. You can get Word help on formatting text, tables, tabs, fonts, styles, general Word layouts, bullets, headings, and outlines, using templates, toolbar modifications, and using Track Changes. You may also find tips on linking Word and Excel embedded objects including charts. This site does not provide a general Word tutorial nor the basics of using a word processor. It provides specific answers to using Microsoft Word only. If you do not see your Word question answered in this area then please ask a Word question here
