[Tasos]

Βαγγέλη καλημέρα!

Δοκίμασε:

Sub test()
    CreateChart Sheets(1), "TestChart", Array(1, 2, 3, 4, 5, 6, 7, 8, 9) ' το Array που προέρχεται
    'από αυτοματισμό.
End Sub

Sub CreateChart(wks As Worksheet, ChtName As String, Data)
    Dim oCht As ChartObject, i As Integer
    Set oCht = Sheet1.ChartObjects.Add(0, 0, 400, 250)
    With oCht
        .Name = ChtName
        .ShapeRange.Top = Range("E10").Top
        .ShapeRange.Left = Range("E10").Left
        With .Chart
            .ChartType = xl3DPie
            .SeriesCollection.NewSeries
            With .SeriesCollection(1)
                .XValues = Data
                .Values = Data
            End With
            .ApplyDataLabels xlDataLabelsShowLabel
            .Legend.Delete
        End With
    End With
End Sub

Ελπίζω να σε καλύπτω!

Φιλικά

Τάσος