Thank you so much I had a little delay, but I have finally finished it. Also, many thanks for the spoiler :)

historicalCountryAnimate["ByzantineEmpire", 100, 
 GeoRange -> {{20, 60}, {-05, 50}}]

Thank you very much! You have helped a ton. I will try to show you the end result when I finish!

Rather than photos, maybe you can use historical entity information in WL.

DateValue[Entity["HistoricalCountry", "ByzantineEmpire"][#], "Year"] & /@ {"StartDate", "EndDate"}
(* {395, 1453} *)

Empire and country borders in the year 500

GeoGraphics[{{Polygon[
    Dated[Entity["HistoricalCountry", "ByzantineEmpire"], 
     DateObject[{500}]]]}}, 
 GeoBackground -> {"CountryBorders", DateObject[{500}]}]

You try using Table to generate a list of GeoGraphics for a range of years and Export them to AVI or GIF.