| VBA-Grafik-Programmierung → Bespiele | |
| Befehl | Beschreibung |
| ActiveSheet.DrawingObjects.Delete | Alle Grafik-Objekte löschen |
|
ActiveSheet.Shapes(<Nr>).Delete ActiveSheet.Shapes(<Name>).Delete |
Bestimmtes Grafik-Objekt löschen |
| ActiveSheet.Shapes.AddLine(X1, Y1, X2, Y2).Name = <Name> | Linie zeichnen |
| ActiveSheet.Shapes.AddPolyline(XY).Name = Name | Polylinie zeichnen |
| ActiveSheet.Shapes(<Name>).Nodes.Count | Anzahl Polylinie-Punkte ermitteln |
| ActiveSheet.Shapes(<Name>).Nodes(<Nummer>).Point | Polylinie-Punkt lesen |
| ActiveSheet.Shapes("PolyLinie").Nodes.Delete <Punkt-Nummer> | Polylinie-Punkt löschen |
| ActiveSheet.Shapes.AddShape(msoShapeRectangle, X1, Y1, Breite, Höhe).Name = <Name> | Rechteck zeichnen |
| ActiveSheet.Shapes.AddShape(msoShapeOval, X, Y, Breite, Höhe).Name = <Name> | Ellipse zeichnen |
| ActiveSheet.Shapes(<Name>).Visible = True / False | Grafikobjekt sichtbar / unsichtbar schalten |
| ActiveSheet.Shapes(<Name>).Left = <Abstandswert> | Abstande des Grafikobjektes vom linken Rand des Tabellenblattes |
| ActiveSheet.Shapes(<Name>).Top = <Abstandswert> | Abstande des Grafikobjektes vom oberen Rand des Tabellenblattes |
| ActiveSheet.Shapes(<Name>).Width = <Wert> | Breite des Grafikobjektes |
| ActiveSheet.Shapes(<Name>).Height = <Wert> | Höhe des Grafikobjektes |
| ActiveSheet.Shapes(<Name>).Rotation = <Altgrad-Winkel> | Drehung des Grafikobjektes im Uhrzeigersinn ( in Altgrad ) |
| ActiveSheet.Shapes(<Name>).Fill.Visible = True / False | Füllung sichtbar / unsichtbar schalten |
| ActiveSheet.Shapes(<Name>).Fill.Solid | Gleichmäßige Füllung |
| ActiveSheet.Shapes(<Name>).Fill.ForeColor.RGB = RGB(Rot, Grün, Blau) | Füllfarbe setzen |
| ActiveSheet.Shapes("Figur")Fill.TwoColorGradient <Richtung>, <Modus> | Farbverlauf |
| ActiveSheet.Shapes(<Name>).Fill.Transparency = Wert ( 0..1 ) | Transparents des Grafikobjektes setzen |
| ActiveSheet.Shapes(<Name>).Line.ForeColor.RGB = RGB(Rot, Grün, Blau) | Linienfarbe setzen |
| ActiveSheet.Shapes(<Name>).Line.Weight = <Dicke> | Liniendicke setzen |
| ActiveSheet.Shapes(<Name>).Type | Grafiiktyp ermitteln |
| ActiveSheet.Shapes(<Name>).TextFrame.Characters.Text = <Text> | Text in Grafikobjekt einfügen ( auch Textbox ) |
| ActiveSheet.Shapes(<Name>).TextFrame.Characters.Font.Size = <Größe> | Textgröße des Grafikobjektes |
| .Shapes(<Name>).TextFrame.Characters.Font.Color = RGB(Rot, Grün, Blau) | Textfarbe des Grafikobjektes setzen |
| .Shapes(<Name>).TextFrame.Characters.Font.Name = <Schriftname> | Schriftname des Textes eines Grafikobjektes |
|
.Shapes(<Name>).TextFrame.Characters.Font.FontStyle
= <StyleName> |
Schriftart des Textes eines Grafikobjektes ( "Standard" / "Fett" / "Kursiv" / "Fett Kursiv" ) |
| ActiveSheet.Shapes(<Name>).TextFrame.HorizontalAlignment = <Ausrichtung> |
Text in Grafikobjekt horizontal ausrichten ( xlRight, xlLeft, xlCenter ) |
| ActiveSheet.Shapes(<Name>).TextFrame.VerticalAlignment = <Ausrichtung> |
Text in Grafikobjekt vertikal ausrichten ( xlTop, xlBottom, xlCenter ) |
|
ActiveSheet.Shapes(<Objektname>).Copy ActiveSheet.Paste |
Grafikobjekt kopieren |
|
ActiveSheet.Shapes(<Objektname1>).PickUp ActiveSheet.Shapes(<Objektname2>).Apply |
Formatübertrag Grafikobjekt |
| ActiveSheet.Shapes(<Objektname>).SetShapesDefaultProperties | Grafikformat als Standardformat deklarieren |
| ActiveSheet.Shapes.Range(Array(<Name>, <Name>, ...)).Group.Name = <Name> | Grafik-Objekte gruppieren |
| ActiveSheet.Shapes(<Name>).Ungroup | Entgruppierung eines gruppierten Grafikobjektes. |