I am using a black and white laser printer, and want to make the three values in the histogram have more contrast. The code I am using is as follows:
ActiveChart.PageSetup.BlackandWhite = True
.
.
.
ActiveChart.FullSeriesCollection(1).Select
With Selecton.FormatFill
.Patterned...