Excel ti consente di creare grafici a colori. Quando ti prepari a stampare il grafico, puoi istruire Excel a stamparlo in “bianco e nero”

(nella scheda Grafico della finestra di dialogo Imposta pagina). Potresti chiederti se esiste un modo per esportare questa versione “in bianco e nero” del grafico, in modo da poter lavorare con essa in un programma diverso.

La risposta è che non puoi farlo, almeno non direttamente. Per capire il motivo di ciò, è necessario comprendere come funziona la funzione “stampa in bianco e nero”. Questa funzione influisce solo su ciò che viene inviato al driver della stampante (alla stampante), non influisce affatto sul grafico effettivo. Anche quando usi Anteprima di stampa, non stai visualizzando il tuo grafico effettivo, ma una rappresentazione di come apparirà il tuo grafico una volta stampato. Quindi, stai vedendo l’output della stampante, non il grafico reale.

Se desideri esportare una versione in bianco e nero del grafico, esistono diversi modi per eseguire l’operazione. Il primo è semplicemente visualizzare il grafico in Anteprima di stampa ed eseguire un’acquisizione dello schermo (premere Alt + Stampa schermo). È quindi possibile incollare lo schermo nel programma di grafica preferito e ritoccarlo, se lo si desidera.

Se si desidera esportare il grafico invece di catturare solo lo schermo, è necessario modificare i colori del grafico in modo che siano realmente in scala di grigi e contengano gli stessi motivi che si vedrebbero se si scegliesse di stampare in bianco e nero. Questo approccio modifica effettivamente l’origine del grafico, anziché fare affidamento su Excel per eseguire una trasformazione del grafico durante la stampa. Una volta terminate le modifiche alla formattazione, puoi persino salvare il grafico come “modello di grafico” in modo da poterlo utilizzare come modello per altri grafici che crei.

Se lo desideri, puoi anche utilizzare una macro per convertire la presentazione del grafico a colori e in scala di grigi. Questo approccio dipende fortemente dai colori che desideri utilizzare nel grafico, dal tipo di grafico che stai utilizzando e dal numero di serie di dati nel grafico. Di seguito è riportato un esempio di una macro che alterna i colori in una serie di dati tra colore e bianco e nero, per un massimo di cinque serie di dati.

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

Questo esempio non funzionerà con tutti i tipi di grafico; sarà necessario modificarlo per riflettere le proprie esigenze. Tuttavia, servirà come punto di partenza per creare la tua macro.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (10447) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui: