怎么命名新建图表的名称

IQ998

怎么命名新建图表的名称， 我要把新建图表名称命名为“图表 1”

怎么定义图表名称.rar (35.67 KB, 下载次数: 4)

2016-5-25 17:23 上传

点击文件名下载附件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then


On Error Resume Next
    ActiveSheet.ChartObjects.Delete
   


   

  ’新建图表
    ActiveSheet.Shapes.AddChart.Select


    ActiveChart.ChartType = xlColumnStacked
     ActiveSheet.Shapes.Name = "图表 1"  ’ 这行代码无法命名新建图表，是哪里错了？？？
ActiveChart.SetSourceData Source:=Range("模拟!$A$3:$S$51")
    ActiveChart.ClearToMatchStyle
    ActiveChart.ChartStyle = 34
    ActiveChart.ClearToMatchStyle
End If




’设置图表的大小 及 位置
    ActiveSheet.ChartObjects("图表 1").Activate
    ActiveSheet.Shapes("图表 1").Height = 443.6220472441
    ActiveSheet.Shapes("图表 1").Width = 1354.3937007874
    ActiveSheet.Shapes("图表 1").IncrementLeft -413.0357480315
    ActiveSheet.Shapes("图表 1").IncrementTop -123.2143307087
   

End Sub

爱疯

如上，嵌入图表无法修改图表名称。
不清楚题意，下面是创建一个图表。






Sub chartDemo1()
    Dim co As ChartObject

    '创建嵌入图表
    With Me.ChartObjects
        If .Count Then .Delete
        Set co = .Add(100, 10, 720, 450)
    End With

    '设置Chart对象
    With co.Chart
        .SetSourceData Source:=Range("e3").CurrentRegion
    End With

End Sub

怎么定义图表名称2.rar (30.9 KB, 下载次数: 5)

2016-5-25 21:12 上传

点击文件名下载附件

IQ998

DDDDDDDDDDDDDDDDDDDDD

爱疯

你想实现什么