커넥터 스타일 변경

Shape 객체의 커넥터를 강조 표시하려고하지만 커넥터 자체의 LineStyle 속성을 제공하지 않습니다. 여기에 지금까지 가지고 무엇을 : 귀하의 의견에 본사를 둔커넥터 스타일 변경

이

For i = 0 To UBound(lngShapeIDs) 
     Dim shp As Shape 

     Dim connect As connect 
     Set shp = ActivePage.Shapes.ItemFromID(lngShapeIDs(i)) 
     shp.LineStyle = "Guide" 
     shp.BringToFront 
     Set connect = shp.FromConnects.Item(i + 1) 
    Next

출처

2012-08-28 Alex

당신이 정교한 수

따라서이 경우

도면의 초기 상태였다 어떤 특정 선 스타일 속성을 설정 하시겠습니까? 그 사실을 알면 답을내는 데 도움이됩니다. – saveenr

a) a) 커넥터의 선 색을 설정하고 b) 정면으로 가져오고 싶습니다. Shape 객체의 경우와 같지만 연결의 경우와 같습니다. 실제로 커넥터는 Shape 유형이라고 가정합니다. 분명히 그렇지 않습니다. – Alex

이 당신이

Dim shape As shape 
For Each shape In ActivePage.Shapes 
    If (shape.OneD <> 0) Then 
     shape.CellsU("LineColor").Formula = "rgb(255,0,0)" 
     shape.BringToFront 
    End If 
Next

이 샘플 페이지의 모든 형태를 열거 찾고있는 생각이다. 이것은 가정하고 "1-D"모양은 수정해야하는 커넥터입니다. 이러한 커넥터의 경우 선 색이 빨간색으로 설정되고 각 선이 앞쪽으로 가져옵니다.

enter image description here