Question

我有一个超棒的 vba 宏, 从< a href=> "http://snipplr.com/view/54755/" rel="nofollow" >这里做我想做的。我正试图把它转换为 VB. NET 。

VBA的代码:

Sub bah()
    Set Range you want to export to file
    Dim rgExp As Range: Set rgExp = Range("B2:C6")
        Copy range as picture onto Clipboard
    rgExp.CopyPicture Appearance:=xlScreen, format:=xlBitmap
        Create an empty chart with exact size of range copied
    With ActiveSheet.ChartObjects.Add(Left:=rgExp.Left, Top:=rgExp.Top, _
    Width:=rgExp.Width, Height:=rgExp.Height)
    .Name = "ChartVolumeMetricsDevEXPORT"
    .Activate
    End With
        Paste into chart area, export to file, delete chart.
    ActiveChart.Paste
   ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Chart.Export "C:UsersajohnsonDesktopworkdamnit.jpg"
ActiveSheet.ChartObjects("ChartVolumeMetricsDevEXPORT").Delete
End Sub

这需要优异的射程, 然后将其放入一张图表, 该图表是该射程的复制件, 并保存为 JPG 。

以下是我最近试图让它成为VB.

Dim xlApp As New Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim xlRange As Excel.Range
xlWorkBook = xlApp.Workbooks.Open("C:	est.xlsx")
xlWorkSheet = xlWorkBook.Sheets("Sheet1")


 xlRange = xlWorkSheet.Range("B2:C6")
        With xlWorkSheet.ChartObjects.add(xlRange.Left, xlRange.Top, xlRange.Width, xlRange.Height)
            .name = "Chart1"
            .activate()
        End With
xlWorkSheet.ChartObjects("Chart1").Paste()
        xlWorkSheet.ChartObjects("Chart1").chart.export(Filename:="C:UsersajohnsonDesktopsaveit.jpg")
        xlWorkSheet.ChartObjects("Chart1").delete()

我正遇到转换 Apviouschart.Paste 方法的麻烦。我无法在 VB.NET 中找到该方法。它会投出一个错误, 或者在 VB.NET 中只留下一个空框( 如果我在粘贴前添加了 < code>.chart , 但是没有粘贴任何值), 但是在 VBA 中, 它会填充利息值。我尝试了创建图表对象, 但似乎也没有成功。

我觉得我快要把它解决了,但我搞不明白。我想我可以把它当作VBA的宏,从VB.NET中把它称为VB.NET,但在某种程度上这似乎很荒谬。任何帮助都会非常感激。我也愿意接受不同的方法,这就是我在VBA中遇到的很好的工作,所以我认为这是一个良好的起点。

谢啦! 谢啦! 谢啦! 谢啦! 谢啦!

Answer 1

我不得不把MSDN打得更难一点才能到达那里。结果,你必须把图表对象放进图表里, 我工作的代码看起来像:

  xlRange = xlWorkSheet.Range("B2:C6")
    xlRange.CopyPicture(Excel.XlPictureAppearance.xlScreen, Excel.XlCopyPictureFormat.xlPicture)
    Dim oChtobj As Excel.ChartObject = xlWorkSheet.ChartObjects.add(xlRange.Left, xlRange.Top, xlRange.Width, xlRange.Height)
    Dim oCht As Excel.Chart
    oCht = oChtobj.Chart
    oCht.Paste()
    oCht.Export(Filename:="C:saveit.jpg")
    oChtobj.Delete()

我本打算删除这个问题,因为这个问题很快就被我解决了(这忽略了我在这之前花过的时间),但是当我寻找一个像我这样的问题的时候,它就会出现在这一页上,所以也许这对将来的人有帮助。如果你出于某种原因(也许可以把它附在视野电子邮件的正文上,因为这正是我正在做的),这应该对你有用。

Answer 2

等同的C # 要求调用激活或传入将会被抛出

Excel.Range xlRange = xlWorkSheet.Range("B2:C6");

range.CopyPicture(Excel.XlPictureAppearance.xlScreen, Excel.XlCopyPictureFormat.xlPicture);
Excel.ChartObject chartObj = myWorksheet.ChartObjects().Add(range.Left, range.Top, range.Width, range.Height);

chartObj.Activate();  // Don t Forget!

Excel.Chart chart = chartObj.Chart;
chart.Paste();
chart.Export(@"C:image.png");

chartObj.Delete();

友情链接