Как се прави кръгова диаграма?

Question

Здравейте, бг-екселковци :)

Имам следния въпрос. Как може да се направи кръгова диаграма (pie chart) в Ексел чрез VBA? Потърсих в интернет, но за съжаление съм малко зле с английския, а на български няма никаква информация.

Трябва да представя графично следните данни:

"Какъв е вашия пол?"

мъж	37%
жена	63%

Благодаря ви предварително!

Answer 1

Ако приемем, че данните се намират в клетки A1:B2, използвай:

Sub Chart()
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B2"), PlotBy:= _
    xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
ActiveChart.HasTitle = False
End Sub

Този код ще генерира кръгова диаграма в ексел.

Comments

Работи, благодаря много!

Answer 2

Защо просто не я направиш с Ексел? Става много бързо и лесно.

1. Маркираш данните ( в твоя случай А1:B2)

 2. Insert таба -> Charts групата, избираш Pie (2D pie)

3. От Design таба може да я промениш и украсиш според твоите нужди.