Format Object in Microsoft Word

For PowerPoint:

If you are talking about the physical size, rather than the amount of disk
space, then the only way I know is to use a macro. If you just want to
adjust the disk space they are taking up, you can compress all the pictures
within PowerPoint (click on the picture, choose Picture from the Format
menu and click on compress, being sure to choose to compress all pictures. :)

For Word:
I assume that the PowerPoint objects are inline with text in the cells. If
that is the case, use this macro. Just change "sngNewHeight" to the value (in
inches) that you need for the height of the slides in Word. In this code the
value is 2.5 inches.

Sub ResizePowerPoint()

Dim tblPower As Table
Dim rgeTable As Range
Dim inshpPower As InlineShape
Dim sngOldHeight As Single
Const sngNewHeight As Single = 2.5

If ActiveDocument.Tables.Count > 0 Then
For Each tblPower In ActiveDocument.Tables
Set rgeTable = tblPower.Range
If rgeTable.InlineShapes.Count > 0 Then
For Each inshpPower In rgeTable.InlineShapes
With inshpPower
sngOldHeight = .Height
.Height = InchesToPoints(sngNewHeight)
.Width = InchesToPoints(((.Width * sngNewHeight) /
sngOldHeight))
End With
Next
End If
Next
Else
MsgBox "There are no tables in this document.", _
vbExclamation, "Cancelled"
End If

End Sub

Please post back if you have any more problems or questions.
If this information is useful, please mark as helpful. Thanks.