[已解决]用代码实现图表标题的添加

642070295

请教高手，怎样用代码实现图表标题的添加。 工作簿15.rar (12.16 KB, 下载次数: 6)

2014-1-17 13:35 上传

点击文件名下载附件     先谢了！

最佳答案

月排行榜 / 总排行榜

爱疯

2014-1-17 15:09

Sub test()
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveChart.ChartTitle.Text = "修改为你的标题"
End Sub


这是录制宏后得到。

跳转到最佳答案楼层

爱疯

Sub test()
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveChart.ChartTitle.Text = "修改为你的标题"
End Sub


这是录制宏后得到。

642070295

爱疯 发表于 2014-1-17 15:09
Sub test()
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveChart.SetElement (msoElementC ...

谢谢，问题已解决！