Microsoft Office Tutorials and References
In Depth Information
7.5.3 Linie
Zur Erläuterung:
Durch Angabe des Typs msoShapeOval erzeugen Sie ein Oval.
Type
Die Eigenschaft DashStyle einer Linie bestimmt die Art einer Linie.
Werte stammen aus der Aufzählung msoLineDashStyle . Der Wert
msoLineDash bedeutet gestrichelte Linie.
DashStyle
Mit der Eigenschaft TextFrame können Sie einige (aber nicht alle)
Eigenschaften des Texts festlegen, denen Sie viele Shapes zuordnen
können. Weitere Eigenschaften in diesem Zusammenhang sind
TextFrame2 und TextEffect .
Text...
Die Untereigenschaft TextFrame.Characters dient u. a. zur Zuwei-
sung des eigentlichen Texts (Untereigenschaft Text ) und zur Zuwei-
sung von Schrifteigenschaften (Untereigenschaft Font ).
Characters
7.5.3
Linie
Die Methode AddLine() erzeugt eine Linie. Rückgabewert ist aber wie-
derum ein Objekt des Typs Shape . Die Eigenschaft Line eines Shapes
umfasst bei einer Linie die Eigenschaften der Linie selbst. Bei einem aus-
gedehnten Objekt (wie z. B. bei einem Rechteck) enthält sie die Eigen-
schaften der Randlinie.
AddLine()
Alle Objekte, so auch Zeichnungsobjekte, können Elemente von Daten-
feldern sein. Im vorliegenden Beispiel wird ein Datenfeld von drei ähnli-
chen Linien erzeugt.
Sub Linie()
DimSh(1To3)AsShape
Dim i As Integer
ThisWorkbook.Worksheets("Tabelle3").Activate
Fori=1To3
Set Sh(i) = ActiveSheet.Shapes.AddLine _
(240, 30, 280, 30)
Sh(i).Line.ForeColor.RGB = RGB(255, 0, 0)
Sh(i).Line.Weight = 3
Sh(i).Rotation = (i – 1) * 30
Next i
End Sub
Search JabSto ::




Custom Search