AddLabel - Versionsgeschichte

Thomas: Formatierung mit Vorlage

2018-07-08T06:08:44Z

Formatierung mit Vorlage

← Nächstältere Version		Version vom 8. Juli 2018, 06:08 Uhr
Zeile 1:		Zeile 1:
	Folgendes VBA-Unterprogramm '''SetDateInDiagram()''' fügt in alle Charts einer Excel-Datei ein Textfeld / Label rechts oben mit dem aktuellen Monat (Januar, Februar ...) und Jahr (vierstellig) ein. Mit der Funktion '''CheckLabelExists(...)''' wird geprüft, ob ein Label mit dem Namen "Stand" bereits existiert.		Folgendes VBA-Unterprogramm '''SetDateInDiagram()''' fügt in alle Charts einer Excel-Datei ein Textfeld / Label rechts oben mit dem aktuellen Monat (Januar, Februar ...) und Jahr (vierstellig) ein. Mit der Funktion '''CheckLabelExists(...)''' wird geprüft, ob ein Label mit dem Namen "Stand" bereits existiert.

			{{Sourcecode\| SetDateInDiagram\|2=
	<pre>		<pre>
	Private Function CheckLabelExists(argChart As Object, argName As String) As Boolean		Private Function CheckLabelExists(argChart As Object, argName As String) As Boolean
Zeile 46:		Zeile 47:
	End Sub		End Sub
	</pre>		</pre>
			}}
	[[Kategorie:Sub]]		[[Kategorie:Sub]]
	[[Kategorie:Basic]]		[[Kategorie:Basic]]
	[[Kategorie:VBA]]		[[Kategorie:VBA]]
	[[Kategorie:Excel]]		[[Kategorie:Excel]]

Thomas: Verbessertes Programm

2016-11-02T09:55:46Z

Verbessertes Programm

← Nächstältere Version		Version vom 2. November 2016, 09:55 Uhr
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 '''SetDateInDiagram()''' fügt in alle Charts einer Excel-Datei ein Textfeld / Label rechts oben mit dem aktuellen Monat (Januar, Februar ...) und Jahr (vierstellig) ein. Mit der Funktion '''CheckLabelExists(...)''' wird geprüft, ob ein Label mit dem Namen "Stand" bereits existiert.

	<pre>		<pre>
	Sub ~~InsertALabelIntoAChart~~()		Private Function CheckLabelExists(argChart As Object, argName As String) As Boolean

			Dim obj As Object

			CheckLabelExists = False

			For Each obj In argChart.Shapes
			If UCase(obj.Name) = UCase(argName) Then CheckLabelExists = True: Exit Function
			Next obj

			End Function

			Sub SetDateInDiagram()
			'
			' Stand Makro
			' Einfügen des Standes des Diagrames
			'

	Dim mySheet As Worksheet		Dim mySheet As Worksheet
Zeile 12:		Zeile 28:

	Set myChart = mySheet.ChartObjects(1).Chart		Set myChart = mySheet.ChartObjects(1).Chart
			If Not CheckLabelExists(myChart, "Stand") Then
	With myChart.Shapes.AddLabel(msoTextOrientationHorizontal, ~~535~~, 4, 144, 24)		With myChart.Shapes.AddLabel(msoTextOrientationHorizontal, 380, 4, 144, 20)
	.Name = "Stand"		.Name = "Stand"
	.TextFrame.Characters.Text = Format(Date, "~~mmm~~ yyyy")		.TextFrame.Characters.Text = Format(Date, "mmmm yyyy")
	.TextFrame.Characters.Font.Size = 18		.TextFrame.Characters.Font.Size = 12
	.TextFrame.Characters.Font.Bold = True		.TextFrame.Characters.Font.Bold = True
	End With		.TextFrame.HorizontalAlignment = xlHAlignRight
			End With
			Else
			myChart.Shapes("Stand").TextFrame.Characters.Text = Format(Date, "mmmm yyyy")
			myChart.Shapes("Stand").TextFrame.HorizontalAlignment = xlHAlignRight
			End If
	End If		End If

Thomas am 22. September 2016 um 11:35 Uhr

2016-09-22T11:35:48Z

← Nächstältere Version		Version vom 22. September 2016, 11:35 Uhr
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]]

Thomas: Erste Erstellung

2016-09-22T11:32:13Z

Erste Erstellung

Neue Seite

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>
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
</pre>