MODERATOR NOTE: coronavirus resources & updates: https://wolfr.am/coronavirus
-- you have earned Featured Contributor Badge
Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!
Very nice fine tuning!
One small bit of code simplification could be
FindFaces[image, "Image", PaddingSize -> Scaled[0.1]]
instead of trimming in a separate steps. This way you can also add an arbitrary padding taken from the original image.
You can even take advantage of the built-in listability of the NN framework to write
that will evaluate the net in batch mode and will be faster when image contains multiple faces.