Microsoft Office Tutorials and References
In Depth Information
7.5.5 Freiform
tens jetzt lässt sich die Verwandtschaft von Shapes und Diagrammen
leicht erkennen.
Abbildung 7.17
Koordinaten der Knoten für den Linienzug
Sub FreiformLinienzug()
Dim FB As FreeformBuilder
Dim Sh As Shape
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle3").Activate
' Eigenschaften der Freiform
Set FB = ActiveSheet.Shapes.BuildFreeform _
(msoEditingAuto, Cells(1, 9), Cells(1, 10))
Fori=2To10
FB.AddNodes msoSegmentLine, msoEditingAuto, _
Cells(i, 9), Cells(i, 10)
Next i
' Zeichnen der Freiform als Shape
Set Sh = FB.ConvertToShape
Sh.Line.Weight = 3
End Sub
Das Ergebnis:
Abbildung 7.18
Freiform-Linienzug
Search JabSto ::




Custom Search