Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beschriftung der Y-achse

Beschriftung der Y-achse
04.11.2015 15:39:51
Bjoern
Hallo VBA´ler,
ich möchte gerne in einem Userform ein Diagramm darstellen lassen. in Excel kann man die horizontale Achsbeschriftung (Rubrik) ändern, indem man einen Bereich der Datentabelle auswählt/markiert und diesen in das Diagramm übernimmt.
Wie kann man das in VBA realisieren? Ich habe versucht die Beschriftung über .ticklabel einzufügen, hab es aber leider nicht geschafft. Kann mir jemand weiterhelfen?
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.ChartType = xlBarClustered
cht.HasLegend = False
cht.HasAxis(xlCategory) = True
cht.Axes(xlCategory).TickLabels.Font.Size = 10
cht.HasAxis(xlValue, xlPrimary) = False
cht.SeriesCollection(1).Interior.Color = RGB(96, 123, 139)
cht.ChartGroups(1).GapWidth = 180
cht.SeriesCollection(1).HasDataLabels = True
cht.SeriesCollection(1).DataLabels.Position = xlLabelPositionInsideBase
cht.SeriesCollection(1).DataLabels.Font.ColorIndex = 2
With cht.SeriesCollection(1).DataLabels.Font
.Size = 10
.Name = "Arial"
.FontStyle = "regular"
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
End With
Vielen Dank!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beschriftung der Y-achse
04.11.2015 20:58:49
Beverly
Hi Björn,
die Rubrikenbeschriftung weist man zu, indem man für die 1. Datenreihe die XValues als Zellbereich zuweist - also z.B.
cht.SeriesCollection(1).XValues = Worksheets("Tabelle").Range("A1:A20")

AW: Beschriftung der Y-achse
05.11.2015 07:56:24
Bjoern
Hallo Karin,
Danke für Deinen Lösungsvorschlag. Ich habe versucht diesen umzusetzen, hab es aber leider nicht hinbekommen.
Bei diesem Balkendiagramm soll die Beschriftung nicht auf der X-Achse dargestellt werden, sondern auf der Y-Achse. Ich bin davon ausgegangen, dass die Beschriftung der Y-Achse analog zur X-Achse erstellt wird.
Im Anhang habe ich die Datei und ein Screenshot beigefügt. Vielleicht hilft das weiter.
Gruß, Björn
Sub iagramm()
Dim cht As Chart
Set cht = Charts.Add
Application.ScreenUpdating = False
cht.ChartType = xlBarClustered
cht.HasLegend = False
cht.HasAxis(xlCategory) = True
cht.Axes(xlCategory).TickLabels.Font.Size = 20
cht.HasAxis(xlValue, xlPrimary) = True
'cht.SeriesCollection(1).XValues = Array(1, 4, 6, 4)
cht.SetSourceData Source:=Sheets("Diagramm").Range("A1:A4"), PlotBy:=xlColumns
cht.SeriesCollection(1).Interior.Color = RGB(96, 123, 139)
cht.ChartGroups(1).GapWidth = 180
cht.SeriesCollection(1).HasDataLabels = True
cht.SeriesCollection(1).DataLabels.Position = xlLabelPositionInsideBase
cht.SeriesCollection(1).DataLabels.Font.ColorIndex = 2
With cht.SeriesCollection(1).DataLabels.Font
.Size = 20
.Name = "Arial"
.FontStyle = "regular"
End With
With ActiveChart.Axes(xlValue)
.HasMajorGridlines = False
End With
With ActiveChart
.PlotArea.Width = 400
.PlotArea.Height = 300
.PlotArea.Top = 20
.PlotArea.Left = 20
End With
cht.Export "test.gif"
With UserForm1.Image1
.Picture = LoadPicture("test.gif")
End With
With UserForm1
.Show
Kill "test.gif"
Application.DisplayAlerts = False
cht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End With
End Sub

https://www.herber.de/bbs/user/101259.xlsm
Userbild

