How can I control the color of wires in wireframe 3-D surface chart?

[stanhilliard]

I have a wireframe 3-D surface chart that I will eventually print on a non-colored printer. I want to try black wires of various types, (dashes, widths, grayness).

Is that possible?

Excel 2016, Windows 10, Laser printer

[georgiboy]

Hi Stan,

Maybe something like the below would help:


Sub Test()
With ActiveChart.Axes(xlValue).MajorGridlines.Format.Line
.Weight = 2
.DashStyle = msoLineSysDash
'.DashStyle = msoLineSysDot
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0.2
.ForeColor.Brightness = 0.5
.Transparency = 0.5
End With
End Sub

Cheers

[georgiboy]

I have read the question again and see you want to control the colour/ weight of the wires, the above will only change the axis.

Try the below for changing the colour/ weight etc... of the wires.


Sub Test()
Dim sCount As Integer
sCount = ActiveChart.Legend.LegendEntries.Count
Dim lEntry As Excel.LegendEntry
For c = 1 To sCount
Set lEntry = ActiveChart.Legend.LegendEntries(c)
With lEntry.LegendKey.Format.Line
.Weight = 1.75
.ForeColor.RGB = RGB(0, 0, 0)
.DashStyle = msoLineSysDash 'msoLineSysDot
.ForeColor.TintAndShade = 0.5
.ForeColor.Brightness = 0
End With
Next c
End Sub

Hope this helps