"The item with the specified name wasn't found" 尝试对工作表上的形状进行分组时出错

Question

我正在编写一个 VBA 程序来有选择地对一些圆角矩形进行分组。将有这些组的集合，所以我想将它们存储在一个数组中。（例如，我想让 dataSeriesGroup(1) 有一组说三个圆角矩形，dataSeriesGroup(2) 有一组其他三个圆角矩形，等等）。我正在尝试使用 .Name 属性将它们分配给组，如下所示：

Dim ctr, ctr2, seriesCount, dataCount as Integer
Dim dataSeriesGroup() as Shape
Dim dataPoint() as Shape
Dim dTop, dLeft, dWidth, dHeight as long
Dim dataPointName as Variant

<Bunch of code to calculate values of dTop, dLeft, dWidth, dHeight, seriesCount, dataCount>

Redim dataSeriesGroup(seriesCount)
Redim dataPoint(dataCount, dataSeriesCount)
Redim dataPointName(dataCount)

For ctr = 1 to seriesCount

 For ctr2 = 1 to dataCount
   Set dataPoint(ctr2, ctr) = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, dLeft, dTop, dWidth, dHeight)
   dataPointName(ctr2) = dataPoint(ctr2, ctr).Name
 Next ctr2

Set dataSeriesGroup(ctr) = Activesheet.Shapes(Array(dataPointName)).Group

Next ctr

一切正常，但是当我尝试设置 dataSeriesGroup(ctr) 时出现错误 "Run-time error '-2147352571 (80020005)': The item with the specified name wasn't found."

有人可以就我做错了什么提供一些指导吗？

Answer 1

问题在于声明变量datapointName的方式。您想要构建一个与 Array 函数返回的行为相同的数组，returns 一个从零开始的 变体数组 :

Dim datapointName() As Variant '<== Notice the parentheses.

小心 ReDims，因为您通常不希望在数组的远端悬空空值，因此：

ReDim dataPointName(0 To dataCount - 1) '<== That's dataCount elements!

另请参阅下面示例代码中关于变量声明的注释。

最后，使用 Shapes 集合的 Range 属性获取子集，并删除对 Array() 的调用，因为 dataPointName 已经是：

Set dataSeriesGroup(seriesIndex) = ActiveSheet.Shapes.Range(dataPointName).Group

综上所述，下面是一些基于您的功能演示代码：

Sub DoTheShapesThing()
    'Note: in VBA, to each variable its type; otherwise: Variant.
    'I've renamed some variables for clarity.
    Dim seriesIndex As Integer
    Dim dataIndex As Integer
    Dim seriesCount As Integer
    Dim dataCount As Integer
    Dim dataSeriesGroup() As Shape
    Dim dataPoint() As Shape
    'Haven't altered your position and size variables, but the type should typically be Double.
    Dim dTop As Long
    Dim dLeft As Long
    Dim dWidth As Long
    Dim dHeight As Long
    Dim dataPointName() As Variant '<== Here, the parentheses make all the difference! You want an array of Variants, just like the Array function returns.

    'I've added this declaration for the code to compile. REMOVE IT! You've probably declared this variable elsewhere.
    Dim dataseriesCount As Long

    'Test values...
    seriesCount = 2
    dataCount = 2
    dataseriesCount = seriesCount '<== Note that dataseriesCount must be >= seriesCount so the code below doesn't go "Subscript out of range".
    dLeft = 100: dTop = 100: dWidth = 100: dHeight = 100

    ReDim dataSeriesGroup(0 To seriesCount - 1)
    ReDim dataPoint(0 To dataCount - 1, 0 To dataseriesCount - 1)
    ReDim dataPointName(0 To dataCount - 1)

    For seriesIndex = 0 To seriesCount - 1
        For dataIndex = 0 To dataCount - 1
            'Took some liberties with shape disposition here...
            Set dataPoint(dataIndex, seriesIndex) = ActiveSheet.Shapes.AddShape( _
                msoShapeRoundedRectangle, _
                dLeft + 10 * (seriesIndex + dataIndex), _
                dTop + 10 * (seriesIndex + dataIndex), _
                dWidth, _
                dHeight)

            dataPointName(dataIndex) = dataPoint(dataIndex, seriesIndex).Name
        Next dataIndex

        Set dataSeriesGroup(seriesIndex) = ActiveSheet.Shapes.Range(dataPointName).Group
    Next seriesIndex
End Sub

"The item with the specified name wasn't found" 尝试对工作表上的形状进行分组时出错

"The item with the specified name wasn't found" error when trying to group shapes on a worksheet

excel

vba

shapes