关于ChartType如何设置为直方图 - Excel/VBA论坛

问题点数：0 回复次数：0

关于ChartType如何设置为直方图

如题，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

搜索更多相关主题的帖子: Select　Chart　Caption　ChartType　Axes　