Can no longer fit picture to Excel cell after upgrading from Excel 2007 to 2010

See more:

VB

MS-Excel

I created a VB.net app several years ago that automatically inserts pictures into different Excel cells. After inserting, it also fits the picture to the cell and then centers the picture in the cell. Everything has been working fine until we upgraded to Excel 2010. Now when we run the program, certain picture types no longer get scaled properly. Here is an example of my code:

Dim ExcelApp As Excel.Application
Dim PicCoord As Object
Dim PicCoordHeight As Double = 112.0#
Dim PicCoordWidth As Double = 152.0#
Dim PicCoordHeightBorder As Integer = 2
Dim PicCoordWidthBorder As Integer = 2

ExcelApp.Range("A10").Select()
PicCoord = ExcelApp.ActiveSheet.Pictures.Insert("C:\temp\mypic.jpg")

With PicCoord
  Dim StartingHeight As Double
  Dim StartingWidth As Double
  Dim HeightRatio As Double
  Dim WidthRatio As Double
  Dim RatioToUse As Double
  'Store the starting Size
  StartingHeight = .shaperange.height
  StartingWidth = .shaperange.width
  'Figure the ratio we need to resize the picture
  HeightRatio = (PicCoordHeight - (PicCoordHeightBorder * 2)) / StartingHeight
  WidthRatio = (PicCoordWidth - (PicCoordWidthBorder * 2)) / StartingWidth

  'Find the smallest ratio
  RatioToUse = Math.Min(HeightRatio, WidthRatio)
  .ShapeRange.LockAspectRatio = True
  'Scale the picture to fit
  .shapeRange.ScaleHeight(RatioToUse, True)
  .shapeRange.ScaleWidth(RatioToUse, True)
  'Shift the picture to keep it centered
  .top = ExcelApp.ActiveCell.Top + (PicCoordHeight - .shaperange.height) / 2
   .left = ExcelApp.ActiveCell.Left + (PicCoordWidth - .shaperange.width) / 2
 End With

I have access to another computer that still has Excel 2007 so I ran some tests that compared my variable outputs between 2007 and 2010. Everything was the same except StartingHeight and StartingWidth which come from the shaperange height and width properties. I don't understand why Excel is now calculating these properties differently? In some cases the property values are not even close between Excel versions. In one case, Excel 2007 had the height at 1584 and Excel 2010 had the height at 508.75.

I have been playing around with using Shapes.AddPicture rather then pictures.insert. The Shapes.AddPicture routine requires the picture size when you make the call to AddPicture. If I put the correct size of my picture cell in the call, it will fit the picture but it also stretches and distorts the picture from the original ratio. I do not want that so that method won't work for me. Anyone have any other ideas?