data=FinancialData["MSFT","OHLCV",{{2012,6,1},{2012,8,1}}];
date=AbsoluteTime/@data[[All,1]];
close=data[[All,2,4]];
volume=data[[All,2,5]];

bubble[colorf_]:=BubbleChart[Transpose[{date,close,volume}],AspectRatio->1,PerformanceGoal->"Speed",ColorFunction->colorf,ChartBaseStyle->Directive[Opacity[0.8],EdgeForm[Gray]],LabelingFunction->Tooltip,BubbleSizes->{0.05,0.15}]

Labeled[Grid[Partition[Table[DateListPlot[Transpose[{date,close}],Joined->True,Prolog->First[bubble[colorf]],ImageSize->250, AspectRatio->1,PlotRangePadding->Scaled[0.05],BaseStyle->{FontFamily->"Helvetica"}],{colorf,{(ColorData["DeepSeaColors"][1-#3]&),(ColorData["BrightBands"][#1]&),(ColorData["AvocadoColors"][#3]&),(ColorData["AuroraColors"][#2]&)}}],2]],Style["Stock Price with Volume Bubbles",20,FontFamily->"Helvetica"],Top]