macros

[Frustrated Frame User]

How can I create a macro that recursively searches a document and resizes
graphics to a specific value?

 

[Jonathan West]

How can I create a macro that recursively searches a document and resizes
graphics to a specific value?

need more information.

Are the graphics "floating" or "inline"

Do you want them all resized to the same width, the same height, or some
percentage of their current size?


--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

 

[Ed]

One way would be to record a macro doing the resize on one graphic, then
loop that code through the whole document. A couple of things to consider:
-- Are all of these graphics the same thing? Or a mixture of photos,
charts, metafiles, etc? That can make a difference on how VBA has to
"touch" the graphic to work with it.
-- Is there a way to use a graphics editor program to do this outside of
Word? Any time you touch a graphic in Word, the program stores a lot of
metadata, and sometimes two or more versions of the graphic, depending on
what it is and what you've done to it. This can bloat your document to
incredible size!

HTH
Ed

 

[Frustrated Frame User]

Jonathan,

All the graphics are inline, assigned to a custom paragraph style and i want
to resize them by a percentage of the current size.

 

[Jezebel]

Dim pShape as Word.InlineShape

For each pShape in ActiveDocument.InlineShapes
with pShape
.Width = .Width * FACTOR
.Height = .Height * FACTOR
end with
Next

 

[Robert Werner]

Is the p in pShape an arbitrary character or is this specifically defined in
VB?

 

[Jezebel]

pShape is an arbitrary variable name. InlineShape is an object in the Word
object model.

 

[Robert Werner]

Is there a book on VB scripting fro beginners you can recommend?

 

[Jezebel]

This is VBA not VB scripting. The books I've looked at all seemed much the
same to me.