你知道录制宏吧，按照你的要求设置好一个图表后，得到录制的宏，然后参照它做成循环
在循环中，插入下面语句（设置饼图大小的）：
For i = 1 To 20
....
With ActiveChart.Parent
.Left = Cells(i, 2) / 100 '这里宽度可以用函数表示，Cells(i, 2)表示各个城市的人口数，100为人口数与你饼图大小所成的比例
.Top = Cells(i, 2) / 100 '同样这里长度也可以用函数表示。
end with
....
next
中间省略的语句需要你自己参考录制的宏编写，自己试试，能行的，呵呵
