Office: (Office 2016) Diagrammformatierung geht verloren

Hallo zusammen,

ich habe da mal wieder ein Problem, an dem ich fast verzweifele.
Ich erstelle über ein Makro eine ganze Reihe von Diagrammen auf einer ganzen Reihe von Tabellenblättern. Einen Teil dieser Diagramme blende ich aus, da sie aktuell nicht benötigt werden.
Das funktioniert soweit gut.

Nun zum Problem. Wenn ich die Datei speichere, anschließend wieder öffne und die ausgeblendeten Diagramme einblende, ist die Formatierung komplett anders als zuvor. Was mache ich verkehr oder woran liegt der Fehler.

Anbei der Code, mit dem ich die Diagramme erstelle und ausblende:

Code:

For Each BlattSchreiben In ActiveWorkbook.Worksheets

    BlattSchreiben.Activate
    Anzahl = 0
    Cells(3, 1).Select
    Mat = ActiveSheet.Name
    
    If Mat <> "Leer" Then
        Do
            MIC = ActiveCell
            MatDesc = ActiveCell.Offset(-2, 1)
            MICDesc = ActiveCell.Offset(0, 1)
                    
            LetzteZeileMat = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
            LetzteSpalteMat = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
            
            NameDiagramm = Mat & " " & MIC
'            Set Diagrammbereich = ActiveSheet.Range(Cells(19, 1), Cells(LetzteZeileMat, 6))
            Set Diagrammbereich = ActiveSheet.Cells(19, 1)
            
            With ActiveSheet.ChartObjects.Add(Anzahl * (BreiteMIC) * 60, 45, 420, 225).Chart
                .HasLegend = False
                .HasTitle = True
                .Parent.Name = NameDiagramm
                .SetSourceData Source:=Diagrammbereich
                .ChartType = xlLine
                With .ChartTitle
                    .Text = MatDesc & Chr(13) & MICDesc
                    With .Format.TextFrame2.TextRange.Font
                        .Size = 14
                        .Bold = msoFalse
                    End With
                End With
                If .SeriesCollection.Count > 0 Then
                    For Reihe = .SeriesCollection.Count To 1 Step -1
                        .SeriesCollection(Reihe).Delete
                    Next Reihe
                End If
                With .SeriesCollection.NewSeries
                    .XValues = "='" & Mat & "'!R20C" & ActiveCell.Column & ":R" & LetzteZeileMat & "C" & ActiveCell.Column
                    .Values = "='" & Mat & "'!R20C" & ActiveCell.Column + 2 & ":R" & LetzteZeileMat & "C" & ActiveCell.Column + 2
                    .Name = "='" & Mat & "'!R19C" & ActiveCell.Column + 2
                    .MarkerStyle = xlNone
                    With .Format
                        .Line.Visible = msoTrue
                        .Line.ForeColor.RGB = RGB(255, 192, 0)
                    End With
                End With
                With .SeriesCollection.NewSeries
                    .XValues = "='" & Mat & "'!R20C" & ActiveCell.Column & ":R" & LetzteZeileMat & "C" & ActiveCell.Column
                    .Values = "='" & Mat & "'!R20C" & ActiveCell.Column + 3 & ":R" & LetzteZeileMat & "C" & ActiveCell.Column + 3
                    .HasDataLabels = False
                    .Name = "='" & Mat & "'!R19C" & ActiveCell.Column + 3
                    .MarkerStyle = xlNone
                    With .Format.Line
                        .Visible = msoTrue
                        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
                        .ForeColor.TintAndShade = 0
                        .ForeColor.Brightness = -0.25
                        .Transparency = 0
                    End With
                End With
                With .SeriesCollection.NewSeries
                    .Values = "='" & Mat & "'!R20C" & ActiveCell.Column + 5 & ":R" & LetzteZeileMat & "C" & ActiveCell.Column + 5
                    .HasDataLabels = False
                    .Name = "='" & Mat & "'!R19C" & ActiveCell.Column + 5
                    .MarkerStyle = 8
                    With .Format
                        .Line.Visible = msoFalse
                        .Fill.ForeColor.RGB = RGB(255, 0, 0)
                    End With
                End With
                With .SeriesCollection.NewSeries
                    .Values = "='" & Mat & "'!R20C" & ActiveCell.Column + 8 & ":R" & LetzteZeileMat & "C" & ActiveCell.Column + 8
                    .HasDataLabels = False
                    .Name = "='" & Mat & "'!R19C" & ActiveCell.Column + 8
                    .MarkerStyle = 8
                    With .Format
                        .Line.Visible = msoFalse
                        .Fill.ForeColor.RGB = RGB(146, 208, 80)
                    End With
                End With
            End With
            
            ActiveCell.Offset(0, BreiteMIC).Activate
            Anzahl = Anzahl + 1
           
        Loop Until ActiveCell.Column = 1 Or ActiveCell.Column > LetzteSpalteMat
    
        Cells(3, 1).Select
        Do
        'If Mat <> "Leer" Then
            If ActiveCell.Offset(0, BreiteMIC - 2) = "" Then
                For Spalte = 0 To BreiteMIC - 1
                    Columns(ActiveCell.Column + Spalte).Hidden = True
                Next Spalte
            Else
                Columns(ActiveCell.Column + 4).Hidden = True
                Columns(ActiveCell.Column + 7).Hidden = True
            End If
            ActiveCell.Offset(0, BreiteMIC).Activate
            Anzahl = Anzahl + 1
    
        Loop Until ActiveCell.Column = 1 Or ActiveCell.Column > LetzteSpalteMat
    
    End If
    Cells(1, 1).Activate
    
