VBA - Move Shape to page within Word

[SimonGeoghegan]

Hi All,

I'm trying to find out whether its possible to move a shape to a particular page within Microsoft Word. I have code which will paste the document into the Word Document - and from there, I can adjust the position however when I change the position, it doesnt seem to change page - rather than just disappears from the original page.

The code I have is;

'Paste Table into MS Word
  myDoc.Paragraphs(1).Range.PasteSpecial
    
'Assign shape
Dim Sh As Word.Shape
With myDoc
    Set Sh = .Shapes(.Shapes.Count)
End With

'Move Shape
Sh.Select

'Size Shape
Sh.LockAspectRatio = True
Sh.Width = Sh.Width * 1.5
Sh.Height = Sh.Height * 1.5

'Position Shape
Sh.Top = Sh.Top + 200
Sh.Left = Sh.Left + 25

I've had a look online but can't seem to find anything relating to moving a shape unfortunately.

Any help greatly appreciated.

Regards,
Simon

 

[SimonGeoghegan]

Hi All - any help much appreciated, I haven't been able to resolve this as yet unfortunately

 

[SimonGeoghegan]

I've found a workaround for this now using a "Range.Paragraph" syntax which does the job