Question

问题：

您需要创建三个变量，如下所示：

“rangeData”：存储当前选定的范围。 “titleChart”：它是存储图表标题 “nameSheet”：它是存储工作表名称

您将使用newVal.replace(/[^0-9]+/g, "");函数两次获取图表的标题和工作表的名称，并使用为图表指定的标题和工作表的名称。

到目前为止，我一直坚持将InputBox的值从新图表标题中获取：

我到目前为止的代码：

InputBox

Answer 1

EditorInfo.IME_ACTION_IME_ACTION_UNSPECIFIED右侧需要Set CT = ...个对象，InputBox()函数返回ChartTitle

此外String。ChartObjects “返回表示单个嵌入图表（ChartObject对象）的对象或表单上所有嵌入图表（ChartObjects对象）的集合。“，其中不是您想要设置图表标题的内容......

相反，您希望使用相关ActiveChart对象的Text属性设置ChartTitle对象的ChartTitle属性。

并且我更喜欢Application.InputBox()方法而不是VBA Chart函数，因为前者允许您通过其InputBox()参数强制用户输入类型：将其设置为Type将强制输入字符串。

最后在将2分配给Selection对象之前，请始终检查前者是 Range对象

所以你可以在这里找到：

Range

Answer 2

with yourobject.chart

  .SetElement  msoElementChartTitleAboveChart 

  .ChartTitle.Caption = Title$

以

结束