I am Working on a report,where i have an ultragrid & ultrachart.I want to export these two together in excel.Currently i am able to export my ulragrid and ultra chart but both of are getting exported in two different excel files. I have searched a lot but couldn't get any proper answer.Can anyone plz help me out

 Case "Export"

                    btnExport_Click()

                    objGrid.fn_UGrid_ExportFullGridPopup(ugridAuction, True, True, False, Me.Text)

 Private Sub btnExport_Click()

        Dim w As New Infragistics.Excel.Workbook()

        Dim s As Infragistics.Excel.Worksheet = w.Worksheets.Add("Chart")

        Dim ms As New System.IO.MemoryStream()

        Me.UltraChartAuction.SaveTo(ms, Infragistics.UltraChart.Shared.Styles.RenderingType.Image)

        Dim i As New Infragistics.Excel.WorksheetImage(Image.FromStream(ms))

        i.TopLeftCornerCell = s.Rows(0).Cells(0)

        i.TopLeftCornerPosition = New PointF(0.0F, 0.0F)

        i.BottomRightCornerCell = s.Rows(20).Cells(6)

        i.BottomRightCornerPosition = New PointF(0.0F, 0.0F)

        s.Shapes.Add(i)

        Dim theFile As String = Application.StartupPath + "\" & DateTime.Now.Ticks.ToString() & ".xls"

        w.Save(theFile)

        ms.Dispose()

        Process.Start(theFile)

    End Sub