Я пытаюсь вставить Парето, используя VBA. Я пытался использовать рекордер, но полученный код не дает ту же диаграмму (по какой-то причине он записывает рекомендуемый Pareto как (366, xlRegionMap)).
Я бы предпочел не взламывать вместе Парето вручную (создание кумулятивного столбца процентов и т. Д. c.) И просто go из выбора двух столбцов, как я могу при вставке вручную.
Sub pareto()
Range("R1:R75").Select
Range("R75").Activate
Range("R1:R75,E1:E75").Select
Range("E75").Activate
ActiveSheet.Shapes.AddChart2(366, xlRegionMap).Select
End Sub