yc19901231 2017-09-06 23:57 采纳率: 0%
浏览 1538

vba转C#中读取excel中的图片,怎么用ChartObjects来设置?

With ActiveWorkbook.Worksheets("Summary")
.Range("A1:O28").CopyPicture
.Paste
For i = 1 To .Shapes.Count
Set shap = .Shapes(i)
shap.Copy
With .ChartObjects.Add(0, 0, shap.Width, shap.Height).Chart
.Paste
.Export "F:\DP_E_Planning\DP.jpg"
.Parent.Delete
End With
Next
End With
这段vba代码转成C#
ws = wb.Worksheets["Summary"]; // 打开sheet_Summary

         ws.Range["A1 : O28"].Copy();   //复制A1: O 28
         ws.Range["A1 : O28"].Insert(Microsoft.Office.Interop.Excel.XlDirection.xlDown);//黏贴
         for (int i = 0; i < ws.Shapes.Count-1; i++)
        {
             shap = ws.Shapes.Item(i+1);
             shap.Copy();

             Excel.ChartObjects xlCharts = (Excel.ChartObjects)ws.ChartObjects(Type.Missing); // 建立图表  
             Excel.ChartObject myChart = (Excel.ChartObject)xlCharts.Add(0, 0, shap.Width, shap.Height); //加入图表及设定大小  
             Excel.Chart chartPage = myChart.Chart;
             chartPage.Paste();
                            chartPage.Export(@"F:\DP_E_Planning\DP1.jpg");
             chartPage.Parent();

在执行c#的时候报错说Object引用没有被实例化。 这个问题要怎么解决?

        }
  • 写回答

2条回答

  • devmiao 2017-09-07 01:32
    关注
    评论

报告相同问题?

悬赏问题

  • ¥15 如何在scanpy上做差异基因和通路富集?
  • ¥20 关于#硬件工程#的问题,请各位专家解答!
  • ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
  • ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
  • ¥30 截图中的mathematics程序转换成matlab
  • ¥15 动力学代码报错,维度不匹配
  • ¥15 Power query添加列问题
  • ¥50 Kubernetes&Fission&Eleasticsearch
  • ¥15 報錯:Person is not mapped,如何解決?
  • ¥15 c++头文件不能识别CDialog