[已解决]【求助】图表标题的引用

jzzhmm425 · 发表于 2013-5-4 08:34

本帖最后由 jzzhmm425 于 2013-5-4 08:40 编辑

这是个插入图表的代码，图表的标题我想引用每张工作表的第一个单元格的内容。
但是问题来了，代码第四句，我不知道Dim C As ？？？，不知道该AS什么好了，那么多属性找不到该建立什么属性的。
这段代码的第四句：Dim C As ChartTitle，第十二句：Set C = .Cells(1, 1).Text，第二十二句：.ChartTitle.Text = C。

Sub ChartAdd()
Dim A As Range
Dim B As Range
Dim C As ChartTitle
Dim Sh As Worksheet
Dim myChart As ChartObject
For x = 3 To Sheets.Count
With Sheets(x)
.ChartObjects.Delete
Set A = .Range(.Range("A3"), .Range("A3").End(xlDown))
Set B = .Range(.Range("H3"), .Range("H3").End(xlDown))
Set C = .Cells(1, 1).Text
Set myChart = .ChartObjects.Add(120, 40, 400, 250)
With myChart.Chart
.ChartType = xlLineMarkers
.SetSourceData Source:=Sheets(x).Range("C42"), PlotBy:=xlColumns
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = A
.SeriesCollection(1).Values = B
.ApplyDataLabels ShowValue:=True
.HasTitle = True
.ChartTitle.Text = C
With .ChartTitle.Font
.Size = 20
.ColorIndex = 3
.Name = "华文新魏"
End With
With .ChartArea.Interior
.ColorIndex = 8
.PatternColorIndex = 1
.Pattern = xlSolid
End With
With .PlotArea.Interior
.ColorIndex = 35
.PatternColorIndex = 1
.Pattern = xlSolid
End With
End With
End With
Set myRange = Nothing
Set myChart = Nothing
Next
End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-4 15:41

矿井瓦斯抽采钻场组抽采情况综合分析表（更新至2013.3）.rar (99.98 KB, 下载次数: 6)

hwc2ycy · 发表于 2013-5-4 08:40

附个附件嘛。

jzzhmm425 · 发表于 2013-5-4 08:41

hwc2ycy 发表于 2013-5-4 08:40
附个附件嘛。

这么快！！好给力呀！！附件上传过了

hwc2ycy · 发表于 2013-5-4 15:41

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

矿井瓦斯抽采钻场组抽采情况综合分析表（更新至2013.3）.rar (99.98 KB, 下载次数: 6)

jzzhmm425 · 发表于 2013-5-5 08:04

hwc2ycy 发表于 2013-5-4 15:41
你的表里有宏表。

直接把C定义成STRING类型，标题用公式来指定，或者指定TEXT也是可以的。

谢谢你帅哥，这个我也解决了。那段代码改成下面的就行了

Sub ChartAdd()
Dim A As Range
Dim B As Range
Dim C As String
Dim D As Range
Dim Sh As Worksheet
Dim myChart As ChartObject
For x = 3 To Sheets.Count
With Sheets(x)
.ChartObjects.Delete
Set A = .Range(.Range("A3"), .Range("A3").End(xlDown))
Set B = .Range(.Range("H3"), .Range("H3").End(xlDown))
C = .Cells(1, 1).Text
Set D = .Range("A:A").Find("衰减系数", , xlValues, 1)
If Not D Is Nothing Then
Set myChart = .ChartObjects.Add(0, Cells(D.Row + 4, 1).Top, Range("A1:H1").Width, Range(Cells(D.Row + 4, 1), Cells(D.Row + 23, 1)).Height)
With myChart.Chart
.ChartType = xlLineMarkers
.SetSourceData Source:=Sheets(x).Range("C42"), PlotBy:=xlColumns
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = A
.SeriesCollection(1).Values = B
.ApplyDataLabels ShowValue:=True
.HasTitle = True
.ChartTitle.Text = C & "瓦斯抽采衰减曲线图"

复制代码

		自动登录	找回密码
密码			注册