Question

此问题在参考中使用VBA从图表中删除数据点。

经过广泛搜索后，我遇到了一些非常有用的代码。特别是Jon Peltier（获取有关嵌入图表中某个点的信息）：

不幸的是，这段代码只返回数据点的系列名称和值（非常有用，但需要更进一步）。为了使这个代码更加健壮，理想情况下它将返回所选数据点的单元格位置（可以突出显示，删除等）。前一段时间在另一个论坛上提出了完全相同的问题，但没有解决方案（参见ozgrid的链接，链接如下）

基本上，我需要从系列名称和数据点中提取单元格地址，这样我就可以编写一段代码来清除单元格的内容，从而从图表中删除数据点。有任何想法吗？即要更新的代码部分：

'Sheet4.Cells(b, ????).ClearContents

感谢您的任何意见！

此问题也在：

中提出

http://www.ozgrid.com/forum/showthread.php?t=181251&goto=newpost **

（链接到Jon Pelteir和其他参考资料）

完整的代码是：

Private Sub EvtChart_MouseUp(ByVal Button As Long, ByVal Shift As Long, _ 
ByVal x As Long, ByVal y As Long) 
 'extracted and modified from [URL]http://www.computorcompanion.com/LPMArticle.asp?ID=221[/URL]

Dim ElementID As Long 
Dim a As Long 
Dim b As Long 
Dim msg As String 
Dim myX As Date 
Dim myY As Double 
Dim Answer As Integer 
Dim Counter As Integer 
Dim QAFDest As Range 
Dim NoRows As Integer 
With ActiveChart 
     ' Pass x & y, return ElementID and Args
    .GetChartElement x, y, ElementID, a, b 
    If ElementID = xlSeries Then 
        If b > 0 Then 
             ' Extract x value from array of x values
            myX = WorksheetFunction.Index _ 
            (.SeriesCollection(a).XValues, b) 
             ' Extract y value from array of y values
            myY = WorksheetFunction.Index _ 
            (.SeriesCollection(a).Values, b) 

             ' Display message box with point information
            msg = "You are about to remove the following point from data Series " & vbCrLf _ 
            & """" & .SeriesCollection(a).Name & """" & vbCrLf _ 
            & "Point " & b & vbCrLf _ 
            & "Value = " & myY & vbCrLf _ 
            & "Continue?" 
            If MsgBox(msg, vbOKCancel) = vbOK Then 
                 'Sheet4.Cells(b, ????).ClearContents
            End If 
        End If 
    End If 
End With 
End Sub

Answer 1

（注意：我不确定您的图表是如何设置的，因此返回的范围可能会有所不同）。

要返回图表上选择的范围，您可以执行以下操作：

Set seriesParts = Split(.SeriesCollection(a).Formula)
Set ySeriesAddress = seriesParts(2)
set ySeriesRange = Range(ySeriesAddress)

从这里开始，根据您拥有的图表类型，您可以使用{{1>} arg1 和 arg2 值{{1} }方法选择包含要删除的数据的单元格。

例如，如果您有一个简单的图表和数据，如下所示

Sample Chart Data

并且选择的点是C点（索引为3），您将使用以下代码

GetChartElement

这将清除图表数据中的值“3”

Answer 2

管理以在不使用set函数的情况下获得一些代码运行。见下文：

Private Sub EmbChart_MouseUp _
(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)

Dim ElementID As Long, Arg1 As Long, Arg2 As Long
Dim myX As Double, myY As Double

Dim SF As String
Dim splitArray() As String

Dim row As Long
Dim column As String

If Button = xlPrimaryButton Then
With EmbChart
'Pass x & y, return ElementID and Args
    .GetChartElement X, Y, ElementID, Arg1, Arg2

    Application.StatusBar = "[" & ElementID & "]" 'delete?

    If ElementID = xlSeries Or ElementID = xlDataLabel Then
        If Arg2 > 0 Then
                ' Extract x value from array of x values
            myX = WorksheetFunction.Index(.SeriesCollection(Arg1).XValues, Arg2)
                ' Extract y value from array of y values
            myY = WorksheetFunction.Index(.SeriesCollection(Arg1).Values, Arg2)

            Application.StatusBar = "[" & myX & ", " & myY & "]"

                  'find row of selected chart point
                   row = myX + 3                            'dependant on starting row of data


                  'find row of selected chart point
                   SF = .SeriesCollection(Arg1).Formula     'return series formula as string
                   splitArray() = Split(SF, "$")            'split series formula into array with $ as deliminter
                   column = splitArray(3)                   'return selected column


                   Debug.Print column


                   'delete and highlight corresponding cell

                ActiveSheet.Cells(row, column).ClearContents
                ActiveSheet.Cells(row, column).Interior.Color = vbYellow

       End If

    End If

Application.StatusBar = False


End With
End If
End Sub

使用VBA从图表中删除数据点

2 个答案: