excel圖表怎么創(chuàng)建動畫商業(yè)圖表

excel圖表怎么創(chuàng)建動畫商業(yè)圖表

本文主要介紹如何將動畫應(yīng)用于商業(yè)圖表，如下圖1所示。

圖1

制作圖表的示例數(shù)據(jù)如下圖2所示的工作表：

圖2

在工作表中放置幾個(gè)表單控件并設(shè)置相應(yīng)的格式，如圖3所示。

圖3

其中，“下拉框”控件的控件格式設(shè)置如圖3，數(shù)據(jù)源區(qū)域?yàn)閳D2所示工作表的單元格區(qū)域A43:A46，所選值鏈接到單元格B37。

下面的3個(gè)選項(xiàng)按鈕鏈接到名為“chart_type”的單元格。

最后的“開啟動畫”復(fù)選框鏈接到名為“b_animation”的單元格；“開啟擦除”復(fù)選框鏈接到名為“b_easing”的單元格。

如圖4所示，在單元格區(qū)域B33:B39中放置圖3中的控件值、設(shè)置圖表動畫的步驟以及圖表標(biāo)題。單元格區(qū)域D33:D39中為列B中對應(yīng)單元格所定義的名稱。

圖4

其中，單元格B39所定義的名稱為一個(gè)命名公式：

=INDEX($A$43:$A$46,record_index)

圖5列出了工作簿中所有定義的名稱：

圖5

其中，old和switch_to_record是在運(yùn)行VBA代碼時(shí)添加的。

VBA代碼如下：

PrivatebFinished As Boolean

PublicSub AnimateChart()

Dim i As Integer

bFinished = False

ThisWorkbook.Names.Add “old”,[chart_values]

ThisWorkbook.Names.Add”switch_to_record”, [record_index].Value

If [b_animation] Then

For i = 1 To [animation_steps]

[step] = i

DoEvents

If bFinished Then Exit For

Next i

End If

bFinished = True

EndSub

PublicSub ChangeChartType()

Const CHART_TYPE_COLUMN = 1

Const CHART_TYPE_LINE = 2

Const CHART_TYPE_AREA = 3

WithWorksheets(“demo”).ChartObjects(1).Chart

Select Case [chart_type]

Case CHART_TYPE_COLUMN

.ChartType = xlColumnClustered

Case CHART_TYPE_LINE

.ChartType = xlLineMarkers

Case CHART_TYPE_AREA

.ChartType = xlArea

End Select

End With

EndSub

其中，ChangeChartType過程關(guān)聯(lián)到選項(xiàng)按鈕，用于更改圖表類型；AnimateChart過程關(guān)聯(lián)到下拉框，用于實(shí)現(xiàn)選擇不同數(shù)據(jù)時(shí)的圖表動畫效果。

最后的效果如下圖6所示。

圖6

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實(shí)的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實(shí)后本網(wǎng)站將在24小時(shí)內(nèi)刪除侵權(quán)內(nèi)容。