Make wykres transparent ;>
Sub make_chart_transparent()
With ActiveChart
.ChartArea.Border.LineStyle = xlNone
.ChartArea.Interior.ColorIndex = xlNone
.PlotArea.Border.LineStyle = xlNone
.PlotArea.Interior.ColorIndex = xlNone
.Legend.Delete
End With
With ActiveChart.Axes(xlCategory)
.MajorTickMark = xlNone
.MajorTickMark = xlNone
.TickLabelPosition = xlNone
End With
With ActiveChart.Axes(xlValue)
.MajorTickMark = xlNone
.MajorTickMark = xlNone
.TickLabelPosition = xlNone
End With
For Each ax In ActiveChart.Axes
ax.HasMajorGridlines = False
ax.Border.ColorIndex = xlNone
Next
For Each sr In ActiveChart.SeriesCollection
sr.Border.LineStyle = xlNone
sr.HasDataLabels = False
Next
End Sub