OWC 制作图表时如何设置字体的大小? (100求教)

Question

OWC 制作图表时如何设置字体的大小?        Dim DataName() As String = {"1月份", "2月份", "3月份", "4月份", "5月份", "6月份"}
        Dim Data() As Integer = {100, 20, 50, 60, 240, 20}
        Dim strDataName As String = ""
        Dim strData As String = ""
        For i As Integer = 0 To Data.Length - 1
            strDataName += DataName(i) + ControlChars.Tab
            strData += Data(i).ToString() + ControlChars.Tab
        Next
        Dim objCSpace As OWC.ChartSpace = New OWC.ChartSpaceClass
        Dim objChart As OWC.WCChart = objCSpace.Charts.Add(0)        objChart.Type = OWC.ChartChartTypeEnum.chChartTypeColumnClustered
        objChart.HasLegend = True
        objChart.HasTitle = True
        objChart.Title.Caption = "上半年月收入图"
        objChart.Axes(0).HasTitle = True
        objChart.Axes(0).Title.Caption = "Y 轴 : 数量"
        objChart.Axes(1).HasTitle = True
        objChart.Axes(1).Title.Caption = "X 轴： 月份"
  
        objChart.SeriesCollection.Add(0)
        Dim sourceindex_name As Integer = OWC.ChartSpecialDataSourcesEnum.chDataLiteral
        objChart.SeriesCollection(0).SetData(OWC.ChartDimensionsEnum.chDimCategories, sourceindex_name, strDataName)        Dim sourceindex_Data As Integer = OWC.ChartSpecialDataSourcesEnum.chDataLiteral
        objChart.SeriesCollection(0).SetData(OWC.ChartDimensionsEnum.chDimValues, sourceindex_Data, strData)
        objCSpace.ExportPicture(Server.MapPath("") + "\tmpFile.gif", "GIF", 600, 400)
        Dim myPalette As Bitmap = New Bitmap(Server.MapPath("") + "\tmpFile.gif", True)
        myPalette.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)

Answer 1

 **风云** 12:56:52        '设置字体的大小颜色
        'objCSpace.Charts(0).Axes(0).Font.Size = 12      ' Y轴
        'objCSpace.Charts(0).Axes(1).Font.Size = 12       ' X轴
        'objCSpace.Charts(0).Title.Font.Size = 15       '  标题
        ' objCSpace.Charts(0).Title.Font.Color = "red"
        ' objCSpace.Charts(0).Title.Font.Name = "times new roman"
        objCSpace.Charts(0).Legend.Font.Size = "12"
        objCSpace.Charts(0).Legend.Font.Color = "green"
        objCSpace.Charts(0).Border.Weight = 0