Needs["Graphics`Shapes`"]

Needs["Graphics`Animation`"]

tabby = Table[Show[
        AffineShape[
          Graphics3D[
            {SurfaceColor[Black], Sphere[]}
            ],
          {1, 1, 1}
          ],
        Background -> Black,
        Boxed -> True,
        DisplayFunction -> Identity,
        ImageSize -> {383, 223},
        SphericalRegion -> True,
        ViewPoint -> {1, 2, z}
        ],
      {z, -1, 4, .1}
      ];

Export[
  "sphere.gif",
  tabby,
  ConversionOptions -> {
      "AnimationDisplayTime" -> 1/24,
      "Loop" -> True
},
ImageSize -> {383, 223}
]