Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausrichtung Datenbeschriftung Säulendiagramm

Ausrichtung Datenbeschriftung Säulendiagramm
11.12.2014 15:32:37
basti
Hallo,
bei einem gestapeltem Säulendiagramm möchte ich die Datenbeschriftung oberhalb der Säulen platzieren. Gibt es eine Möglichkeit das so zu machen, dass ich quasi sage: "nimm das obere Ende der Säule und addiere einen Wert"?
Momentan sieht das bei mir so aus:
Sub Datenbeschrift_hoch
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(2).Points(1).DataLabel.Select
Selection.Top = Selection.Top - 10
End Sub
Wenn der oberste Teil der Säule relativ groß ist, funktioniert das leider nicht optimal. Außerdem geht das Verhältnis oft verloren.
Momentan schreibe ich die oberen Befehle für jede einzelen Datenbeschriftung. Wie geht das, dass dieser für alle ausgeführt wird?

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausrichtung Datenbeschriftung Säulendiagramm
11.12.2014 16:12:36
basti
Hallo,
ich glaub meine erstes Problem hat sich erledigt, allerdings würde mich noch interessieren wie der Befehl ist um alle Datenpunkte gleichzeitig auszuführen

AW: Ausrichtung Datenbeschriftung Säulendiagramm
11.12.2014 17:19:50
Beverly
Hi Basti,
du musst in einer Schleife über alle Datenpunkte laufen - anders geht es nicht.
Übrigens - man kann dabei auf Select und Activate verzichten:
Sub beschriftungslabel_verschieben()
Dim chrDia As Chart
Dim intPunkt As Integer
Dim serReihe As Series
Set chrDia = ActiveSheet.ChartObjects("Diagramm 2").Chart
With chrDia
Set serReihe = .SeriesCollection(2)
With serReihe
For intPunkt = 1 To .Points.Count
.Points(intPunkt).DataLabel.Top = .Points(intPunkt).Top - 10
Next intPunkt
End With
End With
Set chrDia = Nothing
Set serReihe = Nothing
End Sub

Anzeige
AW: Ausrichtung Datenbeschriftung Säulendiagramm
16.12.2014 14:59:52
basti
Danke für deine Antwort,
leider bekomme ich bei der Funktion zwischen For und Next einen Fehler: "Objekt unterstützt diese Eigenschaft oder Methode nicht".
In Excel 2013 funktionierts glaube ich, ich benutze leider nur die 2007er VErsion.

AW: Ausrichtung Datenbeschriftung Säulendiagramm
16.12.2014 15:47:58
Beverly
Hi,
dann ändere diesen Teil:
= .Points(intPunkt).DataLabel.Top - 10

AW: Ausrichtung Datenbeschriftung Säulendiagramm
17.12.2014 09:28:21
basti
du meinst so? 
Sub beschriftungslabel_verschieben()
Dim chrDia As Chart
Dim intPunkt As Integer
Dim serReihe As Series
Set chrDia = ActiveSheet.ChartObjects("Diagramm 2").Chart
With chrDia
Set serReihe = .SeriesCollection(2)
With serReihe
For intPunkt = 1 To .Points.Count
.Points(intPunkt).DataLabel.Top = .Points(intPunkt).DataLabel.Top - 10
Next intPunkt
End With
End With
Set chrDia = Nothing
Set serReihe = Nothing
End Sub

Dann bekomme ich den fehler "Überlauf"

Anzeige
AW: Ausrichtung Datenbeschriftung Säulendiagramm
17.12.2014 10:41:31
Beverly
Hi,
am Code selbst liegt es nicht - selbst mit Excel97 erhalte ich in meiner Beipsielmappe keine Fehlermeldung. Aber eventuell musst du die Zählvariable für die Schleife als Long deklarieren wenn du mehr als das für Integer vorgesehene Manximum an Datenpunkten in deinem Diagramm vorliegen hast.

AW: Ausrichtung Datenbeschriftung Säulendiagramm
17.12.2014 13:26:07
basti
Ok also sieht so aus als würde es doch funktionieren. Vielen Dank.
Wenn ich jetzt noch in den Code einfügen wollte, dass er die Labels erst in Ausgangsposition bringt (xlLabelPositionInsideBase ?) und dann erst die position verändert, wie müsste man das dann schreiben?

