注册 登录
编程论坛 Excel/VBA论坛

关于ChartType如何设置为直方图

xiangyue0510 发布于 2020-02-10 11:04, 1964 次点击
如题,Excel中无法设置Chart类型为直方图。 执行到下面这句报错:无效的调用和参数
mychart.Chart.ChartType = xlHistogram
手动操作可以,但是文件太多,不想一个一个去做。而录制宏录不下来。 下面是我的代码,不过报错的那一句改成标注了
程序代码:
Sub try2()
    Dim mychart As ChartObject

    Sheets("").Select
    Set mychart = Sheets("").ChartObjects.Add(Left:=20, Width:=400, Top:=7, Height:=200)
    mychart.Chart.SetSourceData Source:=Sheets("汇总").Range("P3:P100")
    'mychart.Chart.ChartType = xlHistogram
    mychart.Chart.SetElement (301)
    mychart.Chart.SetElement (307)
    mychart.Chart.Axes(xlValue).AxisTitle.Select
    Selection.Caption = "计数"
    mychart.Chart.Axes(xlCategory).AxisTitle.Select
    Selection.Caption = "壁厚偏差(mm)"
    mychart.Chart.PlotArea.Select
    mychart.Chart.SetElement (205)

     Set mychart = Sheets("").ChartObjects.Add(Left:=20, Width:=400, Top:=300, Height:=200)
    mychart.Chart.SetSourceData Source:=Sheets("汇总").Range("Q3:Q100")
    'mychart.Chart.ChartType = xlHistogram
    mychart.Chart.SetElement (301)
    mychart.Chart.SetElement (307)
    mychart.Chart.Axes(xlValue).AxisTitle.Select
    Selection.Caption = "计数"
    mychart.Chart.Axes(xlCategory).AxisTitle.Select
    Selection.Caption = "壁厚偏差(%)"
    mychart.Chart.PlotArea.Select
    mychart.Chart.SetElement (205)


End Sub
0 回复
1