2007图表复制 源数据问题

darlingjuan

zhangchangshu 发表于 2014-10-18 23:40
我还没有解决，先用03版复制，再用07编辑

还是没有人解决么？这是个无解么？我现在也碰到这个问题了。

香川群子

用这个代码可以做到：
1. 选中图表、按下宏按钮得到图表名称（便于下一次直接选中该图表）
2. 接着选中数据区域、再次按下按钮，即可自动把图标的数据源更新为选中的数据区域。

如果在Excel菜单上增加一个自定义宏按钮，把这个代码复制到个人宏工作簿内，就可以方便以后随时操作了。

仍然需要一个一个改，但总比全部手动更改数据源要快一点。

1. Dim myChart As String
   
2. Sub SetChartRange()
   
3.     If myChart = "" Then
   
4.         On Error GoTo 2
   
5. 1       myChart = ActiveChart.Name
   
6.         MsgBox "已选择" & vbCr & myChart & vbCr & vbCr & "  下面请选择图表数据区域"
   
7.     Else
   
8.         On Error GoTo 1
   
9. 2       If Selection.Count = 1 Then ActiveCell.CurrentRegion.Select
   
10.         myRngAdd = Selection.Address
    
11.         If myChart = "" Then
    
12.             MsgBox "请先选择图表区域"
    
13.         Else
    
14.             ActiveSheet.ChartObjects(Split(myChart, , 2)(1)).Activate
    
15.             ActiveChart.SetSourceData Source:=Range(myRngAdd)
    
16.             myChart = ""
    
17.         End If
    
18.     End If
    
19. End Sub

复制代码