[Γράφημα] Γράφημα πίτα σε 3-Δ από Array

[Vangelis]

Καλησπέρα σε όλους!

Παρακαλώ τα φώτα σας!

Μέσω αυτοματισμού VBA, μου προσφέρεται ένας πίνακας ( Array τύπου {1,2,3,4,5,6,7,8,9} )

Πως μπορώ με τις τιμές του πίνακα αυτού να δημιουργήσω ένα γράφημα πίτα σε 3-Δ σε συγκεκριμένο φύλλο εργασίας;

Ευχαριστώ εκ των προτέρων!

Βαγγέλης

[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

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

Φιλικά

Τάσος

[Vangelis]

Καλημέρα σε όλους!

Τάσο, είναι ακριβώς αυτό που ήθελα!

Σ ευχαριστώ πολύ και συγχαρητήρια σε σένα και σε όλα τα μέλη τοτ φόρουμ!

Φιλικά
Βαγγέλης