Word 2003 Formatting

[JD]

I just inserted several hundred powerpoint slides into a Word doc via the
"Send to" function in ppt. Now I want to increase the size of the slide
objects by 25% - does anyone know how I can select all objects and increase
their size together? It this cannot be done, I'll have to do each one
individually and that will take me forever.

Thanks

JD

 

[DeanH]

If the images are floating, ie not formatted as InLineWithText, you can use
the Select Multiple Objects icon, from the Drawing toolbar. This allows the
selection of mulitple objects at once, the the Picture Format can be used.
This icon is not a default to show, so you may need to search for it in the
Customise listing.
If the images are InLineWithText, I have included a macro that I use to
force all images to a certain width. I am not that au fait with macro writing
so either use this one and change the centimeter value to what you want, or
edit the macro to do percentage.

Sub ResizePictureWidth()
' Macro to Resize ALL pictures in the document

Dim inshpPower As InlineShape
Dim sngOldWidth As Single
Const sngNewWidth As Single = 13.5
With ActiveDocument
If .InlineShapes.Count > 0 Then
For Each inshpPower In .InlineShapes
With inshpPower
sngOldWidth = .Width
.Width = CentimetersToPoints(sngNewWidth)
.Height = CentimetersToPoints(((.Height * sngNewWidth) /
sngOldWidth))
End With
Next
Else
MsgBox "There are no shapes in this document.", _
vbExclamation, "Cancelled"
End If
End With
End Sub

I have this macro assigned to an icon I designed, so one clcik does all.

Hope this helps
DeanH

 

[JD]

Dean -

Thanks bunches!! The macro didn't work initially but I had a buddy of mine
at work mess with it and voila!

THANKS again!!

JD

 

[DeanH]

Glad it works for you.
I got the original of this macro from this forum and edited it to my
requirements.
Did you change the width value or change the macro to percentage?
Just be nosey
DeanH

 

[JD]

This is what we ended up with -- it worked perfectly!!!

Sub ResizePictureWidth()
' Macro to Resize ALL pictures in the document
Dim inshapePower As InlineShape
Dim sngOldWidth As Single
Dim sngOldHeight As Single
Const sngNewWidth As Single = 5.02
Const sngNewHeight As Single = 3.75
With ActiveDocument
If .InlineShapes.Count > 0 Then
For Each inshapePower In .InlineShapes
With inshapePower
.Width = InchesToPoints(sngNewWidth)
.Height = InchesToPoints(sngNewHeight)
End With
Next
Else
MsgBox "There are no more objects in this document.", _
vbExclamation, "Cancelled"
End If
End With
End Sub

THANKS again!!!

JD

 

[DeanH]

Looks good.
Comparing the two, the obvious difference is that I went for the maintain
ratio of the height when changing the width, you dictated the actual values
required.
Glad this helped. All the best.
DeanH