Automated Color 

The Background theme calculates plot and axes color based on the notebook background color. Providing a color with the theme sets the background color of the visualization, which overrides the notebook color.

In[1]:=

X Row[Table[ Plot3D[2 Sin[x y], {x, -3, 3}, {y, -2, 2}, PlotTheme -> {"Background", c}], {c, {Orange, Hue[.65, .45, 1], Hue[.5, 1, .5]}}]]

Out[1]=

Examples of color generated for various background colors.

show complete Wolfram Language inputhide input

In[2]:=

X Grid[Partition[ Table[Plot3D[2 Sin[x y], {x, -3, 3}, {y, -2, 2}, Mesh -> None, BoundaryStyle -> None, ImageMargins -> 20, PlotTheme -> {"Minimal", {"Background", Hue[h, .5, .8]}}, ImageSize -> 150], {h, .07, .9, .1}], 3], Spacings -> {0, 0}]

Out[2]=