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

Chart seriescollection¦â±mµ¥Äݩʳ]©w

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ÁÂÁÂ
  1. Sub test0()
  2.     With Application
  3.         .Dialogs(xlDialogSeriesOptions).Show    '¶}±Ò ¸ê®Æ¼Æ¦C®æ¦¡
  4.         .SendKeys "{down 2}", True  '¦V¤U 2 ¦¸¿ï ¼Ð°O²Kº¡
  5.         .SendKeys "{TAB}", True     '¥k°¼¿ï¶µ
  6.         .SendKeys "s", True         '¹ê¤ß²Kº¡ (S)
  7.         .SendKeys "c", True         '¦â±m(C)
  8.         .SendKeys "{right 4}{down 4}~", True '±m¦â½L ¦â§O¿ï¨ú
  9.         .SendKeys "{TAB} 3", True   '¦^¥ª°¼¿ï¶µ
  10.         .SendKeys "{down}", True    '½u±ø¦â±m
  11.         .SendKeys "{tab}", True     '¥k°¼¿ï¶µ
  12.         .SendKeys "N", True         'µL½u±ø
  13.         .SendKeys "{tab} 2", True   '¦^¥ª°¼ ½u±ø¦â±m
  14.         .SendKeys "{down} 2", True  '¦V¤U 2 ¦¸¿ï ¼Ð°O½u±ø¦â±m
  15.         .SendKeys "{tab}", True     '¥k°¼¿ï¶µ
  16.         .SendKeys "N", True         'µL½u±ø
  17.         .SendKeys "{tab}~"          'Ãö³¬ ¸ê®Æ¼Æ¦C®æ¦¡
  18.     End With
  19. End Sub
½Æ»s¥N½X

¦^´_ 1# Scott090

¹Ï¤ù¬O³o¤@­Ó


¤W­±µ{¦¡½X¥u¬O¥Ü·N»¡©ú¡A¤£¯à¥Î

ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD