Shape.Extract changed to .ExtractTo