Excel VBA: Index = ZOrderPosition em uma coleção Shapes?

O índice de uma forma em uma coleção de formas de uma planilha sempre é o mesmo que sua ZOrderPosition? (Não se pode, em princípio, inquirir diretamente sobre o Índice de uma dada Forma).

Eu verifiquei isso é verdade em alguns casos (com até 3000 formas), mas não encontrei nenhuma documentação sobre isso.

Eu percorri toda a coleção, perguntando sobre possíveis diferenças entre Index e ZOrderPosition:

Sub dump_shapes()
' Dump information on all shapes in a Shapes collection
    Dim shc As Shapes
    Set shc = ActiveSheet.Shapes
    Dim shp As Shape
    For Each shp In shc
      Dim sh2 As Shape
      Set sh2 = sh2idxzosh_shc(shp)
      Dim zoidx As Long
      ' The second argument is not actually the Index, but since we are traversing the 
      ' whole collection, and Index and ZOrderPosition are at most permutations, we are
      ' covering all of the possible Indexes.
      zoidx = idx2zo_shc(shc, shp.ZOrderPosition)
    Next shp
End Sub

As funções usadas para consulta são mostradas abaixo. Como o aviso no MsgBox'es nunca estourou, isso significa que Index = ZOrderPosition, para os casos avaliados.

' Functions between the set of shapes S and the set of natural numbers N.
' O=ZOrderPosition : S -> N  (function exists)
' D=From Index : N -> S  (function exists)
' D^-1=Index : S -> N  (function does not exist)
' f=OoD : N -> N  (can be constructed; this is expected to be only a permutation, 
'  i.e., bijective)
' g=DoO : S -> S  (can be constructed)

Function sh2idxzosh_shc(ByRef sh As Shape) As Shape
    Dim shc As Shapes
    Set shc = sh.Parent.Shapes
    Dim zo As Long
    zo = sh.ZOrderPosition
    Dim sh2 As Shape
    Set sh2 = shc(zo)
    ' g=DoO : S -> S
    ' Test Shape : g(S)=S for all s? If so, g=DoO=I ; D=O^-1 ; D^-1=O. Thus, the Index 
    '  is equal to the ZOrderPosition.
    ' Use ZOrderPosition to test Shape : O(g(s))=O(s) for all s? I.e., OoDoO=O? If so, 
    '  given that O is bijective, OoD=I ; D=O^-1 ; D^-1=O. Thus, the index is equal to 
    '  the ZOrderPosition.
    Dim zo2 As Long
    zo2 = sh2.ZOrderPosition
    If (zo2 <> zo) Then
      MsgBox ("Compound ZOrderPosition: " & zo2 & ", ZOrderPosition: " & zo)
    End If
    Set sh2idxzosh_shc = sh2
    'Set sh2 = Nothing
End Function

Function idx2zo_shc(ByRef shc As Shapes, idx As Long) As Integer
    Dim sh As Shape
    Set sh = shc(idx)
    Dim zo As Long
    zo = sh.ZOrderPosition
    ' f=OoD : N -> N
    ' Test index : f(i)=i for all i? If so, f=OoD=I ; D=O^-1 ; D^-1=O. Thus, the Index is 
    '  equal to the ZOrderPosition.
    If (zo <> idx) Then
      MsgBox ("Index: " & idx & ", ZOrderPosition: " & zo)
    End If
    idx2zo_shc = zo
End Function

PS: Eu adaptei as funções para a coleção ChartObjects de uma planilha, e a equivalência Index = ZOrder também foi verificada.

PS2: Pode-se perguntar se isso é típico de (ou mesmo garantido) qualquer coleção. EmExcel VBA: numeração não sequencial de ZOrderPosition na coleção Shapes Eu relatei um caso em que, não apenas isso não é verdade, mas Index e ZOrderPosition não são nem permutações (observe que era a coleção Shapes da Shape associada a um ChartObject, um caso diferente do mencionado acima).

Editar: Consulte Editar emExcel VBA: como obter uma referência a uma forma do ChartObject.