Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Diagramm Balkenbeschriftung ausrichten

VBA Diagramm Balkenbeschriftung ausrichten
01.10.2014 01:33:24
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:
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.ShowSeriesName = True
Selection.ShowValue = False
Selection.Position = xlLabelPositionInsideBase
Selection.Orientation = 90

suche nach einer von zwei lösungen
a) alle balkenbeschriftungen werden auf einer linie (wie bei den positiven im bild) angezeigt , eal ob positiv oder negativ
b) negative balken werden über der achse beschriftet und positive balken werden unter der achse beschriftet.
jemand eine idee? oder ein tipp nach was ich suchen muss?
der code ist nicht von mir und bin auch eher leihe
gruss und danke

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Diagramm Balkenbeschriftung ausrichten
01.10.2014 08:51:19
Beverly
Hi,
Die Beschriftung der Säulen lässt sich z.B. so manipulieren:
Sub DiaBeschriftung()
Dim lngReihe As Long
Dim dblAchse As Double
Dim serReihe As Series
Application.ScreenUpdating = False
With ActiveSheet.ChartObjects(1).Chart
dblAchse = ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory).Top
For lngReihe = 1 To .SeriesCollection.Count
Set serReihe = .SeriesCollection(lngReihe)
With serReihe
If .HasDataLabels = True Then .DataLabels.Delete
.ApplyDataLabels
.DataLabels.ShowSeriesName = True
.DataLabels.ShowValue = False
.HasLeaderLines = False
If .Values(1) > 0 Then
.Points(1).DataLabel.Top = dblAchse + 10
Else
.Points(1).DataLabel.Top = dblAchse - .Points(1).DataLabel.Height - 10
End If
End With
Next lngReihe
End With
Application.ScreenUpdating = True
End Sub

Anzeige
AW: VBA Diagramm Balkenbeschriftung ausrichten
02.10.2014 00:19:30
Spenski
Ja
Danke für die Antwort. Mal gucken ob ich da als Anfänger was mit anfangen kann
Gruss

VBA Diagramm Säulenbeschriftung ausrichten
02.10.2014 07:22:32
Beverly
Hi,
da du nichts Konkretes über dein Diagramm geäußert hast, bin ich davon ausgegangen, dass es sich um ein ins Tabellenblatt eingebettetes Diagrammobjekt handelt und dass nur 1 Diagramm vorhanden ist.
Den Code einfach in ein allgemeines Modul kopieren und ausführen. Das Tabellenblatt mit dem Diagramm muss beim Ausführen aktiv sein.

144 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
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

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_...
11.12.2014 15:32:37
Thread-ID: 1397429
11 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
Anzeige

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
10
5
2
3
3
8
2
6
3
2
2
2
3
1
11
4
2
1
5