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

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [Γράφημα] Γράφημα πίτα σε 3-Δ από Array (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/685-grafima-pita-se-3-d-apo-array.html)

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

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

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

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

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

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

Βαγγέλης

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

Δοκίμασε:

Κώδικας:

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

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

Φιλικά

Τάσος

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

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

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

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