SetOptions
is your friend here.
So, with (our randomised) survey data
RandomSeed[130303];
surv = RandomInteger[{0, 25}, {25, 4}];
we can set up labels & styles
resp = {"Strongly disagree", "Disagree", "Agree", "Strongly Agree"};
styl = {Red, Lighter@Lighter@Red, Lighter@Lighter@Green, Green};
We can apply them using
SetOptions[PieChart,
ChartLegends -> resp,
ChartStyle -> styl,
LabelingFunction -> "RadialCallout"
];
We generate all plots using
plot = PieChart[surv[[#]],
PlotLabel -> StringJoin["Question ", IntegerString[#]]] & /@
Range[Length@surv]
and Export[]
them for reporting similar to my first response.
Documentation for PieChart
shows 61 options. I suggest you experiment.