Maximiliano III José, Elector de Baviera