模具管理中有生产绩效报表，进度报表、产能负荷报表、机台负荷报表等等，将数据进行分组汇总后，看到的数据还是不够直观，所以要进行图表的建立。如果要生成每个模号的图表。

第一种方式：建立模板文件，将数据复制进去即可形成图表，这里的前提是分组的数据要用公式先设置好，如果分组是动态的，或者不显示零值的数据。那么就要采用第二种方式。

第二种方式：通过取数据库数据，然后在excel菜单中点击按钮进行拉取数据，过滤处理后，然后进行分组统计，最后显示数据和图表，这样数据是最新格式，可按程序指令进行格式处理，保证数据的准确安全。并且运行速度是最快的。

云易云软件基于数据库管理系统，Excel相结合的方式进行模具管理与生产绩效报表分析。Excel的便捷在于，报表的深度加工处理，很多管理系统都无法调整到个性化级别。以及报表电子档方式发送到客户供应商。对于上游客户需要进行产量、质量报备的情况下。数据库与VBA代码可提供管理信息系统的改造，实现企业的生态化管理。

以下为生成图表的源码，有问题可咨询QQ：53757591

Private Sub 生成图表(ByVal sh As String, ByVal a1 As Integer, ByVal a2 As Integer, ByVal tol As Long)
Dim mychart As String
Dim i As Integer
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
    Charts.Add
    mychart = ActiveChart.Name
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="两轴线-柱图"
    ActiveChart.SetSourceData Source:=Sheets(sh).Range("A65536"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = "='" & sh & "'!R" & a1 & "C2:R" & a2 & "C2"
    ActiveChart.SeriesCollection(1).Values = "='" & sh & "'!R" & a1 & "C3:R" & a2 & "C3"
    ActiveChart.SeriesCollection(2).Values = "='" & sh & "'!R" & a1 & "C9:R" & a2 & "C9"
    ActiveChart.Location where:=xlLocationAsObject, Name:=sh
    ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="两轴线-柱图"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "不良项目"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "不良数"
        .Axes(xlCategory, xlSecondary).HasTitle = False
        .Axes(xlValue, xlSecondary).HasTitle = True
        .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = "累积影响度"
    End With
    ActiveChart.HasLegend = False
    ActiveChart.Axes(xlValue).AxisTitle.Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Orientation = xlVertical
    End With
    ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Orientation = xlVertical
    End With
    ActiveChart.Axes(xlValue).Select
    With ActiveChart.Axes(xlValue)
        .MinimumScale = 0
        .MaximumScale = tol
        .MinorUnit = 4
        .MajorUnit = tol / 5
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    ActiveChart.Axes(xlValue, xlSecondary).Select
    With ActiveChart.Axes(xlValue, xlSecondary)
        .MinimumScale = 0
        .MaximumScale = 100
        .MinorUnit = 25
        .MajorUnit = 25
        .Crosses = xlAutomatic
        .ReversePlotOrder = False
        .ScaleType = xlLinear
        .DisplayUnit = xlNone
    End With
    ActiveChart.SeriesCollection(1).Select
    With Selection.Border
        .Weight = xlThin
        .LineStyle = xlAutomatic
    End With
    Selection.Shadow = False
    Selection.InvertIfNegative = False
    Selection.Interior.ColorIndex = xlNone
    With ActiveChart.ChartGroups(1)
        .Overlap = 0
        .GapWidth = 0
        .HasSeriesLines = False
        .VaryByCategories = False
    End With
    ActiveChart.PlotArea.Select
    With Selection.Border
        .ColorIndex = 16
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With
    Selection.Interior.ColorIndex = xlNone
    For i = 1 To ActiveSheet.ChartObjects.Count
        ActiveSheet.ChartObjects(i).Select
        ActiveChart.ChartArea.Select
        ActiveSheet.Shapes(i).Left = Range("J31").Left
        ActiveSheet.Shapes(i).Top = Range("J31").Top
        ActiveSheet.Shapes(i).Width = Range("S43").Left - Range("J31").Left
        ActiveSheet.Shapes(i).Height = Range("S43").Top - Range("J31").Top
    Next i
End Sub