使用 VBA 在 Excel 系列名称中使用 Unicode 字符

Question

嘿伙计们，我正在尝试将数据系列的名称设置为包含 Unicode 字符的名称，我玩得很开心。例如，我希望系列名称是这样的：

ε = n²-k²

我查看了一些帖子，但没有一个（我看到的）有类似的情况。我是 Excel VBA 脚本的新手，这意味着我可能忽略了一些简单的事情。我知道存在特定的图表，因为这段代码只是我之前使用过的东西，在这里和那里添加了一些额外的位。我不断收到错误“运行时错误（1004）：应用程序定义或对象定义错误。”这是我目前拥有的：

ActiveSheet.ChartObjects(1).Activate
Dim chart1 As String
chart1 = "= " & ChrW(&H3B5) & " = n" & ChrW(&HB2) & " - k" & ChrW(&HB2) & " 6-5-2012"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = chart1
ActiveChart.SeriesCollection(1).XValues = ActiveSheet.Range("F2:F602")
ActiveChart.SeriesCollection(1).Values = ActiveSheet.Range("N2:N602")

调试器说下面这行是错误的原因：

ActiveChart.SeriesCollection(1).Name = chart1

Answer 1

这是你正在尝试的吗？

chart1 = ChrW(&H3B5) & " = n" & ChrW(&HB2) & " - k" & ChrW(&HB2) & " 6-5-2012"

您收到该错误是因为它将其称为公式，因为它以“=”符号开头

如果您想显示“=”符号，请在其前面添加一个空格。例如

chart1 = " = " & ChrW(&H3B5) & " = n" & ChrW(&HB2) & " - k" & _
ChrW(&HB2) & " 6-5-2012"

快照

两种方法的快照。