使用Excel中图表的目标工作表数据将图表从一个工作表复制到另一个工作表

4 回答

• 1

  我've used Jon Peltier' s Change Series Formula很多（它实际上链接在GGuess答案中提供的页面中间） . 它是一个可以获得的加载项here .

  它非常有用，它可能涵盖了大多数此类案例的需求 . 它提供了一个方便的界面（UserForm）来搜索和替换图表系列公式中的字符串 . 它实际上比“变换源工作表”更通用，因为可以使用搜索和替换来同时更改许多系列的系列公式的其他部分 .

  回复于 2024-04-28T00:15:08+08:00
• 2

  Pelter对如何使用宏编辑绘图方程以引用当前工作表中的数据进行了很好的讨论 . 请参阅http://peltiertech.com/WordPress/make-a-copied-chart-link-to-new-data/上的文章

  回复于 2024-04-28T00:15:08+08:00
• 0

  将图表复制到另一个工作表并使图表链接到新工作表上的数据的最简单方法是不复制图表 . 最简单的方法是复制包含图表的工作表，然后更改复制工作表上的数据 .

  第二种最简单的方法，如果简单地组织图表的数据，则使用功能区或右键单击菜单中的选择数据，并更改对话框顶部的图表数据范围RefEdit中指示的范围 .

  一种繁琐的方法是更改所有图表系列公式中的所有工作表引用，例如，将以下公式中的Sheet1的所有实例更改为Sheet2：= SERIES（Sheet1！$ B $ 1，Sheet1！$ A $ 2：$一个$ 4工作表Sheet1 $ B $ 2：$ B $ 4,1）

  正如@ sancho.s指出的那样，您也可以使用我的Change Series Formula教程中发布的代码与VBA一起完成此操作 . 这些算法内置于我的商业Excel插件软件中 .

  回复于 2024-04-28T00:15:08+08:00
• 4

  所以这样的事情对我有用 . CopyCharts将所有图表从源表复制到目标表 . 然后SetChartRef将目标中图表的引用设置为我想要的值 . 在这个例子中，我知道哪个图表编号是什么 . 我想它可以改进，以便它使用图表名称代替 .

  此外，由于某些原因，如果我在复制和粘贴之间没有延迟，则会出现运行时错误，因此等待功能 .

  Sub DeleteEmbeddedCharts(target As String)
  
      Dim wsItem As Worksheet
      Dim chtObj As ChartObject
          For Each chtObj In ThisWorkbook.Worksheets(target).ChartObjects
              chtObj.Delete
          Next
  End Sub
  
  Sub SetChartRef(target As String)
  
      Dim cht As ChartObject
      Dim i As Integer
  
      'i specifies which chart to set its data references
      i = 0
      For Each cht In ThisWorkbook.Worksheets(target).ChartObjects
          If i = 0 Then
              cht.Chart.SeriesCollection(1).Values = "=" & target & "!$I$2:$I$12"
              cht.Chart.SeriesCollection(2).Values = "=" & target & "!$J$2:$J$12"
          ElseIf i = 1 Then
               cht.Chart.SeriesCollection(1).Values = "=" & target & "!$I$14:$I$25"
               cht.Chart.SeriesCollection(2).Values = "=" & target & "!$J$14:$J$25"
          ElseIf i = 2 Then
              cht.Chart.SeriesCollection(1).Values = "=" & target & "!$I$26:$I$37"
              cht.Chart.SeriesCollection(2).Values = "=" & target & "!$J$26:$J$37"
          ElseIf i = 3 Then
              cht.Chart.SeriesCollection(1).Values = "=(" & target & "!$H$2," & target & "!$H$14," & target & "!$H$26," & target & "!$H$38)"
              cht.Chart.SeriesCollection(1).XValues = "=(" & target & "!$E$2," & target & "!$E$14," & target & "!$E$26," & target & "!$E$38)"
           ElseIf i = 4 Then
              cht.Chart.SeriesCollection(1).Values = "=(" & target & "!$H$2," & target & "!$H$14," & target & "!$H$26," & target & "!$H$38)"
              cht.Chart.SeriesCollection(1).XValues = "=(" & target & "!$E$2," & target & "!$E$14," & target & "!$E$26," & target & "!$E$38)"
          ElseIf i = 5 Then
              cht.Chart.SeriesCollection(1).Values = "=" & target & "!$I$38:$I$49"
              cht.Chart.SeriesCollection(2).Values = "=" & target & "!$J$38:$J$49"
          End If
          i = i + 1
      Next
  
  
  End Sub
  
  Sub CopyCharts(source As String, target As String)
  
      Dim chtObj As ChartObject
      'First delete all charts from target sheet
      DeleteEmbeddedCharts (target)
  
      'Some delay
      Application.Wait Now + TimeSerial(0, 0, 1)
  
      For Each chtObj In ThisWorkbook.Worksheets(source).ChartObjects
          With ThisWorkbook.Worksheets(target)
              .Activate
              chtObj.Copy
              'Paste in row T1+i
              Range("T1").Offset(i).Select
              .Activate
              Application.Wait Now + TimeSerial(0, 0, 1)
              .Paste
              Application.Wait Now + TimeSerial(0, 0, 1)
              i = i + 10
              .Activate
          End With
      Next chtObj
  
      'Set the data references to target sheet
      SetChartRef (target)
  
  End Sub
  

  回复于 2024-04-28T00:15:08+08:00