VBA实现快捷制图出现的问题

木子三少

自从学习VBA来，得到了大家的热情帮助，首先表示真诚的感谢。
小弟用VBA做了一个快捷根据选定数据制图的代码：： 先筛选出要制图的区域，然后选定前两列数据进行制图。发现了一个问题：做一张表的时候没有问题，但是当我改变筛选地区，再生成表的时候却不行了，因为生成的第一张表会因为我改变了筛选地区发生变化。

具体请大家看我的截图和附件，再次感谢帮助！

phsu

寫入ChartTitle之前，要先設定HasTitle=True。
ActiveChart.HasTitle = True

木子三少

phsu 发表于 2015-11-18 12:19
寫入ChartTitle之前，要先設定HasTitle=True。
ActiveChart.HasTitle = True

兄弟，我按你说的方法改代码，结果发现还是一改变筛选的地区，做好的图跟着变化。。。
不知道要怎么才能彻底解决

木子三少

肯请各位朋友指点迷津，非常想知道这个问题应该怎么解决。。。。

木子三少

上了附件的，有没有朋友能指点 一下 这个问题怎么解决。。。

phsu

我將你的代碼做了大幅度修改，你看看是否符合需求。
Public Sub TestChart()
    Dim r1 As Range
    Dim nRow As Integer
    With Sheet2.ChartObjects
        If .count <> 0 Then
            .Delete
        End If
    End With
    Sheet2.Columns("A:C").Clear
    Set r1 = Sheet1.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
    r1.Copy Sheet2.Range("A1")
    With ThisWorkbook.Worksheets("Sheet2")
        .Activate
        nRow = .Range("A65536").End(xlUp).Row
    End With
    Charts.Add
    With ActiveChart
        .ChartType = xlPie
        .SetSourceData Source:=Sheet2.Range("A2:B" & nRow)
        .HasTitle = True
        .ChartTitle.Characters.Text = Sheet2.Range("C3")
        .Location xlLocationAsObject, "Sheet2"
    End With
End Sub

phsu

請參閱附件。

木子三少

phsu 发表于 2015-11-22 11:45
我將你的代碼做了大幅度修改，你看看是否符合需求。
Public Sub TestChart()
    Dim r1 As Range

谢谢这位兄弟！我是想实现选不同的地区生成不同的图表，最后每个地区生成后，各种个图表能同时继续显示，最后可以对比各种地区的图表。没表达清楚，不好意思

木子三少

选择三个地区生成图表后，最后得到三个地区的图表对比。。。演示方案对比的时候用。

木子三少

肯请大家指点一下。。。