更改連接器樣式

我想突出顯示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）設置連接器的線條顏色，並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

此示例枚舉通過在頁面中的所有形狀。它假定和「一維」形狀是需要修改的連接器。對於這些連接器，它們的線條顏色被設置爲紅色，並且它們每個都被置於前面。

所以，如果這是圖紙的初始狀態：

enter image description here

然後運行VBA代碼後，圖紙看起來就像這樣：

enter image description here

來源

2012-08-31 20:50:23 saveenr

感謝您的回答，這肯定有效 - 我的問題是，我沒有連接器作爲形狀，但作爲連接對象。不幸的是，他們沒有LineColor。 – Alex

感謝您的回答，關於這些東西的文檔真的非常罕見且結構不合理 – ubugnu

更改連接器樣式

回答

相關問題