snd=ExampleData[{"Sound","Apollo11ReturnSafely"}]

cwd=ContinuousWaveletTransform[snd,GaborWavelet[6],{Automatic,12}]

sty=Directive[14,FontFamily->"Helvetica"];

WaveletScalogram[cwd,{3|4|5|6|7,_},ImageSize->570,Ticks->{Automatic,{#,Superscript[2,#]}&/@Range[7]},TicksStyle->sty,AxesLabel->{Style["Time",sty],Style["Scale",sty]},ColorFunction->ColorData["SiennaTones"]]