Sub A17(ByVal control As IRibbonControl)
'End Sub
Selection.Value = Sheets("Legende").Cells(17, 1).Value
With Selection.Interior
.Pattern = Sheets("Legende").Cells(17, 1).Interior.Pattern
.Gradient.Degree = Sheets("Legende").Cells(17, 1).Interior.Gradient.Degree
.Gradient.ColorStops.Clear
End With
With Selection.Interior.Gradient.ColorStops.Add(0)
.Color = Sheets("Legende").Cells(17, 1).Interior.Gradient.ColorStops.Add(0).Color
.TintAndShade = Sheets("Legende").Cells(17, 1).Interior.TintAndShade
End With
With Selection.Interior.Gradient.ColorStops.Add(1)
.Color = Sheets("Legende").Cells(17, 1).Interior.Gradient.ColorStops.Add(1).Color
.TintAndShade = Sheets("Legende").Cells(17, 1).Interior.Gradient.ColorStops.Add(1).TintAndShade
End With
End Sub