Creating a 'Comment Wall' style output from data in a spreadsheet?

[chandelirious]

Hi everyone,

Wonder if you can help.

I collate feedback from individuals who have been on training courses.

I extract the data, paste the relevant info that I need into Excel, and I'm left with a table that contains:

Column A: Course Name
Column B: Trainer
Column C: Do you have any further comments or suggestions?

What I'd like to do is display those results in an appealing style, ie, NOT in a table. I was thinking of a Comment Wall - we have used this live on training, using a website called MentiMeter, where people's responses appear in real time on screen. But that's not what I want, specifically - I'd prefer an image generated from the column headers above.

I've got at my disposal:
MS Excel
MS Word
MS PowerPoint
MS Visio

and any other (free!) websites that you may suggest.

Do you have any ideas that I could try?

Thanks in advance!

 

[Logit]

Word Cloud in Excel Using VBA

Create Cool Tag Clouds in Excel using VBA » Chandoo.org - Learn Excel, Power BI & Charting Online

Sub createCloud()
‘ this subroutine creates a tag cloud based on the list format tagname, tag importance
‘ the tag importance can have any value, it will be normalized to a value between 8 and 20

On Error GoTo tackle_this

Dim size As Integer

size = Selection.Count / 2

Dim tags() As String
Dim importance()

ReDim tags(1 To size) As String
ReDim importance(1 To size)

Dim minImp As Integer
Dim maxImp As Integer

cntr = 1
i = 1

For Each cell In Excel.Selection

If cntr Mod 2 = 1 Then
taglist = taglist & cell.Value & “, ”
tags(i) = cell.Value
Else
importance(i) = Val(cell.Value)
If importance(i) > maxImp Then
maxImp = importance(i)
End If
If importance(i) < minImp Then minImp = importance(i) End If i = i + 1 End If cntr = cntr + 1 Next cell ' paste values in cell e10 Range("e10").Select ActiveCell.Value = taglist ActiveCell.Font.size = 8 strt = 1 For i = 1 To size With ActiveCell.Characters(Start:=strt, Length:=Len(tags(i))).Font .size = 6 + Math.Round((importance(i) - minImp) / (maxImp - minImp) * 14, 0) .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = xlAutomatic End With strt = strt + Len(tags(i)) + 2 Next i Exit Sub tackle_this: ' errors handled here 'MsgBox "You need to select a table so that I can create a tag cloud", vbCritical + vbOKOnly, "Wow, looks like there is an error!"
End Sub