I have a vb macro that automatically places several jpg image on a worksheet
and rescales then to fit in boxes on the page. This macro has worked well
until we upgraded to 2007. Does anyone know if there has been a change in
syntax.

Here is the current vb code:

Sub InsertPICS(PicPath As String, PicWidth As Integer, PicTop As Integer,
PicLeft As Integer)

Dim ScaleRatio As Single

ActiveSheet.Pictures.Insert(PicPath).Select
Selection.Name = "3DPic"
ScaleRatio = PicWidth / Selection.Width

With Selection

.ShapeRange.ScaleWidth ScaleRatio, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight ScaleRatio, msoFalse, msoScaleFromTopLeft
.Left = PicLeft
.Top = PicTop


End With

End Sub