Weighted Word Cloud 

Use ImageCollage to create a word cloud of a list of words weighted by their occurrences in a piece of text.

Import a piece of text and count word occurrences.

In[1]:=

X (data = Tally[ ToLowerCase /@ StringCases[ExampleData[{"Text", "ToBeOrNotToBe"}], WordCharacter ..]]) // Short

Out[1]//Short=

Create a word cloud from these words weighted by their occurrence.

In[2]:=

X images = #2 -> Rasterize[Style[#1, RandomColor[LCHColor[_, 1, _]]], "Image", RasterSize -> 100] & @@@ data;

In[3]:=

X ImageCollage[images, "Fit", 400, ImagePadding -> 4, Background -> White]

Out[3]=