- 帖子
- 228
- 主題
- 62
- 精華
- 0
- 積分
- 364
- 點名
- 1
- 作業系統
- Win 10
- 軟體版本
- Office 2007 & 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-3-5
- 最後登錄
- 2025-1-28
|
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 |
|
發表於 2013-9-26 12:09
| 
