Sparkline 

The Sparkline theme renders text-size graphics consisting of simple data plots with a wide aspect ratio, excluding axes and labels.

show complete Wolfram Language inputhide input

In[1]:=

X companies = {"MMM", "AXP", "T", "BA", "CAT", "CVX", "CSCO", "KO", "DD", "XOM", "GE", "GS", "HD", "INTC", "IBM", "JNJ", "JPM", "MCD", "MRK", "MSFT", "NKE", "PFE", "PG", "TRV", "UNH", "UTX", "VZ", "V", "WMT", "DIS"}; panel[data_] := Style[Panel@ Grid[data, Frame -> All, FrameStyle -> White, Alignment -> {{Right, Left, Right}}, Background -> {Automatic, {{LightGray, White}}}]]

In[2]:=

X data = Table[{ticker, FinancialData[ticker, "Company"], FinancialData[ticker], d = FinancialData[ticker, {0, -1, 0} + DateList[][[1 ;; 3]]]; DateListPlot[d, PlotTheme -> "Sparkline", PlotStyle -> If[d[[1, 2]] > d[[-1, 2]], Red, Hue[.3, 1, .7]]] }, {ticker, companies}]; panel[data]

Out[2]=