在程序中操作excel的图表的问题

我要在我的程序中显示一个曲线图,图已经能够显示了,但图中X轴刻度标志的字体无法改变.代码如下,望各位大虾指点一下,谢谢:  
   
  Dim   xlsapp   As   New   Excel.Application    
  Dim   xlsbook   As   Excel.Workbook    
  Dim   xlssheet   As   Excel.Worksheet    
   
  Set   xlsbook   =   xlsapp.Workbooks.Add    
  Set   xlssheet   =   xlsbook.Worksheets("sheet1")    
   
  '测试数据  
  X(1)   =   0.1    
  X(2)   =   0.2    
  X(3)   =   0.3    
  X(4)   =   0.4    
  Y(1)   =   10    
  Y(2)   =   20    
  Y(3)   =   30    
  Y(4)   =   40    
   
  For   i   =   1   To   4   Step   1    
  xlssheet.Cells(i,   1)   =   X(i)    
  xlssheet.Cells(i,   2)   =   Y(i)    
  Next    
   
  '插入图表    
          xlssheet.Range("A1:B4").Select    
          xlsapp.Charts.Add    
   
          xlsapp.ActiveChart.ChartType   =   xlXYScatterLines    
          xlsapp.ActiveChart.SetSourceData   Source:=xlssheet.Range("A1:B4"),   PlotBy   _    
                  :=xlColumns    
          xlsapp.ActiveChart.Location   Where:=xlLocationAsObject,   Name:="Sheet1"    
          xlsapp.ActiveChart.HasLegend   =   False    
          xlsapp.ActiveChart.HasPivotFields   =   False    
          xlsapp.ActiveChart.HasDataTable   =   False    
          xlsapp.ActiveChart.ApplyDataLabels   Type:=xlDataLabelsShowValue,   LegendKey:=False    
               
          With   xlsapp.ActiveChart    
                  .HasTitle   =   False    
                  .Axes(xlCategory,   xlPrimary).HasTitle   =   False    
                  .Axes(xlValue,   xlPrimary).HasTitle   =   False    
                  .Axes(xlCategory).MajorUnit   =   0.5    
                  .ChartArea.Select    
                  .ChartArea.Copy    
          End   With    
   
  '问题在下面这一块,不加这一段代码,图就能显示出来,但字体不能改变.加了这块代码,连图都不能显示了,但这块代码主要是用来修改字体的,为什么出这样的问题,百思不得其解.  
   
  '********************************************  
    xlsapp.ActiveChart.Axes(xlCategory).Select    
          xlsapp.Selection.TickLabels.AutoScaleFont   =   True    
          With   xlsapp.Selection.TickLabels.Font    
                  .Name   =   "宋体"    
                  .FontStyle   =   "常规"    
                  .Size   =   10    
                  .Strikethrough   =   False    
                  .Superscript   =   False    
                  .Subscript   =   False    
                  .OutlineFont   =   False    
                  .Shadow   =   False    
                  .Underline   =   xlUnderlineStyleNone    
                  .ColorIndex   =   xlAutomatic    
                  .Background   =   xlAutomatic    
          End   With    
  '*******************************************************  
           
  xlsapp.DisplayAlerts   =   False    
  xlsbook.Close    
  xlsapp.Quit    
  Set   xlssheet   =   Nothing    
  Set   xlsapp   =   Nothing    
           
  '粘贴图表    
  Image1.Picture   =   Clipboard.GetData