How to make a pie chart in excel using uipath?

Help Studio
, ,
1

I want to make a pie chart in Excel.

I’ve tried using invoke VBA and Balareva but it still doesn’t work. because the balareva package cannot be used on my UiPath.

Is there any way other than that to make a pie chart?

2

Hi @Kia1

Can you share sample excel file and expected output.

Regards

3

Data Grafik.xlsx (395.0 KB)

The graph should be placed in column “E18”.

data is taken from column “A8:C8” later this column will be dynamic

4

Hi @Kia1

By using insert chart activity you can create the pie chart

Hope this helps :slight_smile:

5

image
image747×561 18.7 KB

How do I set the pie chart in column “E18”?

I have a dynamic “Data Range” how can the robot read the data according to the header column “A1:C3”?

6

Hi @Kia1

You can use the following code

Sub Macro1()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim chartDataRange As Range: Set chartDataRange = ws.Range("A8:C15")
    Dim chartObj As ChartObject: Set chartObj = ws.ChartObjects.Add(Left:=ws.Range("E18").Left, Width:=375, Top:=ws.Range("E18").Top, Height:=225)
    chartObj.Chart.ChartType = xlPie
    chartObj.Chart.SetSourceData Source:=chartDataRange
End Sub

You need to save this code in the .txt file & you can call it using

image
image772×498 14.8 KB

Hope this helps :slight_smile:

7

thank you very helpful
but can I make the data chart smaller and place it below the pie chart? Because you have to see all the column data
So can I set the data range? because for me the data will not still increase or decrease but the header remains in column “A8:C8”

8

Hi @Kia1

This will calculate the last row as we will have fix headers in A8:C8

Sub Macro1()
    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Dim chartDataRange As Range: Set chartDataRange = ws.Range("A8:C" & lastRow)
    Dim chartObj As ChartObject: Set chartObj = ws.ChartObjects.Add(Left:=ws.Range("E18").Left, Width:=375, Top:=ws.Range("E18").Top, Height:=225)
    chartObj.Chart.ChartType = xlPie
    chartObj.Chart.SetSourceData Source:=chartDataRange
    chartDataRange.Copy Destination:=ws.Range("E18").Offset(250, 0)
End Sub
9

This topic was automatically closed 3 days after the last reply. New replies are no longer allowed.