Question

无论如何，图表的标题都等于字符串变量。我记录了我手动更改标题，它首先激活它，然后显示我的文本编辑，但如果我不想激活它，我该怎么做。我知道图表的名称是图表1，所以试图找到一种方法将图表1的标题设置为我的字符串变量（我从其他地方的其他循环生成）。 THX

activesheet.chartobjects("chart 1").activate
activesheet.charttitle.text="my text edit"

Answer 1

public class Tree
{
    public Tree()
    {
        Fruits = new Dictionary<string, Fruit>();
    }
    public IDictionary<string, Fruit> Fruits { get; set; }
}

public class Fruit
{
    public Fruit(Tree parent)
    {
        Parent = parent;
        Seeds = new Dictionary<string, Seed>();
    }
    public Tree Parent { get; set; }
    public IDictionary<string, Seed> Seeds { get; set; }
}

public class Seed
{
    public Seed(Fruit parent)
    {
        Parent = parent;
    }
    public Fruit Parent { get; set; }
}

您可以阅读有关chartObjects here

的更多信息

Answer 2

我更喜欢这个解决方案：

Dim var As String

Set objChrt1 = Sheets("sheet1").ChartObjects(1)
Set myChart1 = objChrt1.chart
myChart1.ChartTitle.Text = "my text edit"

var = myChart1.ChartTitle.Text
MsgBox var

自动设置图表标题

2 个答案: