Office: (Office 365) Kombi Diagramm Format ändert sich

Helfe beim Thema Kombi Diagramm Format ändert sich in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich habe ein Diagramm mit 2 Datenreihen. Die 1. Datenreihe (DR) ist als Balken und die 2. DR als Linie dargestellt. Bei Betätigung... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von misa1712, 22. November 2021.

  1. misa1712 Neuer User

    Kombi Diagramm Format ändert sich


    Hallo zusammen,

    ich habe ein Diagramm mit 2 Datenreihen. Die 1. Datenreihe (DR) ist als Balken und die 2. DR als Linie dargestellt. Bei Betätigung eines Schalters, soll die 2. DR als Balken und die 1. DR als Linie dargestellt werden, also wechseln. Habe die Formate vorher eingestellt (siehe wie Diagramm 2), beide Formate sind gleich. Nach dem Wechsel der DR verlieren diese ihre Formate.
    Das möchte ich gerne verhindern.
     
    misa1712, 22. November 2021
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    versuche es mal so:
    Code:
    Sub Wechsel()
        'Variablen definieren
        Dim wsAs As Worksheet
        Set wsAs = ActiveSheet
        'Farbe der Form ändern
        If wsAs.Shapes("Form1").Fill.ForeColor.RGB = RGB(89, 89, 89) Then
          wsAs.Shapes("Form1").Fill.ForeColor.RGB = RGB(237, 125, 49)
          ' Datenreihe 1 ändern
          With wsAs.ChartObjects(1).Chart.FullSeriesCollection(1)
            .ChartType = xlColumnClustered
            With .Format.ThreeD
                .BevelTopType = msoBevelCircle
                .BevelTopInset = 6
                .BevelTopDepth = 6
            End With
            With .Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent2
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
            End With
          End With
          ' Datenreihe 2 ändern
          With wsAs.ChartObjects(1).Chart.FullSeriesCollection(2)
            .ChartType = xlLine
            With .Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent1
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
            End With
          End With
        'Farbe der Form ändern
        Else
          wsAs.Shapes("Form1").Fill.ForeColor.RGB = RGB(89, 89, 89)
          ' Datenreihe 1 ändern
          With wsAs.ChartObjects(1).Chart.FullSeriesCollection(1)
            .ChartType = xlLine
            With .Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent1
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
            End With
          End With
          ' Datenreihe 2 ändern
          With wsAs.ChartObjects(1).Chart.FullSeriesCollection(2)
            .ChartType = xlColumnClustered
            With .Format.ThreeD
                .BevelTopType = msoBevelCircle
                .BevelTopInset = 6
                .BevelTopDepth = 6
            End With
            With .Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent2
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
            End With
          End With
        End If
    End Sub
    

    Kombi Diagramm Format ändert sich GrußformelKombi Diagramm Format ändert sich Beverly's Excel - Inn
     
    Zuletzt bearbeitet: 22. November 2021
  3. misa1712 Neuer User
    Hallo Karin,

    Vielen Dank für deine Antwort, ich werde es morgen probieren.

    LG
     
    misa1712, 22. November 2021
    #3
  4. misa1712 Neuer User

    Kombi Diagramm Format ändert sich

    Hallo Karin,

    ich konnte jetzt deinen Code probieren. Die Balken bleiben in ihrem Format bestehen, das ist gut. Jedoch ist die Linie nach dem Umschalten sehr dünn und müsste dicker sein. Außerdem fehlen noch die Markierungspunkte, wäre schön, die auch noch rein zu bringen.

    Vielen Dank für deine Mühe.

    LG
    Michael
     
    misa1712, 23. November 2021
    #4
  5. Beverly
    Beverly Erfahrener User
    Hi Michael,

    die Liniendicke kann man anpssen, aber es gibt einiges, was man war von Hand einstellen kann, sich aber per VBA nicht realisieren lässt, wie z.B. den Markern eine andere Farbe als der Linie zu geben.

    Code:
    Sub Wechsel()
        'Variablen definieren
        Dim wsAs As Worksheet
        Set wsAs = ActiveSheet
        'Farbe der Form ändern
        If wsAs.Shapes("Form1").Fill.ForeColor.RGB = RGB(89, 89, 89) Then
          wsAs.Shapes("Form1").Fill.ForeColor.RGB = RGB(237, 125, 49)
          ' Datenreihe 1 ändern
          With wsAs.ChartObjects(1).Chart.FullSeriesCollection(1)
            .ChartType = xlColumnClustered
            With .Format.ThreeD
                .BevelTopType = msoBevelCircle
                .BevelTopInset = 6
                .BevelTopDepth = 6
            End With
            With .Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent2
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
           End With
          End With
          ' Datenreihe 2 ändern
          With wsAs.ChartObjects(1).Chart.FullSeriesCollection(2)
            .ChartType = xlLine
            With .Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent1
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
                .Weight = 4
            End With
            .MarkerStyle = 8
            .MarkerSize = 3
          End With
        'Farbe der Form ändern
        Else
          wsAs.Shapes("Form1").Fill.ForeColor.RGB = RGB(89, 89, 89)
          ' Datenreihe 1 ändern
          With wsAs.ChartObjects(1).Chart.FullSeriesCollection(1)
            .ChartType = xlLine
            With .Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent1
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
                .Weight = 4
            End With
            .MarkerStyle = 8
            .MarkerSize = 3
          End With
          ' Datenreihe 2 ändern
          With wsAs.ChartObjects(1).Chart.FullSeriesCollection(2)
            .ChartType = xlColumnClustered
            With .Format.ThreeD
                .BevelTopType = msoBevelCircle
                .BevelTopInset = 6
                .BevelTopDepth = 6
            End With
            With .Format.Line
                .Visible = msoTrue
                .ForeColor.ObjectThemeColor = msoThemeColorAccent2
                .ForeColor.TintAndShade = 0
                .ForeColor.Brightness = 0
                .Transparency = 0
            End With
          End With
        End If
    End Sub
    

    Kombi Diagramm Format ändert sich GrußformelKombi Diagramm Format ändert sich Beverly's Excel - Inn
     
  6. misa1712 Neuer User
    Perfekt, vielen lieben Dank.

    LG
    Michael
     
    misa1712, 23. November 2021
    #6
Thema:

Kombi Diagramm Format ändert sich

Die Seite wird geladen...
  1. Kombi Diagramm Format ändert sich - Similar Threads - Kombi Diagramm Format

  2. Kombi Feld Format

    in Microsoft Access Hilfe
    Kombi Feld Format: Guten Abend, beim betrachten der Screens fällt auf: Die Anzeigen sind unterschiedlich. Dabei ist die Anzeige des Textfeldes richtig, nicht aber des Kombifeldes. Obwohl die Einstellungen bez....
  3. Kombi-Feld mit 4 Spalten, Spalte 2 soll angezeigt werden

    in Microsoft Access Hilfe
    Kombi-Feld mit 4 Spalten, Spalte 2 soll angezeigt werden: Hallo liebe Foren-Gemeine, ich muss leider meine erste Frage zu einem, glaube ich, banalen Thema stellen. Ich nutze auf einem Formular ein Kombinationsfeld, zusammengestellt aus einer Abfrage in...
  4. 2 abhängige Kombi für Bericht

    in Microsoft Access Hilfe
    2 abhängige Kombi für Bericht: Hallo zusammen! Ich möchte in einem Formular "frm_Auswertungen" mit 2 voneinander abhängige ungebundene Kombis einen Bericht drucken. Aber ich bekomme einfach die Verbindung zwischen den beiden...
  5. Kombi

    in Microsoft Access Hilfe
    Kombi: folgendes Problem: ich habe ein Kombi "Standort", welches mit der Tabelle, die dem Form zugrunde liegt, 1:n mit ref. Int. verknüpft ist. Dabei will ich verhindern, dass jemand einen Standort im...
  6. Hilfe bei SVERWEIS oder WEnn-Funktion oder andere Kombi

    in Microsoft Excel Hilfe
    Hilfe bei SVERWEIS oder WEnn-Funktion oder andere Kombi: Hallo! ich habe ein Problem bei eXCEL 2007! eine datei ist angehänt mit einer bespiel tabelle und der Problemstellung! Wäre super wenn ihr mir helfen könntet und ausreichend hilfestellung für...
  7. Seltsame Namen-Kombi

    in Microsoft Excel Hilfe
    Seltsame Namen-Kombi: Hallo Ihr, ich habe einen ganz speziellen Fall: A B C D Username Password Name FirstName skruegel skruegel123 Krügel...
  8. Programm erstellen / Verknüpfung Formular - Tabellen / Kombi

    in Microsoft Access Hilfe
    Programm erstellen / Verknüpfung Formular - Tabellen / Kombi: Morje, ich möchte ein "Programm" erstellen, das folgende Sachen abfragt: Prüfungsart: - Zwischenprüfung - Abschlussprüfung - Sonstiges und danach...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden