Swatch Legends 

Create swatch legends with specified styles, shapes, and sizes.

In[1]:=

X Row[Table[ SwatchLegend[RandomInteger[{63, 93}], Array[Row[{"l", #1}] &, 7], LegendMarkers -> marker, LegendMarkerSize -> 16, LabelStyle -> {GrayLevel[0.3], Bold, 16}], {marker, {Automatic, "GlassRectangle", "FadingRectangle", "Bubble", "SphereBubble", "PolyhedronBubble"}}], Spacer[2]]

Out[1]=