Microsoft Office Tutorials and References
In Depth Information
7.5.2 Oval
Die Eigenschaft Line eines Shapes umfasst bei einem Zeichnungsob-
jekt vom Typ Linie die Eigenschaften der Linie selbst. Bei einem aus-
gedehnten Objekt (wie hier bei einem Rechteck) umfasst sie die
Eigenschaften der Randlinie. Hier wird ebenfalls die Untereigenschaft
ForeColor.RGB genutzt, um die Linienfarbe des Objekts einzustellen.
Line
Mit der Eigenschaft Weight können Sie die Dicke der Linie einstellen.
Weight
Die Eigenschaft Rotation bestimmt die Drehung des Zeichnungsob-
jekts in Grad. Sie wird im Uhrzeigersinn gemessen.
Rotation
Hinweis
Die Koordinaten des Objekts ( Left und Top ) verändern sich durch eine Dre-
hung nicht, obwohl sich z. B. die linke obere Ecke verschiebt. Eine Aussage
über die wahre Lage ergibt sich also nur aus der Kombination der Angaben
Left , Top und Rotation .
7.5.2
Oval
Der Typ msoShapeOval dient zur Erzeugung eines Ovals. Falls Breite und
Höhe gleich sind, handelt es sich um einen Kreis. Viele Zeichnungsob-
jekte können Text enthalten; dies wird nachfolgend am Oval gezeigt:
msoShapeOval
Sub Oval()
Dim Sh As Shape
ThisWorkbook.Worksheets("Tabelle3").Activate
Set Sh = ActiveSheet.Shapes.AddShape _
(msoShapeOval, 130, 30, 80, 50)
Sh.Line.DashStyle = msoLineDash
Sh.TextFrame.Characters.Text = "Hallo"
Sh.TextFrame.Characters.Font.Color = vbYellow
End Sub
Das Ergebnis:
Abbildung 7.13
Oval
Search JabSto ::




Custom Search