这段VBA代码如何转换成VB.NET

[ryu_kanka]

RT

VBA代码如下：

Sub Macro1()

    With ActiveChart
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "日付"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "障害件数"
    End With

End Sub

转换成VB.NET代码应该怎样写呢？

[scott156]

我不是很清楚 ActiveChart 是啥，不过按VB.NET语法来说

    Sub Macro1()
         With ActiveChart
            .Add("A", True)
            Dim B As Boolean
            B = .Item("A")
        End With
    End Sub

你写的语法是没有错的。.NET通用

[a854468521]

’添加EXCEL引用：
'Microsoft Office 12.0 Object Library
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Core
Sub Macro1()
Dim Exc As New Microsoft.Office.Interop.Excel.Application
Exc.Workbooks.Add()
With Exc.ActiveChart
.Axes(Microsoft.Office.Core.XlAxisType.xlCategory, Microsoft.Office.Core.XlAxisGroup.xlPrimary).HasTitle = True
.Axes(Microsoft.Office.Core.XlAxisType.xlCategory, Microsoft.Office.Core.XlAxisGroup.xlPrimary).AxisTitle.Characters.Text = "日付"
.Axes(Microsoft.Office.Core.XlAxisType.xlValue, Microsoft.Office.Core.XlAxisGroup.xlPrimary).HasTitle = True
.Axes(Microsoft.Office.Core.XlAxisType.xlValue, Microsoft.Office.Core.XlAxisGroup.xlPrimary).AxisTitle.Characters.Text = "障害件数"
End With

End Sub

[清晨曦月]

如果是OFFICE的，那这段代码吊不用改就可以用在.NET上

但是要明确指出ActiveChart是啥玩意，

Sub Macro1()

With UROBJ.ActiveChart
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "日付"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "障害件数"
End With

End Sub