Case \簇状柱形图\ tblx = 51
Case \三维簇状柱形图\ tblx = 54 Case \堆积柱形图\ tblx = 52
Case \三维堆积柱形图\ tblx = 55
Case \百分比堆积柱形图\ tblx = 53
Case \三维百分比堆积柱形图\ tblx = 56 Case \三维柱形图\ tblx = -4100 End Select Case \条形图\
Select Case Args(1) Case \簇状条形图\ tblx = 57
Case \三维簇状条形图\ tblx = 60 Case \堆积条形图\ tblx = 58
Case \三维堆积条形图\ tblx = 61
Case \百分比堆积条形图\ tblx = 59
Case \三维百分比堆积条形图\ tblx = 62 End Select Case \折线图\
Select Case Args(1) Case \折线图\ tblx = 4
Case \数据点折线图\ tblx = 65 Case \堆积折线图\ tblx = 63
Case \堆积数据点折线图\ tblx = 66
Case \百分比堆积折线图\ tblx = 64
Case \百分比堆积数据点折线图\ tblx = 67 Case \三维折线图\ tblx = -4101 End Select Case \饼图\
Select Case Args(1) Case \饼图\ tblx = 5
Case \分离型饼图\ tblx = 69 Case \三维饼图\ tblx = -4102
16
Case \三维分离型饼图\ tblx = 70 Case \复合饼图\ tblx = 68 Case \复合条饼图\ tblx = 71 End Select Case \面积图\
Select Case Args(1) Case \面积图\ tblx = 1
Case \三维面积图\ tblx = -4098 Case \堆积面积图\ tblx = 76
Case \三维堆积面积图\ tblx = 78
Case \百分比堆积面积图\ tblx = 77
Case \三维百分比堆积面积图\ tblx = 79 End Select Case \圆柱图\
Select Case Args(1) Case \柱形圆柱图\ tblx = 92 Case \条形圆柱图\ tblx = 95
Case \堆积柱形圆柱图\ tblx = 93
Case \堆积条形圆柱图\ tblx = 96
Case \百分比堆积柱形圆柱图\ tblx = 94
Case \百分比堆积条形圆柱图\ tblx = 97
Case \三维柱形圆柱图\ tblx = 98 End Select Case \圆锥图\
Select Case Args(1) Case \柱形圆锥图\ tblx = 99 Case \条形圆锥图\ tblx = 102
Case \堆积柱形圆锥图\ tblx = 100
Case \堆积条形圆锥图\ tblx = 103
Case \百分比堆积柱形圆锥图\ tblx = 101
Case \百分比堆积条形圆锥图\ tblx = 104
Case \三维柱形圆锥图\ tblx = 105
17
End Select Case \棱锥图\
Select Case Args(1) Case \柱形棱锥图\ tblx = 106 Case \条形棱锥图\ tblx = 109
Case \堆积柱形棱锥图\ tblx = 107
Case \堆积条形棱锥图\ tblx = 110
Case \百分比堆积柱形棱锥图\ tblx = 108
Case \百分比堆积条形棱锥图\ tblx = 111
Case \三维柱形棱锥图\ tblx = 112 End Select End Select Return tblx
App_ColChr
Dim ColumnNum As Integer = Args(0) Dim First,Last As Integer Dim Result As String If ColumnNum < 1 Then ColumnNum = 1
Elseif ColumnNum > 256 Then ColumnNum = 256 End If
First = Int(ColumnNum / 27)
Last = ColumnNum - (First * 26) If First > 0 Then
Result = Chr(First + 64) End If
If Last > 0 Then
Result = Result & Chr(Last + 64) End If
Return Result
App_Series
'0-参数文件名 1-WorkBook对象 2-SeriesCollection对象 3-字体颜色序号 4-边框颜色序号 5-填充颜色序号 Dim f As String = ProjectPath & \If Not FileSys.FileExists(f) Then Return Nothing End If
Dim Wb As MSExcel.WorkBook = Args(1) Dim s As MSExcel.Series = Args(2)
Dim vs As String() = FileSys.ReadAllText(f).Split(\ㄉ\Dim ss As String() = vs(1).Split(\s.Name = ss(0) '系列名称
If s.AxisGroup = 2 Then '次轴的图表类型 s.ChartType = ss(1)
18
End If
s.Parent.VaryByCategories = ss(5) '是否依数据点分色(返回的父级对象为ChartGroup) Dim sjbz As String = \
If ss(2)=True Or ss(3)=True Or ss(4)=True Then '如果显示数据标志
s.ApplyDataLabels(AutoText:=True,ShowCategoryName:=ss(2),ShowValue:=ss(3),ShowPercentage:=ss(4)) If ss(4) Then '如果显示百分比
s.DataLabels.NumberFormat = \ End If sjbz = \End If
Functions.Execute(\数据系列_\
App_Wgsz
'0-参数文件名 1-WorkBook对象 2-Chart对象或Series对象 3-字体颜色序号 4-边框颜色序号 5-填充颜色序号
Dim f As String = Args(0)
If Args(0).Contains(\数据系列\ f = Args(0).SubString(1) End If
f = ProjectPath & \If Not FileSys.FileExists(f) Then Return Nothing End If
Dim Wb As MSExcel.WorkBook = Args(1) Dim Cs As Object = Args(2) Dim Oj As Object Select Case Args(0) Case \图表区\
Oj = Cs.ChartArea Case \绘图区\
Oj = Cs.PlotArea Case \图例\
Oj = Cs.Legend Case \标题\
Oj = Cs.ChartTitle Case \次轴\ Oj = Cs End Select '字体
Dim vs As String() = FileSys.ReadAllText(f).Split(\Dim yn As String = \
If Args(0).Contains(\数据系列\ If Args(0).SubString(0,1) = \ yn = \ Else
vs = FileSys.ReadAllText(f).Split(\ㄉ\ vs = vs(0).Split(\ Oj = Cs.DataLabels End If End If
If Args(0) <> \绘图区\ With Oj.Font
.Name = vs(0)
19
If vs(1) = 1 Then '粗体 .Bold = True
Elseif vs(1) = 2 Then '斜体 .Italic = True
Elseif vs(1) = 3 Then '粗斜体 .Bold = True .Italic = True End If
.Size = vs(2)
Wb.Colors(Args(3)) = RGB(vs(3),vs(4),vs(5)) .ColorIndex = Args(3) End With End If
'设置边框和填充
If Args(0).Contains(\数据系列\ Oj = Cs End If '边框
If vs(6) > 0 Then With Oj.Border
.LineStyle = vs(6)
Wb.Colors(Args(4)) = RGB(vs(7),vs(8),vs(9)) .ColorIndex = Args(4) .Weight = vs(10) End With End If '填充 yn = \
If Args(0).Contains(\数据系列\
Dim ss As String() = FileSys.ReadAllText(f).Split(\ㄉ\ ss = ss(1).Split(\次轴的折线图不能填充
If Oj.AxisGroup = 2 And (ss(1)=4 Or ss(1)=63 Or ss(1)=64 Or ss(1)=65 Or ss(1)=66 Or ss(1)=67) Then
yn = \ End If End If
If yn = \
Wb.Colors(Args(5)) = RGB(vs(11),vs(12),vs(13)) If vs(14) Then
If vs(15) Then
Oj.Fill.OneColorGradient(vs(16),1,1) Oj.Fill.ForeColor.SchemeColor = Args(5) End If
If vs(17) Then
Oj.Fill.PresetTextured(vs(18)) End If
If vs(19) And vs(20) <> \
If FileSys.FileExists(vs(20)) Then Oj.Fill.UserPicture(vs(20)) End If End If
Oj.Fill.Visible = True Else
Oj.Interior.ColorIndex = Args(5) End If
20