EXPORTAR GR?FICOS DO CHART PARA WORD OU PARA EXCEL

 Dim Arquivo As String

        Response.Clear()
        Response.Buffer = True

        Dim sw As New StringWriter()
        Dim hw As New HtmlTextWriter(sw)
        Dim style As String = [Ô]<style>.textmode{mso-number-format:[Ô][Ô]\@[Ô][Ô];}</style>[Ô]

        Arquivo = [Ô]Relatorio_Estatísticas_[Ô] & Format(Now, [Ô]dd/MM/yyyy[Ô]) & [Ô]_[Ô] & Format(Now, [Ô]HH-mm-ss[Ô]) & [Ô].doc[Ô]

        Response.AddHeader([Ô]content-disposition[Ô], [Ô]attachment;filename=[Ô] & Arquivo)
        Response.Charset = [Ô]ISO-8859-1[Ô]
        Response.ContentEncoding = System.Text.Encoding.GetEncoding([Ô]Windows-1252[Ô])
        Response.ContentType = [Ô]application/vnd.word[Ô]


        For i As Integer = 0 To GridExcel.Rows.Count - 1
            Dim row As GridViewRow = GridExcel.Rows(i)


            [ô]Apply text style to each Row
            row.Attributes.Add([Ô]class[Ô], [Ô]textmode[Ô])

            row.Cells(1).Attributes.Add([Ô]class[Ô], [Ô]textmode[Ô])
            row.Cells(5).Attributes.Add([Ô]class[Ô], [Ô]textmode[Ô])

          
        Next


        LblAnoReferencia.RenderControl(hw)
      
        LblMesReferencia.RenderControl(hw)
      
        Chart1.RenderControl(hw)

        GridExcel.RenderControl(hw)


        Dim src As String = Regex.Match(sw.ToString(), [Ô]<img.+?src=[[Ô][Ô][ô]](.+?)[[Ô][Ô][ô]].+?>[Ô], RegexOptions.IgnoreCase).Groups(1).Value
        Dim table As String = [Ô]<table><tr><td><img src=[ô]{0}[ô] /></td></tr></table>[Ô]
        table = String.Format(table, Request.Url.GetLeftPart(UriPartial.Authority) + src)


        Response.Write(style)
        Response.Output.Write(sw.ToString())
        Response.Flush()
        Response.End()