Changing Object Sizes

[ceecld]

I have the following code, which i use to change to size of screen dumps to 55% so i can get two objects per page.

I was wondering how i change it so that it only chnages the object which I have selected?

Sub ipsa55()

Dim Inl As InlineShape

For Each Inl In ActiveDocument.InlineShapes
Inl.ScaleHeight = 55
Inl.ScaleWidth = 55
Next

End Sub


Thanks

 

[fumei]

Your code changes ALL InLine Shapes. To change just the selected object:

With Selection.InlineShapes(1)
.ScaleHeight = 55
End With

Gerry