ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

PPT°ÊºA¹ÏªíªºVBA­n«ç»ò©w¸q?

PPT°ÊºA¹ÏªíªºVBA­n«ç»ò©w¸q?

¦U¦ì¥ý¶i¦n¡A±Í¤H¦b¤j³°ºô¯¸¬Ý¨ì³o­ÓPPT°ÊºA¹Ïªí¡A«Ü·Q¾Ç²ß¡A¦ý¥i±¤VBA¬Ý¤£¤ÓÀ´¡A
°ÝÃD¦p¤U¡G¦³2¦æªº©w¸q¤£ª¾¹D­n«ç»ò§ï?¦³¤H¥i¥HÀ°¦£§ï¤@¤U¶Ü?·P®¦ PPT°ÊºA¹Ïªí.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()                                                                    --------------------------------------->½Ð°Ý³o¸ÌLB±±­n§ï¦¨¤°»ò?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()                                                                                            --------------------------------------->½Ð°Ý³o¸ÌLB±±­n§ï¦¨¤°»ò?
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

¸É¥R»¡©ú¤@¤U¡A²Ä¤@­¶ªºPPT³øªí¡AÀ³¸Ó¤]¥i¥H«ö«n°Ï¡B¥_°Ï¡B2006¡B2007¡A¦Ó²£¥Í°ÊºA¹Ïªí¡A¦ý¬O²{¦bÀ³¸Ó¬O¤W­±¨º2­Ó©w¸qÅܶýX¡A©Ò¥H¤£¯à«ö¡A½Ð¤j¤jÀ°¦£­×§ï¤@¤U¡C·P®¦¡C

TOP

¥»©«³Ì«á¥Ñ jeffrey628litw ©ó 2013-9-26 15:06 ½s¿è

À³¸Ó¦³¹Ï¤ùªº¥\¯à¡G¥i¥HÂI¿ï2006¡B2007¡B«n°Ï¡B¥_°Ï

PPT动态图ªí1.gif (143.58 KB)

PPT动态图ªí1.gif

TOP

¦^´_ 1# jeffrey628litw
¥ý§ï¥_°Ï©M«n°Ï¤å¦r¼ÐÅÒªº±±¨î¶µÄݩʪº¦WºÙ¡A¬Ý§A­n©R¦W¦¨¬Æ»ò¡A¦A¹ïÀ³§A©R¦Wªº¦WºÙ¥h§ó§ï´N¥i¥H¤F¡C

TOP

¦^´_ 4# stillfish00


    ­ì¨Ó¦p¦¹¡A·PÁ¤j¤jªº¸Ñµª¡A§Ú¤w¸g§ï¦n¤F¡A¤À¨Éµ¹¤j®a¡C

PPT°ÊºA¹Ïªí.rar (81.53 KB)

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD