Post on top, as is customary in these groups, to make it easier to follow
the thread chronologically.

every time i wan't to do this i have to create a macro?

Put this macro into your Personal.xls workbook, add a button to a toolbar
somewhere, and attach the macro to the button. It will always be available.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______


"Yossi evenzur" wrote in message
...


"Peter T" wrote:

Try this macro -

Sub NoSeriesBorders()
Dim cht As Chart
Dim sr As Series

On Error Resume Next
Set cht = ActiveChart
On Error GoTo 0

If cht Is Nothing Then
MsgBox "No Chart is selected"
Exit Sub
End If

For Each sr In cht.SeriesCollection
sr.Border.ColorIndex = xlNone
' or
' sr.Border.LineStyle = xlNone
Next

End Sub

There's no undo but you could change xlNone to xlAutomatic to reset
borders

Regards,
Peter T

"Yossi evenzur" <Yossi wrote in
message
...
Hi
In a chart i have multiple legend keys, as a result all colors are not
visible because the columns are thin and border line black, thus i can
see
only black columns. i can format each key manually but if i have 200
keys
it
would never end, how can change the border option from automatic to
none?


every time i wan't to do this i have to create a macro?