[excel 2010中怎么制作柏拉图]“excel 2010中制作柏拉图”的操作步骤是： 1、打开Excel工作表； 2、选择B列，在“数据”选项下的“降序”排序中，“扩展选定区域”排序； 3、设置C列单元格格式为“百分比”，在C2...+阅读

我用VBA在EXCEL2010下做了段程序，可自动生成柏拉图。 以下是程序源代码 '数据区域的左上角位置常量 Const UpperLeftPos = ＂B4＂ Const UpperPos = ＂B＂ Const LeftPos = 4 Sub 绘制标准柏拉图（） Dim Range1 As Range '选择数据区域，Range(＂B2＂)这个格子里放的是有效数据的行数，即分类的总个数 Set Range1 = Range(UpperLeftPos & ＂:＂ & Chr(Asc(UpperPos) + 1) & (LeftPos + Range(＂B2＂)) & ＂,＂ & Chr(Asc(UpperPos) + 2) & LeftPos & ＂:＂ & Chr(Asc(UpperPos) + 2) & (LeftPos + Range(＂B2＂) + 1）） '插入柱形图 ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Range1 '把百分比数据系列的图形格式变为“带数据值的折线图”，并画在由次要横坐标和次要纵坐标里 ActiveChart.SeriesCollection

(2).Select ActiveChart.SeriesCollection

(2).AxisGroup = 2 ActiveChart.SeriesCollection

(2).ChartType = xlLineMarkers ActiveChart.SetElement (msoElementSecondaryCategoryAxisWithoutLabels) ActiveChart.SetElement (msoElementSecondaryCategoryAxisShow) '把次要横坐标的值显示到刻度上，而不是刻度中间，并隐藏次要横坐标的显示 ActiveChart.Axes(xlCategory, xlSecondary).Select Selection.MajorTickMark = xlNone Selection.TickLabelPosition = xlNone ActiveChart.Axes(xlCategory, xlSecondary).AxisBetweenCategories = False '调整柱形图的显示，去掉相邻柱子的间距，并给每个柱子加外框 ActiveChart.SeriesCollection

(1).Select ActiveChart.ChartGroups

(1).GapWidth = 0 With Selection.Format.Line .Visible = msoTrue .ForeColor.ObjectThemeColor = msoThemeColorText1 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 End With With Selection.Format.Line .Visible = msoTrue .Weight = 1 End With '修改主要纵坐标，满值为累加和 ActiveChart.Axes(xlValue).Select ActiveChart.Axes(xlValue).CrossesAt = 0 Selection.MajorTickMark = xlInside ActiveChart.Axes(xlValue).MinimumScale = 0 ActiveChart.Axes(xlValue).MaximumScale = Range(Chr(Asc(UpperPos) + 3) & (LeftPos + Range(＂B2＂) + 1）） '修改次要纵坐标，满值为100% ActiveChart.Axes(xlValue, xlSecondary).Select ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 1 ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = 0 Selection.MajorTickMark = xlInside ActiveChart.Axes(xlValue, xlSecondary).CrossesAt = 1 Selection.TickLabels.NumberFormat = ＂0%＂ '让百分比折线上的点显示出具体的数值 ActiveChart.SeriesCollection

(2).Select ActiveChart.SeriesCollection

(2).ApplyDataLabels ActiveChart.SeriesCollection

(2).DataLabels.Select Selection.Position = xlLabelPositionRight '隐去横向的主要网格线 ActiveChart.Axes(xlValue).Select ActiveChart.Axes(xlValue).MajorGridlines.Select Selection.Format.Line.Visible = msoFalse '为图表添加标题，标题的内容放在Range(＂B1＂)格子里 ActiveChart.SetElement (msoElementChartTitleAboveChart) ActiveChart.ChartTitle.Select ActiveChart.ChartTitle.Text = Range(＂B1＂) End Sub

以下为关联文档：

excel2007柏拉图怎么制作Excel中可以利用柱形图和折线图的混合图表来制作柏拉图。 软件版本：office2007 方法如下： 1.选择数据，插入柱形图： 2.选择累计比例的柱形，点击右键，更改系列图表类型： 3.选择一种...

如何制作Office Excel 2007版柏拉图在Excel中可以利用柱形图与折线图组成的混合图表来制作简要柏拉图。 方法如下： 1.选择数据，插入，柱形图： 2.选择累计比例的柱形，点击右键，更改序列图表类型： 3.选择折线图，点击确...

怎么用excel 2007版制作简要柏拉图方法如下： 1.首先，处理好数据；选择数据区域，插入柱形图： 2.选择累计比例的柱形，点击右键，更改系列图表类型： 3.选择折线图，点击确定： 4.再次选择折线图，点击右键，设置数据系列格式： 5...