返回列表下一主題上一主題發帖

PPT動態圖表的VBA要怎麼定義?

jeffrey628litw

中學生 Rank: 2

帖子: 228
主題: 62
精華: 0
積分: 364
點名: 1
作業系統: Win 10
軟體版本: Office 2007 & 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-3-5
最後登錄: 2025-1-28

2011兔年全勤獎章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-9-26 12:09 | 只看該作者

PPT動態圖表的VBA要怎麼定義?

各位先進好，敝人在大陸網站看到這個PPT動態圖表，很想學習，但可惜VBA看不太懂，
問題如下：有2行的定義不知道要怎麼改?有人可以幫忙改一下嗎?感恩

PPT動態圖表.rar (72.86 KB)

Dim Wb As Object, Sh As Object

Private Sub LB2006_Click()
Shapes("2006_Blue").ZOrder msoBringToFront
Shapes("2007_White").ZOrder msoBringToFront
Set Wb = Slide2.Shapes("Obj_Sheet").OLEFormat.Object
Set Sh = Wb.worksheets("sheet1")
Sh.Range("O4") = 1
End Sub

Private Sub LB2007_Click()
Shapes("2007_Blue").ZOrder msoBringToFront
Shapes("2006_White").ZOrder msoBringToFront
Set Wb = Slide2.Shapes("Obj_Sheet").OLEFormat.Object
Set Sh = Wb.worksheets("sheet1")
Sh.Range("O4") = 2

End Sub

Private Sub LB控Е_Click() --------------------------------------->請問這裡LB控要改成什麼?Shapes("N_Blue").ZOrder msoBringToFront
Shapes("S_White").ZOrder msoBringToFront
Set Wb = Slide2.Shapes("Obj_Sheet").OLEFormat.Object
Set Sh = Wb.worksheets("sheet1")
Sh.Range("O6") = 1
End Sub

Private Sub LB鰍Е_Click() --------------------------------------->請問這裡LB控要改成什麼?
Shapes("S_Blue").ZOrder msoBringToFront
Shapes("N_White").ZOrder msoBringToFront
Set Wb = Slide2.Shapes("Obj_Sheet").OLEFormat.Object
Set Sh = Wb.worksheets("sheet1")
Sh.Range("O6") = 2

End Sub

Private Sub ListBox1_Click()
Set Wb = Slide2.Shapes("Obj_Sheet").OLEFormat.Object
Set Sh = Wb.worksheets("sheet1")
Sh.Range("O2") = ListBox1.ListIndex + 1
End Sub

Private Sub ListBox1_GotFocus()
ListBox1.List = Array("Apple", "Pear", "Banana", "Watermelon", "Peach", "Orange", "Lichi", "Longan", "Pineapple", "Cherry", "Cantaloup", "Lemon", "Grape", "Pomelo", "Coconut", "Mango")

End Sub