西西美女视频免费播放,范冰冰正宗毛片视频,日本性感美女三级视频

PPT圖表如何用VBA控制修改數(shù)據(jù)源？

caodaoquan >《地法》

2014.06.29

關(guān)注

以下是通過(guò)VBA修改PPT圖表數(shù)據(jù)源源代碼，原理就是獲取圖表后臺(tái)Link的Excel對(duì)象，再操作該對(duì)象。

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

Sub PPT_ChangeChart()
    With ActivePresentation.Slides(1)
        Dim oChart As Chart
        Dim oChartData As ChartData
        Dim gWorkBook As Excel.Workbook
        Dim gWorkSheet As Excel.Worksheet
         
        ''Chart對(duì)象
        Set oChart = ActivePresentation.Slides(1).Shapes(1).Chart
        Set oChartData = oChart.ChartData
        oChartData.Activate
        Set gWorkBook = oChartData.Workbook
        Set gWorkSheet = gWorkBook.Worksheets("Sheet1")
         
        gWorkSheet.Cells(2, 1).Value = "Product A"
        gWorkSheet.Cells(3, 1).Value = "Product B"
        gWorkSheet.Cells(4, 1).Value = "Product C"
        gWorkSheet.Cells(5, 1).Value = "Product D"
        gWorkSheet.Cells(6, 1).Value = "Product E"
        gWorkSheet.ListObjects("Table1").Resize gWorkSheet.Range("A1:D6") '設(shè)置圖標(biāo)數(shù)據(jù)源區(qū)域
         
        gWorkBook.Application.Quit
        oChart.Refresh
         
        Set gWorkSheet = Nothing
        Set gWorkBook = Nothing
        Set oChartData = Nothing
        Set oChart = Nothing
    End With
End Sub

本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)點(diǎn)擊舉報(bào)。

打開(kāi)APP，閱讀全文并永久保存查看更多類似文章

如何在vba中使用圖表Chart對(duì)象的事件?

自學(xué)資料（Excel VBA）[收集整理5]

哇！她愛(ài)不釋手的東西竟然是它！

根據(jù)圖表反推數(shù)據(jù)的逆天操作

vba通配符

Excel VBA中關(guān)于 if or 的使用

更多類似文章 >>

国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看