Greeting,
I have draw a line/connector within a rectangle-shape from the lower left corner to the upper rigth corner:
Element = Slide1.Shapes.AddShape(Microsoft.Office.Core.MsoAutoShapeType.msoShapeRectangle, X, Y, w, h) Element.Nodes.SetEditingType(1, Microsoft.Office.Core.MsoEditingType.msoEditingCorner) Element.Nodes.SetEditingType(2, Microsoft.Office.Core.MsoEditingType.msoEditingCorner) Element.Nodes.SetEditingType(3, Microsoft.Office.Core.MsoEditingType.msoEditingCorner) Element.Nodes.SetEditingType(4, Microsoft.Office.Core.MsoEditingType.msoEditingCorner) With Slide1.Shapes.AddConnector(Microsoft.Office.Core.MsoConnectorType.msoConnectorStraight, Element.Left, Element.Top + Element.Height, Element.Left + Element.Width, Element.Top).ConnectorFormat .BeginConnect(ConnectedShape:=Element, ConnectionSite:=4) .EndConnect(ConnectedShape:=Element, ConnectionSite:=2) End With
The line is getting automatic the color blue.
Now I want to set the color to black, but I can't find a method for this.
Regards
Michael