Microsoft Office Tutorials and References
In Depth Information
7.5 Shapes
Sub Rechteck()
Dim Sh As Shape
ThisWorkbook.Worksheets("Tabelle3").Activate
Set Sh = ActiveSheet.Shapes.AddShape _
(msoShapeRectangle, 30, 30, 50, 80)
Sh.Fill.ForeColor.RGB = RGB(255, 0, 0)
Sh.Line.ForeColor.RGB = RGB(255, 255, 0)
Sh.Line.Weight = 3
Sh.Rotation = 20
End Sub
Das Ergebnis:
Abbildung 7.12
Rechteck
Zur Erläuterung:
Die Methode AddShape() dient zur Erzeugung vieler verschiedener
Typen von Zeichnungsobjekten. Sie hat fünf Parameter:
AddShape()
Type : Ein Wert aus der Aufzählung msoAutoShapeType . Diese Auf-
zählung hat weit über 100 Elemente; jeder steht für einen
bestimmten Typ von Zeichnungsobjekt. Durch Angabe des Typs
msoShapeRectangle erzeugen Sie ein Rechteck.
Typ
Left und Top : Koordinaten des Rahmens um das neue Objekt,
gemessen von der oberen linken Ecke des Tabellenblatts
Position
Width und Height : Breite und Höhe des Rahmens um das neue
Objekt
Größe
Bei einem Rechteck stimmt der Rahmen mit dem Objekt selbst über-
ein. Bei einem Oval ist der Rahmen das unsichtbare, umgebende
Rechteck. Das umgebende Rechteck wird sichtbar, wenn Sie das
Objekt markieren.
Umgebendes
Rechteck
Die Eigenschaft Fill eines Shapes dient zur Gestaltung der Füllung
des Objekts. Hier wird die Untereigenschaft ForeColor.RGB genutzt,
um die Füllfarbe des Objekts einzustellen.
Fill
Search JabSto ::




Custom Search