Next BlattSchreiben

Ich hoffe, Ihr könnt mir helfen.

Vielen Dank,
Lutz

 

Mehrere Behauptungen, von denen einige oder alle auch falsch sein können (bin kein Diagrammfreak und nehme auch nicht Bezug auf Deinen Code):

1. Ausblenden oder Zeilenhöhen/Spaltenbreitenänderungen oder gelöschte/eingefügte Zellen mögen Diagramme gar nicht.

2. Falls das Diagramm eingebettet ist und kein eigenes Blatt, empfiehlt es sich, es mit den entsprechend dokumentierten Tastenkombis an die Zellenränder anzudocken.

3. Diagramme haben sehr viele variable Größen. Verringere sie. Verwende feste Obergrenzen, wo möglich.

4. Halte sie einfach. Je komplexer, desto unterschiedlicher sind sie auch auf verschiedenen Rechnern, da Windows ein grafisches Interface ist.

5. Zwischen Bildschirm und Ausdruck gibt es die Ungefähr-12-zu-13-Diskrepanz zwischen Höhe und Breite. Fällt besonders bei Kreisdiagrammen auf.

 

Hi Lutz,

wenn ich das richtig sehe, blendest du nicht die Diagramme aus sondern die Spalten, auf denen die Diagramme liegen - das ist ein Unterschied und das "Verstecken" von eingebetteten Objekten (welches die Diagramme ja sind) generell durch Ausblenden der Zeilen/Spalten bereitet Excel schon seit langem Probleme. Ich würde dir deshalb empfehlen, nur die Diagramme zu erstellen, deren Spalten nicht ausgeblendet werden und bei Bedarf (Einblenden der Spalten) die relevanten Diagramme neu zu erstellen und sie, falls die Spalten wieder ausgeblendet werden, vorher wieder zu löschen.

Bis später,
Karin

 

Hallo Beverly,

das ist richtig, ich blende die Spalten aus, womit auch die Diagramme verschwinden.
Geht's auch anders?

Nachdem ich die Ergebnisse gerne an Kollegen verteilen möchte, ist das mit dem erneuten Erstellen nicht möglich.

Gruß,
Lutz

 

Ja, indem du nach dem Einblenden der Spalten die Diagramme entsprechend neu formatierst.
Oder erstelle die betreffenden Diagramme in einem Spaltenbereich der nicht ausgeblendet wird und setze die Diagramme auf Visible = False. Beim Einblenden der Spalten setzt du sie auf Visible = True und verschiebst sie an die entsprechende Position. Beim Ausblenden der Spalten dann wieder vica verse.

Weshalb ist das nicht möglich?

Bis später,
Karin

 

Hallo Karin,

geht natürlich schon, ABER...

Arbeitsmappen mit Makros sind bei uns etwas schwierig. Da tauchen komische Sicherheitsmeldungen auf oder es funktioniert nicht (weil aus Angst das Makro nicht zugelassen wird) oder ...

Daher habe ich mir angewöhnt nur Mappen ohne Makros zu verteilen.

Oder kennst Du einen Weg die Diagramme automatisch zu erstellen ohne VBA zu verwenden?

gruß,
Lutz

 

Man kann alles in einem neuen Workbook erstellen lassen, ohne Makros, und wenn man will, auch ohne Formeln, oder sogar ohne Daten, wenn man das Diagramm als Bild speichert.

Die Makros sind ja im aufrufenden Workbook.

 

Hallo Lupo,

ok, das geht natürlich...

Gruß,
Lutz

 

Hi Lutz,

Den gibt es nicht, es sei denn man erstellt sie von Hand - um die gewünschte Formatierung zu bekommen kann man in dem Fall benutzerdefinierte Vorlagen verwenden.

Übrgigens: auch wenn du die Diagramme als Bild in einer anderen Mappe speicherst, kann es dir passieren, dass beim Aus-Einblenden der Spalten die Bilder verschoben oder in ihrer Größe verändert werden, denn - wie ich schon geschrieben hatte - mit eingebetteten Objekten hat Excel so seine Probleme, gleichgültig ob es sich um Formatierungen, Position oder Größe handelt.


Bis später,
Karin

 

Hallo Beverly,

vielen Dank für die Hilfe.
Muss dann mal sehen, wie ich das hinbastele.

Gruß,
Lutz