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

0 одобрения 0 неодобрения
попитан 2016 февруари 22 в VBA от Реджеп

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

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

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

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

мъж37%
жена63%

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

2 отговори

1 одобрение 0 неодобрения
отговорени 2016 февруари 24 от vbafreak

Ако приемем, че данните се намират в клетки 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

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

1 коментар

коментиран 2016 февруари 29 от анонимен
Работи, благодаря много!
0 одобрения 0 неодобрения
отговорени 2016 февруари 27 от BgExcelAdmin цар (649 точки)
Защо просто не я направиш с Ексел? Става много бързо и лесно.

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

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

3. От Design таба може да я промениш и украсиш според твоите нужди.
Добре дошли в българския форум за Ексел и Майкрософт офис! Тук можете да питате хора със знания и опит, както и да споделите знанията и опита си с другите.
...