Exportieren von Schwarzweißdiagrammen (Microsoft Excel)
Mit Excel können Sie Diagramme in Farbe erstellen. Wenn Sie bereit sind, das Diagramm zu drucken, können Sie Excel anweisen, es in „Schwarzweiß“
zu drucken (Auf der Registerkarte Diagramm des Dialogfelds Seite einrichten). Sie fragen sich vielleicht, ob es eine Möglichkeit gibt, diese „Schwarzweiß“ -Version des Diagramms zu exportieren, damit Sie in einem anderen Programm damit arbeiten können.
Die Antwort ist, dass Sie dies nicht tun können, zumindest nicht direkt. Um zu verstehen, warum dies so ist, müssen Sie verstehen, wie die Funktion „Schwarzweißdruck“ funktioniert. Diese Funktion wirkt sich nur auf das aus, was an den Druckertreiber (an Ihren Drucker) gesendet wird. Sie wirkt sich überhaupt nicht auf das tatsächliche Diagramm aus. Selbst wenn Sie die Seitenansicht verwenden, sehen Sie nicht Ihr tatsächliches Diagramm, sondern eine Darstellung, wie Ihr Diagramm beim Drucken aussehen wird. Sie sehen also die Druckerausgabe, nicht das echte Diagramm.
Wenn Sie eine Schwarzweißversion Ihres Diagramms exportieren möchten, gibt es verschiedene Möglichkeiten, um die Aufgabe auszuführen. Die erste besteht darin, das Diagramm einfach in der Seitenansicht anzuzeigen und eine Bildschirmaufnahme durchzuführen (Alt + Druckbildschirm drücken). Sie können den Bildschirm dann in Ihr Lieblingsgrafikprogramm einfügen und nach Bedarf nachbessern.
Wenn Sie das Diagramm exportieren möchten, anstatt nur den Bildschirm zu erfassen, sollten Sie die Farben des Diagramms so ändern, dass sie wirklich Graustufen sind und dieselben Muster enthalten, die Sie sehen würden, wenn Sie Schwarzweiß drucken würden. Dieser Ansatz ändert tatsächlich die Quelle für das Diagramm, anstatt sich beim Drucken auf Excel zu verlassen, um eine Transformation des Diagramms durchzuführen. Sobald Sie die Formatierungsänderungen vorgenommen haben, können Sie das Diagramm sogar als „Diagrammvorlage“ speichern, um es als Muster für andere von Ihnen erstellte Diagramme zu verwenden.
Bei Bedarf können Sie auch ein Makro verwenden, um zwischen Farb- und Graustufendiagrammdarstellung zu konvertieren. Dieser Ansatz hängt stark von den Farben ab, die Sie im Diagramm verwenden möchten, von der Art des verwendeten Diagramms und von der Anzahl der Datenreihen im Diagramm. Das folgende Beispiel zeigt ein Makro, mit dem die Farben in einer Datenreihe für bis zu fünf Datenreihen zwischen Farbe und Schwarzweiß umgeschaltet werden.
Option Explicit Public bColored As Integer
Sub ColoredToBW()
Dim cht As Chart Dim chtSC As SeriesCollection Dim x As Integer Dim iSeriesCount As Integer Dim iColors(1 To 5, 0 To 1) As Integer Dim iColor As Integer
'Set colors for BW series iColors(1, 0) = 1 'Black iColors(2, 0) = 56 'Gray-80% iColors(3, 0) = 16 'Gray-50% iColors(4, 0) = 48 'Gray-40% iColors(5, 0) = 15 'Gray-25%
'Set colors for Color series iColors(1, 1) = 55 'Indigo iColors(2, 1) = 7 'pink iColors(3, 1) = 6 'yellow iColors(4, 1) = 8 'Turquoise iColors(5, 1) = 13 'Violet
'Toggle Color/BW change 0 to 1 or 1 to 0 bColored = 1 - bColored
Set cht = ActiveChart
'check that a chart is selected If cht Is Nothing Then MsgBox ("Select a chart")
Exit Sub End If
Set chtSC = cht.SeriesCollection
'Check for MIN of number of series or 'colors and only do the minimum iSeriesCount = Application.WorksheetFunction.Min _ (UBound(iColors), chtSC.Count)
For x = 1 To iSeriesCount 'Define the color iColor = iColors(x, bColored)
'Set the LINE color chtSC(x).Border.ColorIndex = iColor
'Marker color With chtSC(x)
.MarkerBackgroundColorIndex = xlNone .MarkerForegroundColorIndex = iColor End With Next x End Sub
Dieses Beispiel funktioniert nicht mit allen Diagrammtypen. Sie müssen es an Ihre Bedürfnisse anpassen. Es dient jedoch als Ausgangspunkt für die Erstellung Ihres eigenen Makros.
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (10447) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: