はVBA

Question

の名前付き形状のインデックス番号を見つけるために、どのように私は、しかし、形状は、私が含まれていない形状を選択

がありませんでした、次のコード

for i=1 to activedocument.Shapes.count : debug.Print activedocument.shapes(i).name : next 

を走り、形状のリストを得ました名前を持っていますdebug.print selection.Shaperange.name

インデックスを見つけてここで何が起こっているのかを知るにはどうすればいいですか？

EDITは：次のコードは、問題がactivedocument.shapesは本体のみの話では形状を返すことにした私のすべての図形

Dim i 
Dim rngStory As Word.Range 

For Each rngStory In ActiveDocument.StoryRanges 
    For Each i In rngStory.ShapeRange 
     Debug.Print rngStory.StoryType & ": " & i.name 
    Next 
Next 

私を見つけました。上記のコードはすべての範囲を巡回するので、すべての形状が見つかります。

しかし、これは形状インデックスを取得する方法の中心的な問題にはまだ答えません。

Answer 1

これは私のために働く。コントロールの

Wordをワークシート名と名前を指定します。

Public Function GetShapeIndex(ByVal strName As String) As Long 

    GetShapeIndex = ActiveDocument.Shapes(strName).ID 

End Function 

Excelを：

Public Function GetShapeIndex(ByVal strWorksheet As String, ByVal strName As String) As Long 

    GetShapeIndex = Worksheets(strWorksheet).Shapes(strName).ID 

End Function