FiveTech Support Forums

METHOD Save2XLS () CLASS TGraph
Local oExcel, oLibro, oHoja, oChart, oSourceData, nCol, nSerie, cRango

  If MsgYesNo ("¿Generar hoja de cálculo con los datos y gráfica?","Por favor confirme")
    If ( oExcel := ExcelObj() ) <> nil
      oExcel:ScreenUpdating := .f.
      oLibro := oExcel:WorkBooks:Add()
      oHoja  := oExcel:ActiveSheet
    
      // Titulos eje
      For nCol:=1 To Len (::aYVals)
        oHoja:Cells( nCol+1,1 ):Value := ::aYVals[nCol]; oHoja:Cells ( nCol+1, 1 ):Font:Bold:=.T.
      Next
    
      For nSerie:=1 To Len (::aSeries)
        // Series
        oHoja:Cells ( 1,1+nSerie):Value :=::aSeries[nSerie,1]
           
        // Importes
        For nCol:=1 To len(::aYVals)
          oHoja:Cells( nCol+1,nSerie+1 ):Value := ::aData[nSerie,nCol]
        Next
      Next
    
      // Grafico
      cRango:="A1:"+Chr(65+Len(::aSeries))+Alltrim(Str(Len(::aYVals)+1))
      oChart := oExcel:Charts:Add()
      oChart:ChartType := 4 // Gráfica de Líneas
    
      oSourceData := oHoja:Range(cRango)
      oChart:SetSourceData(oSourceData) //, PlotBy := 2 // xlColumns
    
      oChart:HasLegend := .T.
      oChart:Legend:Position := -4107 // xlBottom
    
      oChart:HasTitle := .T.
      oChart:ChartTitle:Characters:Text := ::cTitle
    
      TRY 
        oChart:ApplyDataLabels:Set("LegendKey", .T. )
        oChart:ApplyDataLabels:Set("HasLeaderLines", .T. )
        oChart:ApplyDataLabels:Set("ShowValue", .T. )
        oChart:ApplyDataLabels:Set("AutoText", .T. )
        oChart:ApplyDataLabels:Set("ShowBubbleSize", .F. )
      CATCH
      END
  
      oExcel:ScreenUpdating   := .T.
      oExcel:visible          := .T.
      ShowWindow( oExcel:hWnd, 3 )
      BringWindowToTop( oExcel:hWnd )
    Else
      MsgAlert ("Para poder exportar los datos debe tener Microsoft Excel instalado en el sistema","Atención")
    Endif
  Endif
Return (nil)