如何在excel vba中插入图表标题
如何在excel vba中插入图表标题
提问于 2021-04-18 21:50:35
我已经创建了一个代码来表示3个煤矿的图表。图表显示正确，但未显示图表的标题。图表标题iS“感染病例”如何解决此问题？代码已附上
Set r1 = Range(Cells(2, 26), Cells(Lastrow, 26))
Set r2 = Range(Cells(2, 32), Cells(Lastrow, 32))
Set r3 = Range(Cells(2, 33), Cells(Lastrow, 33))
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Chart"
With ActiveSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225)
.Chart.SetSourceData Source:=Union(r1, r2, r3)
.ChartTitle.Text = "infected cases"
.Chart.ChartType = xlLineMarkers
End With回答 1
Stack Overflow用户
发布于 2021-04-18 22:19:19
请尝试以下代码：
Sub chartTitle()
Dim r1 As Range, r2 As Range, r3 As Range
Set r1 = Range(cells(2, 26), cells(lastRow, 26))
Set r2 = Range(cells(2, 32), cells(lastRow, 32))
Set r3 = Range(cells(2, 33), cells(lastRow, 33))
Sheets.Add After:=Sheets(Sheets.count)
ActiveSheet.Name = "Chart"
With ActiveSheet.ChartObjects.Add(left:=100, width:=375, top:=75, height:=225).Chart
.SetSourceData Source:=Union(r1, r2, r3)
.HasTitle = True 'necessary line to accept a title!
.ChartTitle.Text = "infected cases"
.ChartType = xlLineMarkers
End With
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/67149323
复制相关文章
相似问题
腾讯云开发者
