Image alignment disturbs in Pastespecial

Thanks you .By the way where are you from.
Anand

"Jean-Guy Marcil" wrote in message
...
Bonjour,

Dans son message, anand écrivait :
In this message, anand wrote:

|| Bonjour ,
|| My problem was that after Pasting the image back to its place the
texts
|| were not moving to right place so was creating problem.Anyways now
cheers
we
|| got the perfect macro does not disturb any thing what so ever.Thanks
for
|| your throughout support,
||
|| Regards
|| Anand

Glad you sorted things out!

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
ISTOO
Word MVP site: http://www.word.mvps.org

Bonjour,

Dans son message, anand écrivait :
In this message, anand wrote:

|| Thanks you .By the way where are you from.

Montreal, why?

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
ISTOO
Word MVP site: http://www.word.mvps.org

Jus like that, any ways, well that code is working fine with 2003 , not with
2000, initially i thought it might be problem of libraries as 2000 uses
microsoft office 9.0 object liabrary and 2003 uses version 11.0, but it
surprisingly it works when we debug with Key F8.
have been lookin for some work around .any suggestion , here is the code.
-----------------------------
sub Convert()

Dim MyPix As Shape
Dim PastedPix As Shape
Dim MyRange As Range
Dim PixWrap As Long
Dim PixWrapSide As Long
Dim PixTop As Long
Dim PixLeft As Long

Set MyRange = Selection.Range

For Each MyPix In ActiveDocument.Range.ShapeRange

If MyPix.Type = msoPicture Then

With MyPix
With .WrapFormat
PixWrap = .Type
PixWrapSide = .Side
End With
PixTop = .Top
PixLeft = .Left
.Select
End With

Selection.Cut

Selection.PasteSpecial Link:=False, DataType:=13, Placement:= _
wdFloatOverText, DisplayAsIcon:=False
Set PastedPix = Selection.ShapeRange(1)
With PastedPix
With .WrapFormat
.Type = wdWrapTight
.Side = PixWrapSide
.AllowOverlap = msoFalse
End With

.LockAnchor = msoFalse
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.Top = InchesToPoints(1.75)
.RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn
.Left = PixLeft
.Top = PixTop
End With

Set PastedPix = Nothing

End If
Next MyPix

MyRange.Select

Set MyRange = Nothing

end sub
-------------------------------
"Jean-Guy Marcil" wrote in message
...
Bonjour,

Dans son message, anand écrivait :
In this message, anand wrote:

|| Thanks you .By the way where are you from.

Montreal, why?

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
ISTOO
Word MVP site: http://www.word.mvps.org