Sub Макрос()
    Dim chartShape As Shape
    Set chartShape = ThisWorkbook.Sheets("Лист1").Shapes.AddChart    
    With chartShape.Chart        
         .ChartType = xl3DPie
         .SetSourceData Source:=Range("'Лист1'!$A$9:$B$11") 
         .HasLegend = False         
         .SeriesCollection(1).ApplyDataLabels
         .SeriesCollection(1).DataLabels.Position = xlLabelPositionOutsideEnd
         .SeriesCollection(1).DataLabels.ShowCategoryName = True                
         .SeriesCollection(1).Points(1).Fill.ForeColor.RGB = RGB(250, 0, 0)
    End With
End Sub

'=======
   .SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(250, 0, 0)
'=======