excel - 如何使用 Excel-VBA 绘制阿伦尼乌斯图？又名 : How to do a reciprocal x-axis in excel-VBA?

Question

我想编写一个程序将温度相关数据转换为阿伦尼乌斯图。阿累尼乌斯图显示热激活特性的对数与温度倒数(即 1/T)的关系。现在大多数人都不习惯1/T。这就是为什么大部分绘图还包含第二个轴上的温度平移。通常位于图表的顶部。输出应如下所示:

Picture Source

第二个轴只是为了更好的可读性，它与主轴对应，关系如下:

primary=1/secondary 

secondary=1/primary

我无法在 excel-VBA (excel 2010) 中执行第二个 x 轴的倒数。 没有像这样的预定义轴缩放。轴的属性 ScaleType 有 xlScaleLinear 和 xlScaleLogarithmic。有没有办法做到这一点？

第二个问题是:

Dim CH As Chart

Set CH = Tabelle2.ChartObjects(1).Chart

CH.ChartType = xlXYScatterLinesNoMarkers

With CH
    .HasAxis(xlCategory, xlSecondary) = True
End With

似乎不起作用。这意味着 xyScatterplot 似乎没有启用 secondaryXaxis。

我可以尝试使用表单添加标签并勾选自己，但这似乎有点痛苦，我不是唯一遇到此问题的人。

• 问题 1:如何设置轴倒数 (1/x) 的格式？

• 问题 1b:如何在 XY 散点图中正确添加第二个 x 轴？

Answer 1

您可以通过使用带有数据标签的系列创建一个假轴来做到这一点(受到 https://peltiertech.com/secondary-axes-that-work-proportional-scales/ 的启发):

A 列和 B 列是您的数据。 C 列与主 X 轴的 X 刻度相匹配。 D 列是 =1/C2 等，E 列是图表的 y 轴最大值。现在只需创建一系列新的 C 列和 E 列，将其格式化为没有线条，在本例中我选择了 + 标记，但如果您希望它准确，您可以创建自己的垂直线标记。然后将数据标签集添加到范围列 D。

我认为如果没有这个技巧，您不会找到另一种方法来做到这一点，但这实际上并不那么难，并且不需要 VBA，这在工作簿的可读性/可听性方面始终是一个优势。