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
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