You have used listboxes available in form control.
I guess what you are after is and should do:
This is for one control:
1. Select listbox7 and right click on it. It will provide options.
2. Choose assign macro then the default macro which is ListBox7_Change will be displayed.
3. Click on New option. VBE will be opened.
4. Copy the colorshape10 macro code and paste it in this event. So finally it will look like:
[VBA]Sub ListBox7_Change()
ActiveSheet.Shapes("Freeform 10").Select
If Range("hand!P3").Value = 1 Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 153, 51)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
ElseIf Range("hand!P3").Value = 2 Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(51, 51, 255)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
ElseIf Range("hand!P3").Value = 3 Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(102, 0, 153)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
ElseIf Range("hand!P3").Value = 4 Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(153, 0, 0)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
ElseIf Range("hand!P3").Value = 5 Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 153, 0)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
ElseIf Range("hand!P3").Value = 6 Then
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(138, 138, 138)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Else
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
End If
End Sub[/VBA]

Repeat this procedure with the other controls if this is what you need!