' Вставка картинки
'========================================================
Function InsertWmfPicture(WMFPath)
	' Привяжемся к верхнему левому углу
	rr="A5"
	ObjExc.ActiveSheet.Range(rr).Select
	Set r1 = ObjExc.Range("B6:K18")
	Set  a = ObjExc.ActiveSheet.Pictures.Insert(WMFPath)
       a.ShapeRange.LockAspectRatio = 1
       a.ShapeRange.Height  = r1.Height
       ratio = (a.ShapeRange.Height/a.ShapeRange.Width)
       aspect = (r1.Height/r1.Width)
  If  (ratio<aspect) Then 
			a.ShapeRange.Width  = r1.Width
  End If
   'Выровнить рисунок по центру
   a.ShapeRange.IncrementLeft (ObjExc.Range("A6:K18").Width-a.ShapeRange.Width)/2
   a.ShapeRange.IncrementTop (ObjExc.Range("A5:K19").Height-a.ShapeRange.Height)/2
End Function

Sub Макрос2()
'
' Макрос2 Макрос
'
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\Александр\Мои документы\Мои рисунки\tfile_img_big2.jpg" _
        ).Select
End Sub

' Вставка картинки в шаблон
'========================================================
Function InsertWmfPicture(WMFPath)
		x=ObjExc.Range("A5").Left
		y=ObjExc.Range("A5").Top
Set r1 = ObjExc.Range("B6:K"&RPic-1)
		Height=r1.Height
		Width=r1.Width
Set  a = ObjExc.ActiveSheet.Shapes.AddPicture(WMFPath, False, True, x, y, 100, 100)
     a.ScaleHeight 1, 1
     a.ScaleWidth 1, 1
     a.LockAspectRatio = 1
     a.Width=Width
     a.Height=Height
     ratio = (a.Height/a.Width)
     aspect = (r1.Height/r1.Width)
If  (ratio<aspect) Then 
			a.Width  = r1.Width
End If
   'Выровнить рисунок по центру
   a.IncrementLeft (ObjExc.Range("A6:K"&RPic-1).Width-a.Width)/2
   a.IncrementTop (ObjExc.Range("A5:K"&RPic).Height-a.Height)/2
End Function