Exporteren van Black and White Grafieken

Excel kunt u grafieken in kleur te creëren. Wanneer u klaar bent om de grafiek af te drukken, kunt u instrueren Excel om het af te drukken in "zwart-wit" (op het tabblad Grafiek van het dialoogvenster Pagina-instelling). Je kunt je afvragen of er een manier om dit "zwart-wit" versie van de grafiek te exporteren, zodat u kunt werken met het in een ander programma.

Het antwoord is dat je dit niet kan doen, althans niet rechtstreeks. Om te begrijpen waarom dit zo is, moet u begrijpen hoe de "afdrukken in zwart-wit" functie werkt. Deze functie heeft alleen invloed op wat er wordt verzonden naar de printer driver (uw printer), het heeft geen invloed op de grafiek helemaal. Zelfs wanneer u Afdrukvoorbeeld gebruiken, bent u niet het bekijken van uw werkelijke grafiek, maar een weergave van wat uw grafiek eruit zal zien wanneer ze worden afgedrukt. Zo zien jullie printer output, niet de echte grafiek.

Wilt u een zwart-wit versie van uw grafiek te exporteren, zijn er verschillende manieren om de taak te volbrengen. De eerste is om gewoon te bekijken van de grafiek in het afdrukvoorbeeld en doe een screen capture (druk op Alt + Print Screen). U kunt dan plakt het scherm in uw favoriete grafische programma en raak het op, zoals gewenst.

Indien u de grafiek wilt exporteren in plaats van alleen het vastleggen van het scherm, dan moet je de kleuren van de grafiek te veranderen zodat ze werkelijk zijn grijstinten en dezelfde patronen bevatten je zou zien als je ervoor kiest om af te drukken in zwart-wit. Deze aanpak daadwerkelijk verandert de bron voor de grafiek, in plaats van te vertrouwen op Excel om een ​​transformatie van de grafiek te doen wanneer u afdrukt. Als je eenmaal klaar maken van de wijzigingen in de opmaak, kunt u zelfs de grafiek opslaan als een "chart template", zodat je het kunt gebruiken als een patroon voor andere grafieken die u maakt.

Indien gewenst kunt u ook gebruik maken van een macro te zetten tussen kleur en grijswaarden grafiek presentatie. Deze aanpak is sterk afhankelijk van de kleuren die u wilt gebruiken in de grafiek, de aard van de kaart die u gebruikt, en het aantal gegevens in het diagram. Het volgende is een voorbeeld van een macro die de kleuren wisselt in een gegevensreeks tussen kleur en zwart-wit, voor maximaal vijf datareeksen.

Option Explicit
Openbare bColored As Integer

Sub ColoredToBW ()
Dim écht Zoals Grafiek
Dim chtSC Zoals SeriesCollection
Dim x As Integer
Dim iSeriesCount As Integer
Dim iColors (1 tot 5, 0 naar 1) As Integer
Dim iColor As Integer

'Set kleuren voor BW-serie
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 kleuren voor Color-serie
iColors (1, 1) = 55 "Indigo
iColors (2, 1) = 7 'roze
iColors (3, 1) = 6 'geel
iColors (4, 1) = 8 'Turquoise
iColors (5, 1) = 13 'Violet

'Toggle Color / BW verandering 0-1 of 1-0
bColored = 1 - bColored

Stel cht = ActiveChart

'Controleren of een grafiek is geselecteerd
Als cht dan niets is
MsgBox ("Selecteer een chart")
Exit Sub
End If

Stel chtSC = cht.SeriesCollection

'Controleer op MIN van het aantal series of
'Kleuren en alleen de minimale
iSeriesCount = Application.WorksheetFunction.Min _
(UBound (iColors), chtSC.Count)

Voor x = 1 Om iSeriesCount
'Definieer de kleur
iColor = iColors (x, bColored)

'Zet de LINE kleur
chtSC (x) .Border.ColorIndex = iColor

'Kleur Marker
Met chtSC (x)
.MarkerBackgroundColorIndex = XlNone
.MarkerForegroundColorIndex = IColor
End With
Volgende x
End Sub

Dit voorbeeld zal niet werken met alle soorten grafiek; je nodig hebt om het te wijzigen om uw behoeften te reflecteren. Het zal echter dienen als uitgangspunt voor het maken van uw eigen macro.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (10.447) is van toepassing op Microsoft Excel 2007 en 2010. U kunt een versie van deze tip voor de oudere menu-interface van Excel hier vinden: Exporteren Black and White Grafieken.


© 2019 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com