Class: ExcelOffice::Chart

Inherits:
Object
  • Object
show all
Defined in:
lib/excel_office.rb

Overview

图表

Constant Summary collapse

ColumnClustered =

图形类型

51
ColumnStacked =

簇状柱形图

52
Doughnut =

堆积柱状图

-4120						# 圆环图
Line =

圆环图

4
Pie =

折线图

5
BarClustered =

饼图

57
DataLabelsShowLabel =

标签数据

4
DataLabelsShowLabelAndPercent =

数据点所属的分类

5
DataLabelsShowPercent =

占比百分比以及所属分类,仅饼图

3
DataLabelsShowValue =

百分比, 仅饼图

2

Instance Method Summary collapse

Constructor Details

#initialize(active) ⇒ Chart

Returns a new instance of Chart.



353
354
355
 
# File 'lib/excel_office.rb', line 353

def initialize(active)
	@chart = active
end

Instance Method Details

#axes_x=(name) ⇒ Object

设置X轴名称, 只用于条形图



378
379
380
381
 
# File 'lib/excel_office.rb', line 378

def axes_x=(name)
	@chart.Axes(1,1).HasTitle = true
	@chart.Axes(1,1).AxisTitle.Characters.Text = name
end

#axes_y=(name) ⇒ Object

设置Y轴名称, 只用于条形图



384
385
386
387
 
# File 'lib/excel_office.rb', line 384

def axes_y=(name)
	@chart.Axes(2,1).HasTitle = true
	@chart.Axes(2,1).AxisTitle.Characters.Text = name
end

#chart_work ⇒ Object 



357
358
359
 
# File 'lib/excel_office.rb', line 357

def chart_work
	@chart
end

#data_label(type = DataLabelsShowLabelAndPercent) ⇒ Object

添加饼图的百分比



399
400
401
402
403
404
405
406
407
408
409
410
411
 
# File 'lib/excel_office.rb', line 399

def data_label(type=DataLabelsShowLabelAndPercent)

	# 应用标签选项
	@chart.ApplyDataLabels(type)

	# 取消标签选项的系列名称
	now = @chart.SeriesCollection(1).DataLabels
	now.ShowSeriesName = false

	# 将图例放到右边
	now = @chart.Legend
	now.Position = -4152
end

#source=(range) ⇒ Object

这是原数据地址, 按列生成数据



368
369
370
 
# File 'lib/excel_office.rb', line 368

def source=(range)
	@chart.SetSourceData(range, 2)
end

#style=(int) ⇒ Object

修改样式通过录制宏可以查看样式编号条形图中203 比较好看饼图中 251, 254 比较好看



393
394
395
396
 
# File 'lib/excel_office.rb', line 393

def style=(int)
	@chart.ChartStyle = int
	data_label
end

#title=(name) ⇒ Object

修改标题



362
363
364
365
 
# File 'lib/excel_office.rb', line 362

def title=(name)
	@chart.HasTitle = true
	@chart.ChartTitle.Characters.Text = name
end

#type=(c_type) ⇒ Object

更改图形类型



373
374
375
 
# File 'lib/excel_office.rb', line 373

def type=(c_type)
	@chart.ChartType = c_type
end