Any idea how one can "reset" the document palette with a macro?

I can cycle it on/off but can't figure out how to "reset" it. Once a color shape is deleted the doc palette still shows the color until you click thru and hit reset.

Sub RefreshDocPalette()


End Sub

P.s. why after hitting "reset palette" does it add a black swatch even though there's no black used in the doc.