Some slight shortening:

With[{viewpoint = {0, 0, 10}, cols = RGBColor /@ {"#EDF2F6", "#494953"}}, 
        Manipulate[Graphics3D[{Sphere[Table[(Most[#]/(1 - Last[#])) & [
                                            Flatten[ReIm[Exp[{7, -3} I (t + θ)]/Sqrt[2]]]],
                                            {t, 0, 2 Pi, 2 Pi/200}], 0.1]}, Background -> cols[[-1]],
                               Boxed -> False, ImageSize -> 540, 
                               Lighting -> {{"Point", cols[[1]], {0, 0, 1/2}},
                                            {"Ambient", cols[[-1]], viewpoint}}, PlotRange -> 3, 
                               ViewPoint -> viewpoint, ViewVertical -> {0, 1, 0}], {θ, 0, Pi/100}]]