Das Arbeiten mit Diagrammen und Berichten in Excel kann schwierig und zeitaufwändig sein. Wenn Sie Zeit damit verbringen, Berichte aus einer vorhandenen Tabelle zu erstellen, können Sie Textfelder verwenden, um das Erscheinungsbild eines Berichts zu verbessern.

In diesem Artikel wird die Technik der Verwendung von VBA zum Anpassen der Datenberichterstattung vorgestellt, indem ein Textfeld direkt unter einem Diagramm positioniert und eine geeignete Größe festgelegt wird.

Erstellen des Diagramms mit VBA

Erstellen Sie zunächst ein einfaches Diagramm aus einigen vorhandenen Daten. Die Datentabelle könnte ungefähr so ​​aussehen:


Benennt Verkäufe
John 98
Mary 122
Henri 120
Mary 102
Peter 85
Jacques 130
Mary 100

Um ein Diagramm zu erstellen, können Sie diesen Code verwenden:


Charts.add

Mit ActiveChart
.SetSourceData Source: = Sheets ("Beispiele"). Bereich ("A1: B8")
.Lageort Wo: = xlLocationAsObject, Name: = "Blatt 1"

Ende mit

Um das Diagramm neben dem linken Rand zu positionieren, können Sie die Eigenschaft left wie folgt festlegen:


activeChart.parent.left = 20

Erstellen und Positionieren des Textfelds

Wenn das Diagramm vorhanden ist, können Sie Text hinzufügen, aber zuerst muss der Code wissen, wo er positioniert werden soll. Wir möchten das Feld direkt unter und in Übereinstimmung mit dem linken Rand des Diagramms positionieren, damit wir einige Diagrammabmessungen kennen müssen.

  • Der Abstand vom oberen Bildschirmrand
  • Die Höhe des Diagramms
  • Wie weit es von links auf der Seite eingestellt ist

Wir können dann die Werte codieren, um die Abmessungen und die Position festzulegen.

boxTop = c.Parent.top + c.Parent.Height + 5

boxLeft = c.Parent.left

boxHeight = 35

boxWidth = c.Parent.Width

Mit den festgelegten Werten können wir jetzt das Textfeld erstellen. Der erste Wert "1" richtet den Text horizontal aus und der Endwert "60" legt die Höhe fest, die an Ihre Bedürfnisse angepasst werden kann.


ActiveSheet.Shapes.AddTextbox (1, boxLeft, boxTop, boxWidth, 60) .Auswählen

Sobald der vollständige Code ausgeführt wurde, sollte das Textfeld direkt unter dem Diagramm angezeigt werden und dieselbe Breite haben. Viele andere Bearbeitungsfunktionen sind mit VBA verfügbar. Wenn Sie beispielsweise den folgenden Code angeben, wird das heutige Datum in einem kurzen Format geschrieben.


Selection.Characters.Text = "Bericht für" & Format (Now (), "TT / MM / JJJJ")

Sie können VBA nicht nur korrekt positionieren und dimensionieren, sondern auch Informationen extrahieren, die als Beschriftung verwendet oder Daten hervorgehoben werden sollen.

Zusammenfassung

Während Excel die Tools zum Erstellen von Berichten und Diagrammen bereitstellt, können einige Grundkenntnisse in VBA und Anpassung Ihre Excel-Arbeit effizienter und professioneller machen.

Kommentieren Sie den Artikel

Bitte geben Sie Ihren Kommentar ein!
Bitte geben Sie hier Ihren Namen ein