VBA 모양의 gluedshapes에 대한 각 루프에 대해

Question

셰이프 gluedshapes를 반복하려고 시도하고 한 번 반복 한 다음 Me.Application.ActivePage.Shapes (i) .GluedShapes()에서 "잘못된 매개 변수 오류"를 발생시킵니다. visGluedShapesAll2D, "") 두 번째 반복 동안. 확실히 첫 번째 반복에서 올바르게 실행되면 두 번째 및 세 번째 등호에서 올바르게 실행되어야합니다.

이 코드에서는 특정 유형을 찾는 모든 모양을 실행 중이므로 GluedShapes 배열을 반복하고 id가 배열 요소마다 반환 된 id와 같은 경우 다음과 같이

코드는 다음과 같습니다

For i = 1 To Me.Application.ActivePage.Shapes.Count 
     If InStr(Me.Application.ActivePage.Shapes(i).Name, "Flow Connector") > 0 Then 
      For Each j In Me.Application.ActivePage.Shapes(i).GluedShapes(visGluedShapesAll2D, "") 
       If s.ID = j Then 
       End If 
      Next j 
     End If 
    Next i 

덕분에 어떤 도움이 이해할 수있을 것이다. s는 현재 형태이며, 위의 나에게 내 현재의 모양이 모양으로 접착되는 첫 번째 형태의 ID를 제공 난 그냥

Dim s As Shape 
Dim id As Variant 

Set s = Application.ActiveWindow.Page.Shapes.ItemFromID(Selection.PrimaryItem.id) 

id = s.GluedShapes(visGluedShapesAll1D, "")(0) 

를 사용할 수있는 모든 모양을 반복 할 필요가 없습니다

Answer 1

수 하나의 상위 셰이프에만 연결됩니다.