Visual Basic

0
down vote
favorite
I have tried the following code copied from various websites but I am no programmer. I want the image to load at the right hand side of the screen in Word opposite the cursor position. Currently it loads at the top of the document or the centre of the first page if I use .Top = wdShapeCenter

The code is as follows:

Sub Apic() 
Dim openDialog As Office.FileDialog
Dim shp As Shape

Set openDialog = Application.FileDialog(msoFileDialogFilePicker)
  openDialog.Filters.Clear
  openDialog.Filters.Add "JPEG Files", "*.jpg"
  openDialog.Filters.Add "Gif Files", "*.gif"
  openDialog.Filters.Add "PNG Files", "*.png"
  openDialog.Filters.Add "All Files", "*.*"
  If openDialog.Show Then
    imageName = openDialog.SelectedItems(1)
  End If

  Set shp = ActiveDocument.Shapes.AddPicture( _
     FileName:=imageName, _
       SaveWithDocument:=True, _
      Anchor:=ActiveDocument.Paragraphs(1).Range)
    With shp
    .Name = "PictureInsert"
    .LockAspectRatio = True
    .WrapFormat.AllowOverlap = False
    .WrapFormat.Side = wdWrapTight
    .WrapFormat.Type = 1
    .RelativeHorizontalPosition = _
         wdRelativeVerticalPositionMargin
    .RelativeVerticalPosition = _
        wdRelativeVerticalPositionMargin
    .Left = wdShapeRight
'    .Top = wdShapeCenter
  End With
End Sub
vba word