Resize {IncludePicture} - avoid 'Selection'

[NobodysPerfect]

Hi to all,



I just finished the following macro, but I'd like to run it without 'Selection'. Unfortunately I do not know how to 'Set' the found { IncludePicture } field to something.

Sub ResizeIncludePicture()
Dim oField As Field, dFactor As Double
Const cNewWidth = 5

    For Each oField In ActiveDocument.Fields
        If oField.Type = wdFieldIncludePicture Then oField.Select
        With Selection.InlineShapes(1)
            dFactor = .Height / .Width
            .Width = CentimetersToPoints(cNewWidth)
            .Height = dFactor * .Width
        End With
    Next

End Sub

Any help would be appreciated - as usually

NP

[macropod]

You could use:

Sub ResizeIncludePicture()
Dim oField As Field, dFactor As Double
Const cNewWidth = 5
For Each oField In ActiveDocument.Fields
    If oField.Type = wdFieldIncludePicture Then
        With oField.Result.InlineShapes(1)
            dFactor = .Height / .Width
            .Width = CentimetersToPoints(cNewWidth)
            .Height = dFactor * .Width
        End With
    End If
Next
End Sub

[NobodysPerfect]

"Result" that's it

Thanks Paul
NP