Highlight Pie in PieChart

Question

PieChart has the nice functionality of highlighting a single pie when you click on it. It is then sticking out a little. See the following example:

PieChart[{1, 2, 3}]

Now, if I click on the green Pie it starts to stick out.

Is there any way of achieving this programmatically? I browsed through the Options of PieChart but couldn't find anything. I want to automatically create a number of plots with highlighted sections and save them automatically without having to click on them manually each time.

Answer 1

Something like this perhaps. Thanks to halmir for pointing out that multiple highlighted elements might be useful.

pieHighlight[chart_, n_] := chart /. DynamicModule[init_, body__] :> 
 (ReplacePart[Hold[init], Thread @ {1, n, 2} -> True] /. 
     Hold[x_] :> DynamicModule[x, body])

e.g.

PieChart[{1, 2, 3}] ~pieHighlight~ 2

PieChart[{1, 2, 3}] ~pieHighlight~ {1, 2}