急！请各位高手检查一下程序，什么地方有错？

该程序是用EXCEL对象生成一张三维柱状图，再输出一个GIF文件，生成图表是成功了，但相关的参数却设置无效，不管我设什么参数，如图片的标题，图片的大小，始终都是无标题，图片大小也无法调整。
还有个问题，要想设置背景颜色、柱体颜色用什么参数？Sub ExportPicture(dataArray, virtualFilePath, nType, datacaption)Dim excelapp '' As New excel.Application
Dim excelwbk '' As excel.Workbook
Dim excelcht '' As excel.Chart
Dim excelsht ''As excel.Worksheet
Dim idx, idy, idz, ftype, usedData, totalcount, inittype, count: count = 1
On Error Resume NextSet excelapp = CreateObject("Excel.Application")
Set excelwbk = excelapp.Workbooks.Add()
Set excelcht = excelwbk.Charts.Add()
Set excelsht = excelwbk.Worksheets.Add()
inittype = nType
ftype = "gif"
For idx = LBound(dataArray, 1) To UBound(dataArray, 1)
For idy = LBound(dataArray, 2) To UBound(dataArray, 2)
excelsht.Cells(idx + 1, idy + 1) = dataArray(idx, idy)
Next
For idz = LBound(dataArray, 3) To UBound(dataArray, 3)
excelsht.Cells(idx + 2, idy + 2) = dataArray(idx, idy)
NextNextSet usedData = excelsht.UsedRange
excelcht.Activate
With ActiveChart
    .HasLegend = True
    .Type = xlLine
    .HasTitle = True
    .ChartTitle.Text = datacaption
    .Height = 50
    .weith = 70
End With
excelcht.SeriesCollection.Add usedData
excelcht.ApplyCustomType nType
excelcht.Export virtualFilePath, ftype
excelsht.Close False
excelwbk.Close False
Set usedData = Nothing
Set excelcht = Nothing
Set excelwbk = Nothing
Set excelapp = Nothing
End Sub