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

[µo°Ý] µLªkÅý¥¨¶°¦Û°Ê´O¤J¹Ï§Î

[µo°Ý] µLªkÅý¥¨¶°¦Û°Ê´O¤J¹Ï§Î

¥H¤U¥N½X¬°¡G
¦b«ü©w¦ì¸m¼W¥[¤@­Ó¹Ï§Î¡A¨Ã¦b¹Ï§Î¤¤¥[¤J¤å¦r¡AÅý³o­Ó¹Ï§Î¬Ý°_¨Ó¹³¤@­Ó«ö¶s
³o­Ó¹Ï§Î¦A¥[¤J¤@­Ó«ü©w¥¨¶°¡AÅý³o­Ó«ö¶s¯à¦b«ö¤Uªº®É­ÔÅý¥t¤@±i¹Ï¤ù¬°³Ì³»¼h(SendtoFront)
¤£¹L¡A¤£ª¾­þ¸Ì¥X¿ù¤F¡AµLªkÅý¥¨¶°¦Û°Ê´O¤J¹Ï§Î...
¦³°ª¤HÀ°¦£«üÂI¤@¤U¶Ü¡H

¨t²Î¡GXP (OFFICE 2003)
  1. ActiveWindows.Selection.SlideRange.Shapes.AddShape(msoShapeRoundedEctangle, 661#, 152#, 56.62, 16.12).Select
  2. ActiveWindow.Selection.ShapeRange.TesxFrame.TextRange.Characters(Start:=1, Length:=0).Select
  3.         With ActiveWindow.Selection.TextRange.Text = "ÂI¿ï½d¨Ò"
  4.           With .Front
  5.             .NameAscii = "Arial Narrow"
  6.             .Size = 11
  7.             .Color.SchemeColor = ppBackground
  8.           End With
  9.         End With
  10.         With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
  11.           .Run = "S2Ft2"
  12.           .Action = ppActionRunMacro
  13.         End With
  14. Sub S2Ft2()
  15.         ActiveWindow.Selection.SlideRange.Shapes("Picture 8").Select
  16.         ActiveWindow.Selection.ShapeRange.ZOrder msoBringtoFront
  17. End Sub
½Æ»s¥N½X

©êºp
´X­Ó¿ù¦r¡A­«·s¤W¶Ç code
  1. ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeRoundedRectangle, 661#, 152#, 56.62, 16.12).Select
  2. ActiveWindow.Selection.ShapeRange.TesxFrame.TextRange.Characters(Start:=1, Length:=0).Select
  3.         With ActiveWindow.Selection.TextRange.Text = "TV ALL"
  4.           With .Front
  5.             .NameAscii = "Arial Narrow"
  6.             .Size = 11
  7.             .Color.SchemeColor = ppBackground
  8.           End With
  9.         End With
  10. ActiveWindow.Selection.SlideRange.Shapes("AutoShape 9").Select
  11.         With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
  12.           .Run = "S2Ft2"
  13.           .Action = ppActionRunMacro
  14.         End With
  15. Sub S2Ft2()
  16.         ActiveWindow.Selection.SlideRange.Shapes("Picture 8").Select
  17.         ActiveWindow.Selection.ShapeRange.ZOrder msoBringtoFront
  18. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD