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

jeffrey628litw

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

下載次數: 13

2013-9-26 12:07

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

jeffrey628litw

補充說明一下，第一頁的PPT報表，應該也可以按南區、北區、2006、2007，而產生動態圖表，但是現在應該是上面那2個定義變亂碼，所以不能按，請大大幫忙修改一下。感恩。

jeffrey628litw

應該有圖片的功能：可以點選2006、2007、南區、北區

stillfish00

回復 1# jeffrey628litw
先改北區和南區文字標籤的控制項屬性的名稱，看你要命名成甚麼，再對應你命名的名稱去更改就可以了。

jeffrey628litw

回復 4# stillfish00


    原來如此，感謝大大的解答，我已經改好了，分享給大家。