PieChart[Table[With[{j=i},Button[1,EmitSound[Sound@SoundNote[j]]]],{i,14}]]