oChart.LockAspectRatio = .T. oChart.Width = oWord.InchesToPoints(7) * Shrink vertically oChart.PictureFormat.CropTop = oWord.InchesToPoints(2) oChart.PictureFormat.CropBottom = oWord.InchesToPoints(2)