none
Exportar a Word un control Chart como imagen RRS feed

  • Pregunta

  • Hola Saludos, actualmente estoy mostrando en un formulario un control Chart con una grafica y una descripción, como puedo llevar a Word la grafica y su descripción... gracias


    • Editado FerchoM jueves, 13 de septiembre de 2012 20:04
    • Cambiado Enrique M. Montejo domingo, 23 de septiembre de 2012 18:28 (De:Lenguaje VB.NET)
    jueves, 13 de septiembre de 2012 20:03

Todas las respuestas

  • Hola FerchoM,

    Descarga los ejemplos del ms control chart y hay sale como copiar y pegar imagen, tendrias que automaizar esta parte para llevarla directamente a word pero para empezar te puede servir,

    codigo del ejemplo:

    Imports System.Windows.Forms.DataVisualization.Charting
    ...
    
    Private Sub Save_Click(sender As Object, e As System.EventArgs)
       
       ' Create a new save file dialog
       Dim saveFileDialog1 As New SaveFileDialog()
       
       ' Sets the current file name filter string, which determines 
       ' the choices that appear in the "Save as file type" or 
       ' "Files of type" box in the dialog box.
       saveFileDialog1.Filter = "Bitmap (*.bmp)|*.bmp|JPEG (*.jpg)|*.jpg|EMF (*.emf)|*.emf|PNG (*.png)|*.png|SVG (*.svg)|*.svg|GIF (*.gif)|*.gif|TIFF (*.tif)|*.tif"
       saveFileDialog1.FilterIndex = 2
       saveFileDialog1.RestoreDirectory = True
       
       ' Set image file format
       If saveFileDialog1.ShowDialog() = DialogResult.OK Then
          Dim format As ChartImageFormat = ChartImageFormat.Bmp
          
          If saveFileDialog1.FileName.EndsWith("bmp") Then
             format = ChartImageFormat.Bmp
          Else
             If saveFileDialog1.FileName.EndsWith("jpg") Then
                format = ChartImageFormat.Jpeg
             Else
                If saveFileDialog1.FileName.EndsWith("emf") Then
                   format = ChartImageFormat.Emf
                Else
                   If saveFileDialog1.FileName.EndsWith("gif") Then
                      format = ChartImageFormat.Gif
                   Else
                      If saveFileDialog1.FileName.EndsWith("png") Then
                         format = ChartImageFormat.Png
                      Else
                         If saveFileDialog1.FileName.EndsWith("tif") Then
                            format = ChartImageFormat.Tiff
                         Else
                            If saveFileDialog1.FileName.EndsWith("svg") Then
                               format = ChartImageFormat.Svg
                            End If
                         End If 
                      End If ' Save image
                   End If
                End If
             End If
          End If
          Chart1.SaveImage(saveFileDialog1.FileName, format)
       End If
       
    End Sub 'Save_Click
    
    Private Sub Copy_Click(sender As Object, e As System.EventArgs)
       
       ' Create a memory stream to save the chart image    
       Dim stream As New System.IO.MemoryStream()
       
       ' Save the chart image to the stream    
       Chart1.SaveImage(stream, System.Drawing.Imaging.ImageFormat.Bmp)
       
       ' Create a bitmap using the stream    
       Dim bmp As New Bitmap(stream)
       
       ' Save the bitmap to the clipboard    
       Clipboard.SetDataObject(bmp)
       
    End Sub 'Copy_Click

    saludos


    Mauricio Hernández

    • Propuesto como respuesta mauriciohz jueves, 13 de septiembre de 2012 20:58
    jueves, 13 de septiembre de 2012 20:58
  • ok muchas gracias,

    me funciona el código que pones, pero como podría llevarlo a Word<o:p></o:p>



    Ferchom

    sábado, 15 de septiembre de 2012 18:08