Dim ratio as single
With MyPicture.ShapeRange
'.LockAspectRatio = msoTrue
If .Height > .Width Then
ratio = .Width / .Height
.Height = .Height * ratio
.Height = MyCell.RowHeight
Else
ratio = .Height / .Width
.Width = .widht * ratio
.Width = MyCell.ColumnWidth
End If
End With
End Sub