Вставка изображений в Word, ShapeLine конвертация в Shape, транспонирование

Sub AUTOGRAPH()
Dim Top As Integer
Selection.InlineShapes.AddPicture FileName:="K:\Name1.jpg", LinkToFile:=False, SaveWithDocument:=True
  Top = 700
options (Top)
Selection.InlineShapes.AddPicture FileName:="K:\Name2.jpg", LinkToFile:=False, SaveWithDocument:=True
  Top = 714
options (Top)
Selection.InlineShapes.AddPicture FileName:="K:\Name3.jpg", LinkToFile:=False, SaveWithDocument:=True
  Top = 728
options (Top)
Selection.InlineShapes.AddPicture FileName:="K:\Name4.jpg", LinkToFile:=False, SaveWithDocument:=True
  Top = 742
options (Top)
Selection.InlineShapes.AddPicture FileName:="K:\Name5.jpg", LinkToFile:=False, SaveWithDocument:=True
  Top = 756
options (Top)
Selection.InlineShapes.AddPicture FileName:="K:\Name6.jpg", LinkToFile:=False, SaveWithDocument:=True
  Top = 774
options (Top)
End Sub
 
Sub options(ShapesTop As Integer)
Dim oInShp As InlineShape
  Dim i As Long
For Each oInShp In ActiveDocument.InlineShapes
        'Масштабирование
        oInShp.LockAspectRatio = msoTrue
        oInShp.ScaleHeight = 6
        oInShp.ScaleWidth = 6
        'Транспонирование
        oInShp.PictureFormat.TransparentBackground = msoTrue
        oInShp.PictureFormat.TransparencyColor = RGB(255, 255, 255)
        oInShp.Fill.Visible = msoFalse
    Next
        'Конвертация InlineShape в Shape
    For i = ActiveDocument.InlineShapes.Count To 1 Step -1
      ActiveDocument.InlineShapes(i).Select
      With Selection
         .InlineShapes(i = i - 1).ConvertToShape
          'Selection.ShapeRange.LayoutInCell = False
          Selection.ShapeRange.IncrementLeft 200
          Selection.ShapeRange.IncrementTop ShapesTop
          'Selection.ShapeRange.LayoutInCell = False
      End With
    Next i
End Sub

Sub Main()
    Call Procedure1(25.3, "Name1.jpg")  
    'Для остальных рисунков сами сделайте.  
    Call Procedure1(25.3, "Name2.jpg")
End Sub
 
Sub Procedure1(dTop As Double, sName As String)
    Dim oShape As Word.Shape
    'Сразу добавляем в документ Shape, раз нужен Shape.
    'Одновременно с добавлением Shape связываем вставленный рисунок
    'с переменной oShape, через которую и будем манипулировать рисунком.
    'Здесь путь свой укажите, где рисунки лежат.
    Set oShape = ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Shapes.AddPicture( _
        FileName:="C:\Documents and Settings\Пользователь\Рабочий стол\Подписи\" & sName, _
        LinkToFile:=False, SaveWithDocument:=True)
    With oShape
        'Масштабирование
        .LockAspectRatio = msoTrue
        'Здесь сами подберите высоту и ширину.
        .Height = 50
        .Width = 50
        'Транспонирование
        .PictureFormat.TransparentBackground = msoTrue
        .PictureFormat.TransparencyColor = RGB(255, 255, 255)
        .Fill.Visible = msoFalse
        'Положение относительно краёв страницы.
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .LayoutInCell = False
        .WrapFormat.AllowOverlap = True
        .Left = CentimetersToPoints(27.5)
        .Top = CentimetersToPoints(dTop)
    End With
End Sub

 If (oShape.Height > 25) Then top = top - 0.5