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.