VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Position eines Diagramms an y-Achse festlegen	03.12.2014 16:36:05	Patrick
Position eines Diagramms an y-Achse festlegen	03.12.2014 21:03:00	MarkusK
Position eines Diagramms an y-Achse festlegen	04.12.2014 08:38:42	Gast98641
Position eines Diagramms an y-Achse festlegen	04.12.2014 22:26:22	MarkusK

Ansicht des Beitrags:

Von:
MarkusK

Datum:
03.12.2014 21:03:00

Views:
692

Rating:

Antwort:

Thema:
Position eines Diagramms an y-Achse festlegen

Hallo,

irgendwie ist das Diagramm-Objekt etwas schwierig oder komisch.

Es kommt auch immer drauf an was alles angezeigt wird, also Achsbeschriftung, Legende etc.

Ich habe ein Diagramm ohne Achswerte und zeichne darauf eine Linie.

Mit folgendem Code bestimme ich bei mir die Linke Position wo das eigentlche Diagramm anfängt.

Steht dann in XStart

Dim Diagramm As ChartObject
Dim DiagrammLeft As Double
Dim AchseLeft As Double
Dim AchseWidth As Double
Dim MinAchse As Double
Dim MaxAchse As Double
Dim XStart As Double
Dim L As Shape
Dim StartX As Double
Dim StartY As Double
Dim EndY As Double
Dim EndX As Double

If ActiveSheet.ChartObjects.Count And Not clBlatt.GrenzLinie Is Nothing And NameExist(naktuelle_Taktzeit, ActiveSheet) Then
    Set Diagramm = ActiveSheet.ChartObjects(1)

    DiagrammLeft = Diagramm.Left                ' ermitteln der Position des Diagramms auf dem Blatt und der Unterelemente im Diagramm
    AchseLeft = Diagramm.Chart.Axes(xlValue).Left
    AchseWidth = Diagramm.Chart.Axes(xlValue).Width
    MinAchse = Diagramm.Chart.Axes(xlValue).MinimumScale
    MaxAchse = Diagramm.Chart.Axes(xlValue).MaximumScale
    XStart = DiagrammLeft + Diagramm.Chart.Axes(xlCategory).Left + (Diagramm.Chart.Axes(xlCategory).Left - Diagramm.Chart.PlotArea.Left)   ' Position vom "Null-Wert" des Diagramms auf dem Blatt ermitteln

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Position eines Diagramms an y-Achse festlegen	03.12.2014 16:36:05	Patrick
Position eines Diagramms an y-Achse festlegen	03.12.2014 21:03:00	MarkusK
Position eines Diagramms an y-Achse festlegen	04.12.2014 08:38:42	Gast98641
Position eines Diagramms an y-Achse festlegen	04.12.2014 22:26:22	MarkusK