Anzeige
AW: Ausrichtung Datenbeschriftung Säulendiagramm
17.12.2014 13:37:19
Beverly
Hi,
lösche zuerst die Beschriftungslabel, zeige sie dann an und positioniere sie entsprechend - das kann man mit dem Makrorekorder aufzeichnen.

AW: Ausrichtung Datenbeschriftung Säulendiagramm
17.12.2014 14:57:34
basti
Hi,
dann hätte ich jetzt zwei Makros:
Sub BeschriftungAusgangsposition()
Dim ChrDia As Chart
Dim serReihe As Series
Set ChrDia = ActiveSheet.ChartObjects("Diagramm 2").Chart
With ChrDia
Set serReihe = .SeriesCollection(4)
With serReihe
.ApplyDataLabels
.DataLabels.Select
Selection.Position = xlLabelPositionInsideEnd
End With
Set serReihe = .SeriesCollection(3)
With serReihe
.ApplyDataLabels
.DataLabels.Select
Selection.Position = xlLabelPositionInsideEnd
End With
Set serReihe = .SeriesCollection(2)
With serReihe
.ApplyDataLabels
.DataLabels.Select
Selection.Position = xlLabelPositionInsideBase
End With
End With
End Sub


Sub BeschriftungVerschieben()
Dim chrDia As Chart
Dim intPunkt As Integer
Dim serReihe As Series
Set chrDia = ActiveSheet.ChartObjects("Diagramm 2").Chart
With chrDia
Set serReihe = .SeriesCollection(3)
With serReihe
For intPunkt = 1 To .Points.Count
.Points(intPunkt).DataLabel.Top = .Points(intPunkt).DataLabel.Top - 20
Next intPunkt
End With
Set serReihe = .SeriesCollection(4)
With serReihe
For intPunkt = 1 To .Points.Count
.Points(intPunkt).DataLabel.Top = .Points(intPunkt).DataLabel.Top - 20
Next intPunkt
End With
Set serReihe = .SeriesCollection(2)
With serReihe
For intPunkt = 1 To .Points.Count
.Points(intPunkt).DataLabel.Top = .Points(intPunkt).DataLabel.Top + 20
Next intPunkt
End With
End With
Set serReihe = Nothing
Set chrDia = Nothing
End Sub

Jetzt wäre es schön, wenn ich entweder das erste Makro ins zweite einbauen könnte oder ich beide gleichzeitig ausführen kann.
Wenn ich letzteres allerdings per:
Sub
Makro1
Makro2
End Sub probiere, wird eine Datenreihe falsch verschoben. Beide einzeln ausgeührt funktionieren.
Woran kann das liegen?

Anzeige
AW: Ausrichtung Datenbeschriftung Säulendiagramm
17.12.2014 19:08:03
Beverly
Hi,
woran das liegen kann? Keine Ahnung - ich sehe ja deine Mappe nicht, aber möglicherweise daran, dass du unterschiedliche Label-Positionen verwendest.
Ich würde es vom Prinzip her so versuchen (ungetestet):
Sub BeschriftungVerschieben()
Dim chrDia As Chart
Dim intPunkt As Integer
Dim serReihe As Series
Set chrDia = ActiveSheet.ChartObjects("Diagramm 2").Chart
With chrDia
Set serReihe = .SeriesCollection(3)
With serReihe
If .HasDataLabels = True Then .DataLabels.Delete
.ApplyDataLabels
.DataLabels.Positionxl = LabelPositionInsideEnd
For intPunkt = 1 To .Points.Count
.Points(intPunkt).DataLabel.Top = .Points(intPunkt).DataLabel.Top - 20
Next intPunkt
End With
Set serReihe = .SeriesCollection(4)
With serReihe
If .HasDataLabels = True Then .DataLabels.Delete
.ApplyDataLabels
.DataLabels.Positionxl = LabelPositionInsideEnd
For intPunkt = 1 To .Points.Count
.Points(intPunkt).DataLabel.Top = .Points(intPunkt).DataLabel.Top - 20
Next intPunkt
End With
Set serReihe = .SeriesCollection(2)
With serReihe
If .HasDataLabels = True Then .DataLabels.Delete
.ApplyDataLabels
.DataLabels.Position = xlLabelPositionInsideBase
For intPunkt = 1 To .Points.Count
.Points(intPunkt).DataLabel.Top = .Points(intPunkt).DataLabel.Top + 20
Next intPunkt
End With
End With
Set serReihe = Nothing
Set chrDia = Nothing
End Sub

