时间戳

首页 > 解决方案 > 如何使用vba使用公式将单元格内容插入图表文本框

excel - 如何使用vba使用公式将单元格内容插入图表文本框

问题描述

我正在使用 VBA 创建一个聚集的条形图。我需要的功能之一是右对齐 Y 轴标签。不幸的是，这似乎是不可能的，并且（据我所知）更改对齐方式的唯一方法是不显示 Y 轴标签并插入文本框。我需要使用公式来使用包含 Y 轴标签的单元格填充文本框，但是在尝试执行此操作时我不断收到错误消息。

我使用记录宏功能生成代码，我稍微清理了一下以产生：

'Y axis label corresponding to cell A12 
co.Chart.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 35, 225, 30).Select
co.Chart.Shapes.Range(Array("TextBox 2")).Select
Selection.Formula = "='Figure 1'!R12C1"

我的宏在最后一行“Selection.Formula...”上失败，返回的错误消息是“无法设置 TextBox 类的公式属性”。我需要使这项工作的代码有什么建议吗？

标签： excelvba

解决方案

例如：

Dim TB, cht

Set cht = ActiveSheet.ChartObjects(1).Chart

Set TB = cht.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 10, 80, 15)

TB.OLEFormat.Object.Formula = "=A12"

不要认为有FormulaR1C1你可以使用的属性

推荐阅读