(*Evaluate the following to copy the style of the cell above into 
the docked cell style of the 'Notebook' definition (2 cells above) 
These two cell can be removed once the docked cell is created.
*)
SelectionMove[SelectedNotebook[],Previous,Cell,2];
celldata=NotebookRead[SelectedNotebook[]];
SelectionMove[SelectedNotebook[],Previous,Cell,1];
SetOptions[NotebookSelection[SelectedNotebook[]],DockedCells->{FEPrivate`FrontEndResource["FEExpressions","SlideshowToolbar"],celldata}];