Format Data Labels via VBA

        .ApplyDataLabels Type:=xlDataLabelsShowLabelAndPercent
        With .SeriesCollection(1).DataLabels
            .Font.Bold = True
            .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
        End With

Does you chart really have +100 slices? and why the additional columns selected for data source?