Anzeige

301 Forumthreads zu ähnlichen Themen

Diagrammtitel auslesen
WolfgangN

Hallo,
Ich möchte mir gern alle Diagrammnamen und in der Spalte daneben den dazugehörenden Diagrammtitel anzeigen lassen. Ich wollte dafür das nachstehende Makro nutzen. Die Auflistung der Namen erfolgt anstandslos, aber die Auflistung der Titel erzeugt immer Fehler.
Ich würde mich sehr...
22.08.2008 15:09:13
Thread-ID: 1003909
3 Beiträge
Anzeige
diagramm aus sich verändernden werten einer zelle
Gill

hallo, hier ein hoffentlich kleines problemchen:
in zelle b12 wird ein wert in abhängigkeit der eingaben in zeile 7 ermittelt.
der verlauf der änderungen in b12 soll grafisch dargestellt werden.
ein bekannter meinte, das ginge nur mit vba.
leider kenne ich mich mit vba nicht aus...
17.11.2009 13:30:19
Thread-ID: 1117955
4 Beiträge
Achsenbeschriftung, VBA durch min max aus Zelle
Peter

Hallo liebe Leute,
ich habe wieder ein Problem.
Ich habe ein simples Leistung/Drehzal Diagramm in Abhängigkeit der Drehzahl.
Die Leistung ist links, als vertikale Primärachse, das Drehmoment rechts als vertikale Sekundärachse und die Drehzahl als vertikale Primärachse angeordnet.
25.06.2011 08:28:33
Thread-ID: 1219617
13 Beiträge
Anzeige
VBA Diagramm Balkenbeschriftung ausrichten
Spenski

Hallo
ich benutze einen code um aus einer tabelle per vba ein diagramm zu erstellen und als .png abzuspeichern.
klappt soweit ganz gut.
mein problem liegt bei der ausrichtung der ausrichtung der beschriftung (siehe bild)
hier der codeteil für die balkenbeschriftung:
ActiveC...
01.10.2014 01:33:24
Thread-ID: 1384249
4 Beiträge
Zelle aus Tabellenüberschrift in Formel möglich?
Felix

Ich stehe gerade vor dem Problem, dass ich in diesem Excel-File die Zelle B1 einmal mit F6 vergleiche und einmal mit G3 vergleiche.
Bei F6 kommt ein falsches Ergebnis raus. Warum? Liegt das daran, das F6 eine Überschrift für eine Tabelle ist?
Am Datumsformat liegt es nicht. Ich habe da...
19.11.2014 00:32:00
Thread-ID: 1393150
4 Beiträge
Ausrichtung Datenbeschriftung Säulendiagramm
basti

Guten Morgen,
ich hatte schonmal einen Beitrag zu dem Thema offen, ich verstehe in diesem Forum allerdings nicht ganz wie ich auf einem Beitrag antworten kann wenn ich ihn unter "deine Beiträge" öffne. Deswegen mach ich jetz nochmal einen neuen auf. Sorry dafür.
In einem Diagramm mit ge...
08.01.2015 10:39:58
Thread-ID: 1401383
6 Beiträge
Diagramm -Maximalwert aus Zelle lesen
Meike

Hallo Zusammen,
ich versuche gerade eine Exceldatei zu überarbeiten. Hier wurde in der Eingabemaske eine _
Schaltfläche mit folgendem Code angelegt: Sub Skalierung_Ziel() ' Skalierung_Ziel Makro Sheets("GB").Select ActiveChart.Axes(xlValue).MaximumScale = Sheets("ZB").Range("F3") Acti...
07.05.2015 14:07:56
Thread-ID: 1425198
3 Beiträge
Diagramm "Werte aus Zelle" mit Makro einfügen
Django

Hallo zusammen,
ich möchte in ein Kuchendiagramm "Werte aus Zelle" hinzufügen per Makro. Ich habe den Befehl aufgenommen:
ActiveChart.SeriesCollection(1).DataLabels.Format.TextFrame2.TextRange. _
InsertChartField msoChartFieldRange, _
"='BlaBla'!$C$3:$C$6", 0
Mein Problem is...
28.04.2016 18:08:30
Thread-ID: 1490979
4 Beiträge

Links zu Excel-Dialogen

Label

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
3
12
2
3
3
5
2
3
3
8
2
6
3
2
2
2
3
1
11
4
2
1
5