vb.net 将图表对象的矢量图复制到剪贴板

剪贴板"/>

vb.net 将图表对象的矢量图复制到剪贴板

最近使用vb自带的图表对象，想把图表存储为emf矢量图，chart对象提供了SaveImage方法，可以存储为磁盘文件，SaveImage(imageFileName As String, format As ChartImageFormat)，然后复制文件，粘贴到word里，但是直接将emf文件保存在内存中然后放入剪贴板更合适，但使用存储为内存数据的重载方法时提示GDI+出现一般性错误。

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        With Chart1
             With .Series(0)
                .ChartType = DataVisualization.Charting.SeriesChartType.Line
                .Points.DataBindXY({1.0R, 5.0R}, {7.0R, 9.0R})
            End With

            Dim x As New IO.MemoryStream()
            .SaveImage(x, DataVisualization.Charting.ChartImageFormat.Emf)
            Dim emf = New Imaging.Metafile(x)    '出错
        End With

    End Sub

折腾半天发现原因很简单，SaveImage(imageStream As Stream, format As ChartImageFormat)方法存储的MemoryStream比实际要大，需要把