Anzeige
AW: Beschriftung der Y-achse
05.11.2015 08:29:36
Beverly
Hi Björn,
bei einem Balkendiagramm ist die Vertikalachse die X-(Rubriken)-Achse und die Horizontalachse die Y-(Werte)-Achse - wenn also die Beschriftung der Vertikalachse gemeint ist, dann geht das genau so wie ich geschrieben habe. Bei deinem Code ist nur das Problem, dass das Diagramm noch gar keine Datenreihe enthält, du aber bereits der 1. Datenreihe die X-Werte zuweisen willst - tausche die auskommentierte Zeile und die darunter aus, dann sollte es auch funktionieren.
Sub Diagramm()
Dim cht As Chart
Set cht = Charts.Add
Application.ScreenUpdating = False
With cht
.ChartType = xlBarClustered
.HasLegend = False
cht.Axes(xlCategory).TickLabels.Font.Size = 20
.SetSourceData Source:=Worksheets("Diagramm").Range("A1:A4")
With .SeriesCollection(1)
.XValues = Array(1, 4, 6, 4)
.Interior.Color = RGB(96, 123, 139)
.HasDataLabels = True
.DataLabels.Position = xlLabelPositionInsideBase
.DataLabels.Font.ColorIndex = 2
With .DataLabels.Font
.Size = 20
.Name = "Arial"
.FontStyle = "regular"
End With
End With
.ChartGroups(1).GapWidth = 180
.Axes(xlValue).HasMajorGridlines = False
.PlotArea.Width = 400
.PlotArea.Height = 300
.PlotArea.Top = 20
.PlotArea.Left = 20
.Export "test.gif"
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
With UserForm1
With .Image1
.Picture = LoadPicture("test.gif")
'.AutoSize = True
End With
.Show
End With
Kill "test.gif"
Set cht = Nothing
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Beschriftung der Y-achse
05.11.2015 09:08:20
Bjoern
Danke!

12 Forumthreads zu ähnlichen Themen

Beschriftung y-Achse
Sledge

Hallo zusammen
Kann mir jemand sagen, wie ich die Beschriftung der linken Achse in einem Diagramm formatieren kann. Es geht mir darum, dass ich die Ausrichtung ändern kann, also links- oder rechtsbündig. Das Problem entsteht, wenn die Beschriftung zu lang ist, dann trennt Excel und es wird...
12.05.2009 09:44:03
Thread-ID: 1074509
2 Beiträge
Anzeige
Beschriftung Y-Achse
Peter

Hallo Zusammen,
gibt es eine Möglichkeit die Y-Achsenbeschriftung farblich anzupassen?
Z.B. die einzelnen Balken im Balkendiagramm sind mit Wochentagen beschriftet. Besteht irgendeine Möglichkeit z.B. den Montag "blau" hervorzuheben?
Vielen Dank im voraus für Eure Antworten!
Pe...
02.12.2013 18:40:09
Thread-ID: 1340962
2 Beiträge
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
Anzeige
Flächendiagramm Beschriftung ausrichten
nils
hallo liebe programmierer,
ich habe ein flächendiagramm das über 52 wochen geht.
darin sind 50 datenreihen. die werte jeder datenreihe sind
in jeder woche anders.
ich brauche meine datenbeschriftung an dem wert der datenreihe der am
höchsten ist.
? wie kann ich den höchstw...
02.02.2004 17:22:20
Thread-ID: 375151
4 Beiträge
Ausrichten der Beschriftung bei Kombi-Diagramm
Henning

Hallo Excel-Experten,
ich habe ein Kombinationsdiagramm (Balkendiagramm mit positiver und negativer Abweichung), dass durch Eingabe einer Zahl das Verhältnis zur vorherigen ausrechnet und so die Balken immer schön aneinander reiht.
Meine Frage ist, wie ich die Beschriftung ausrichten ka...
20.12.2004 18:10:02
Thread-ID: 536041
2 Beiträge
Ausrichten von Beschriftungen in Diagrammen
Beschriftungen

Hallo,
ich habe folgendes Problem: Beim Erstellen eines Balkendiagramms möchte ich die Beschriftungen der Balken unabhängig von ihrer Größe am rechten Rand ausrichten.
Wer kann mir helfen?
26.09.2005 17:20:01
Thread-ID: 672646
6 Beiträge
Störrische Diagramm-Beschriftung (y-Achse)
Jens

Hallo Leute,
ich hab ein Problem mit Diagrammen in Excel 2000 (Win2000 Prof):
Vergrößere ich die Beschriftung der y-Achse über die mir vorgeschlagenen 8 Punkt z.B. auf 12 Punkt, so werden Teile der Beschriftung (hinten) abgeschnitten!
In meinem Fall werden sogar die letzten Buchsta...
29.11.2005 21:18:13
Thread-ID: 702435
13 Beiträge
Grafik- Beschriftung Y-Achse
Marco

Hallo zusammen
Ausgangspunkt: Ich habe öfters Grafiken mit Werten zwischen von 0-120 auf der Y-Achse und mit einem Interwall von 10.
Da die meisten Firmen die ich darstellen möchte Werte zwischen 90 und 120 haben, möchte ich die Beschriftung der Achse mit 0 Beginnen, aber nachher erst b...
15.06.2006 15:21:33
Thread-ID: 773377
2 Beiträge
Anzeige

Links zu Excel-Dialogen

Label UserForm

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
1
3
1
3
7
3
1
5
12
1
5
3