[5分]数据分析模块，切换图表类型出错

Dim strType As String

    g_usysfrmGraph_child_screenSize

    strType = Forms!usysfrmGraph_child.lstGraphType.Column(0)
    Select Case strType
    Case "1折线图"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlLine
    Case "1.1数据点"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlLineMarkers
    Case "1.2三维"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xl3DLine
    Case "2柱形图"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlColumnClustered
    Case "2.1三维"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xl3DColumn
    Case "2.2三维簇状"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xl3DColumnClustered
    Case "2.3堆积"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlColumnStacked
    Case "2.4三维堆积"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xl3DColumnStacked
    Case "3饼图"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlPie
    Case "3.1分离型"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlPieExploded
    Case "3.2三维"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xl3DPie
    Case "3.3三维分离型"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xl3DPieExploded
    Case "4圆环图"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlDoughnut
    Case "4.1分离型"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlDoughnutExploded
    Case "5圆柱图"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlCylinderColClustered
    Case "5.1三维柱形"
        Forms!usysfrmGraph_child!frmChild.Form!OLEUnbound0.Object.ChartType = xlCylinderCol
    End Select