Chart seriescollection¦â±mµ¥Äݩʳ]©w
- ©«¤l
- 519
- ¥DÃD
- 54
- ºëµØ
- 0
- ¿n¤À
- 595
- ÂI¦W
- 259
- §@·~¨t²Î
- win 10
- ³nÅ骩¥»
- []
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-3-19
- ³Ì«áµn¿ý
- 2024-11-26
|
Chart seriescollection¦â±mµ¥Äݩʳ]©w
VBAµ{¦¡Ã¸»s¹Ïªí¡A¨ä¤¤¦³½u±ø¤Î¼Ð°O½u±ø(®Ø½u) ³£¥s .Format.line ¨S¦³°Ï§O¡A¦ÓµLªk¶¶§Q³]©wÄÝ©Ê
·Q§Q¥ÎÁä½L¼ÒÀÀ¨Ó°µ³]©w¡F
½Ð°ÝþÓ¤j¤jÀ°¦£«ü¾É¡AÁÂÁÂ
- Sub test0()
- With Application
- .Dialogs(xlDialogSeriesOptions).Show '¶}±Ò ¸ê®Æ¼Æ¦C®æ¦¡
- .SendKeys "{down 2}", True '¦V¤U 2 ¦¸¿ï ¼Ð°O²Kº¡
- .SendKeys "{TAB}", True '¥k°¼¿ï¶µ
- .SendKeys "s", True '¹ê¤ß²Kº¡ (S)
- .SendKeys "c", True '¦â±m(C)
- .SendKeys "{right 4}{down 4}~", True '±m¦â½L ¦â§O¿ï¨ú
- .SendKeys "{TAB} 3", True '¦^¥ª°¼¿ï¶µ
- .SendKeys "{down}", True '½u±ø¦â±m
- .SendKeys "{tab}", True '¥k°¼¿ï¶µ
- .SendKeys "N", True 'µL½u±ø
- .SendKeys "{tab} 2", True '¦^¥ª°¼ ½u±ø¦â±m
- .SendKeys "{down} 2", True '¦V¤U 2 ¦¸¿ï ¼Ð°O½u±ø¦â±m
- .SendKeys "{tab}", True '¥k°¼¿ï¶µ
- .SendKeys "N", True 'µL½u±ø
- .SendKeys "{tab}~" 'Ãö³¬ ¸ê®Æ¼Æ¦C®æ¦¡
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|