標題: PPT動態圖表的VBA要怎麼定義? [打印本頁]

---

作者: jeffrey628litw    時間: 2013-9-26 12:09     標題: PPT動態圖表的VBA要怎麼定義?

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


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    時間: 2013-9-26 14:31

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

---

作者: jeffrey628litw    時間: 2013-9-26 15:04

本帖最後由 jeffrey628litw 於 2013-9-26 15:06 編輯

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

---

作者: stillfish00    時間: 2013-9-26 15:21

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

---

作者: jeffrey628litw    時間: 2013-9-26 15:58

回復 4# stillfish00


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)