创建和编辑Excel图表

时间:2015-07-08 22:05:25

标签: vb.net excel excel-vba charts vba

我正在尝试使用vb.net创建数据分析程序。数据位于excel文件中。 X值在A2的A col中,Y值在B2的B col中。

我可以根据这些数据生成图表。

如何格式化图表:

  1. 添加标题
  2. 将图表中的线条颜色更改为任何指定的颜色
  3. 添加趋势线(多项式)
  4. 修改趋势线的颜色
  5. 将另一个系列(数据集图)添加到图表
  6. 编辑系列名称
  7. X,Y Labels
  8. 感谢任何其他格式提示。

    对不起我的含糊不清的问题。所以我要做的是使用vb.net自动化excel来创建一些图表。

    我不知道如何实现这个,因为我是vb.net的新手。我能够在excel中创建一个微功能,完成所有功能。但我不知道如何在vb.net中编写代码。

    有没有办法将此vba excel micro转换为vb.net?

    Sub Macro2()
      '
      ' Macro2 Macro
      '
    
      '
       Range("B1:B14").Select
       ActiveSheet.Shapes.AddChart.Select
       ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
       ActiveChart.SetSourceData Source:=Range("Sheet1!$B$1:$B$14")
       ActiveChart.SeriesCollection(1).Select
       With Selection.Format.Line
           .Visible = msoTrue
           .ForeColor.ObjectThemeColor = msoThemeColorAccent1
           .ForeColor.TintAndShade = 0
           .ForeColor.Brightness = 0
       End With
       With Selection.Format.Line
           .Visible = msoTrue
           .ForeColor.RGB = RGB(255, 0, 0)
           .Transparency = 0
       End With
       ActiveChart.SeriesCollection(1).Trendlines.Add
       ActiveChart.SeriesCollection(1).Trendlines(1).Select
       With Selection
           .Type = xlPolynomial
           .Order = 2
       End With
    End Sub
    

    谢谢。

1 个答案:

答案 0 :(得分:0)

谢谢。我找到了解决这些问题的方法。请看我的其他帖子 How to set the XValues of a series in excel using vb.net

该示例显示了如何创建图表和大多数格式化方法。代码中有一个小错误,TnTinMn在帖子中回答了这个错误。