Illustrate Stocks Trend with Inlines 

The Inline theme showing only the content of graphics makes a perfect theme to use in legends.

show complete Wolfram Language inputhide input

In[1]:=

X ticks = {"MMM", "AXP", "T", "BA", "CAT", "CVX", "CSCO", "KO", "DD", "XOM", "GE", "GS", "HD", "INTC", "IBM", "JNJ", "JPM", "MCD"}; data = FinancialData[#, {{2010, 1}, {2010, 12, 31}}] & /@ ticks;

In[2]:=

X inlines = DeleteCases[ DateListPlot[TimeSeriesAggregate[TimeSeries@#, {20, "Day"}], PlotTheme -> "Inline", AspectRatio -> Full, ImageSize -> {50, 30}], _?ColorQ, Infinity] & /@ data

Out[2]=

Use PointLegend to construct a setter bar with inlines.

In[3]:=

X PointLegend[106, ticks, LegendMarkers -> inlines, LegendMarkerSize -> {50, 30}, LegendLayout -> (SetterBar["MMM", Thread[ticks -> (Labeled[Sequence @@ #, Top] & /@ #)], Appearance -> "Horizontal" -> {2, 9}] &)]

Out[3]=

Show detailed stock information from a selection of the stock inlines interactively.

In[4]:=

X DynamicModule[{x = "T"}, Column[{PointLegend[106, ticks, LegendMarkers -> inlines, LegendMarkerSize -> {50, 30}, LegendLayout -> (SetterBar[Dynamic[x], Thread[ticks -> (Labeled[Sequence @@ #, Top] & /@ #)], Appearance -> "Horizontal" -> {2, 9}] &)], Dynamic[ TradingChart[{x, {{2010, 1}, {2010, 12, 31}}}, ImageSize -> 550], TrackedSymbols :> {x}]}, Alignment -> Center], SaveDefinitions -> True]

Out[4]=