AddLabel: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Thomas (Diskussion | Beiträge) (Erste Erstellung) |
Thomas (Diskussion | Beiträge) KKeine Bearbeitungszusammenfassung |
||
| Zeile 1: | Zeile 1: | ||
Folgendes VBA-Unterprogramm fügt in alle Charts einer Excel-Datei ein Textfeld / Label rechts oben mit dem aktuellen Monat (Januar, Februar ...) und Jahr (vierstellig) ein. | Folgendes VBA-Unterprogramm fügt in alle Charts einer Excel-Datei ein Textfeld / Label rechts oben mit dem aktuellen Monat (Januar, Februar ...) und Jahr (vierstellig) ein. | ||
<pre> | <pre> | ||
Sub InsertALabelIntoAChart() | Sub InsertALabelIntoAChart() | ||
Dim mySheet As Worksheet | Dim mySheet As Worksheet | ||
Dim myChart As Chart | Dim myChart As Chart | ||
| Zeile 28: | Zeile 26: | ||
End Sub | End Sub | ||
</pre> | </pre> | ||
[[Kategorie:Sub]] | |||
[[Kategorie:Basic]] | |||
[[Kategorie:VBA]] | |||
[[Kategorie:Excel]] | |||
Version vom 22. September 2016, 11:35 Uhr
Folgendes VBA-Unterprogramm fügt in alle Charts einer Excel-Datei ein Textfeld / Label rechts oben mit dem aktuellen Monat (Januar, Februar ...) und Jahr (vierstellig) ein.
Sub InsertALabelIntoAChart()
Dim mySheet As Worksheet
Dim myChart As Chart
For Each mySheet In Worksheets
If mySheet.ChartObjects.Count > 0 Then
Set myChart = mySheet.ChartObjects(1).Chart
With myChart.Shapes.AddLabel(msoTextOrientationHorizontal, 535, 4, 144, 24)
.Name = "Stand"
.TextFrame.Characters.Text = Format(Date, "mmm yyyy")
.TextFrame.Characters.Font.Size = 18
.TextFrame.Characters.Font.Bold = True
End With
End If
Next
End Sub