3

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
4

1 に答える 1

3

あなたのコメントに基づいて、これはあなたが探しているものだと思います

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」形状は、変更が必要なコネクタであると想定しています。これらのコネクタは、線の色が赤に設定され、それぞれが前面に表示されます。

したがって、これが図面の初期状態である場合:

ここに画像の説明を入力

次に、VBA コードを実行すると、図面は次のようになります。

ここに画像の説明を入力

于 2012-08-31T20:50:23.187 に答える