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

½Ð°Ý¦p¦ó±qVBA¤¤³]©w ¹Ïªí¤¤ªº½u±ø¦â±m©O

½Ð°Ý¦p¦ó±qVBA¤¤³]©w ¹Ïªí¤¤ªº½u±ø¦â±m©O



¤£¦n·N«ä¡A½Ð°ÝªO¤W¦U¦ì¤j¤j¦³½Öª¾¹D¡A¦p¦ó±qµ{¦¡¤¤ª½±µ³]©w½u±ø¦â±m¬°¶ñº¡©O?

§Ú¤w¸g¦³ª¦¹L¤å¤F¡A¦ý¬O³£§ä¤£¨ì¬ÛÃöªºOrz¡A ¥t¥~§Ú¦pªG¥Î¥¨¶°¿ý»sªº¸Ü¡A
µ{¦¡½X¥u·|¥X²{:
    ActiveChart.SeriesCollection(5).Select
    Application.WindowState = xlMinimized

¨S¦³¥X²{»P½u±ø¦â±mªº¬ÛÃö¨ç¼Æ¡A§Æ±æ¤j¤j¥i¥H¸Ñ¤@¤U¤p§ÌªººÃ´b¡A·PÁÂ...

¦^´_ 1# gog1211


    ¸Õ¸Õ¬Ý
         ActiveChart.SeriesCollection(5).Select
         With Selection
            .Format.Fill.Visible = msoTrue
            .Format.Fill.ForeColor.RGB = RGB(250, 160, 230)   '±q¨ä¥LÃC¦âªí¤¤¥i¥H§ä¨ì¦â½X
            .Format.Line.Visible = msoTrue
            .Format.Line.ForeColor.RGB = RGB(250, 160, 230)
        End With

TOP

´ú¸ÕOK.. ÁÂÁ¤j¤j¡C
¥t¥~¯à¦A½Ð±Ð¦³¤°»ò¤è¦¡¥i¥H¦Û¤v¸Õ¥X³o­Ó¨ç¼Æ¶Ü?  ¦]¬°¿ý»s»E¶°¦n¹³¦³¨Ç«ü¥O³£¤£·|Åã¥Ü¡A
¤Q¤À·PÁ§A¡C

TOP

¦^´_ 3# gog1211

¦³¨ÇÄݩʽT¹ê¹J¨ìµLªk¿ý»s¡A
¤£¹L½u±ø¤§ÃC¦âÄÝ©Ê­Ë¥¼¨£¿ý»s¤£¦¨ªº¡F¤è«Kªº¸Ü½Ð¤W¶ÇÀɮרӸոլÝ

TOP

¦^´_ 4# Scott090
µ{¦¡¥æ©öªìª©0228.rar (88.06 KB)
®¦®¦¡A§Ú³o­Óµ{¦¡¥D­n¬O§ì¨ú­ÓªÑªº¥æ©ö¸ê®Æ¡B¦Aµe¥X§¡½u»P¦¨¥æ¶qÅ|¹Ï¡A¥Ø«e¥u¦³§â°ò¥»ªº§¡½uµe§¹¦Ó¤w¡A¥[Åv»P«ü¼Æ³£ÁÙ¨S¼g¡A¥»¨Ó·Q»¡µ¥¨ì¥þ³¡³£¼g§¹¦A¤À¨É¦b½×¾Â¤Wªº¡C

¤£¹L¤£ª¾¹D¤°»ò®É­Ô¤~¯à§¹¦¨Orz¡A¤£¹L§Úı±o§Ú²{¦bPO¡A¤j¤j¦]¸Ó¤]·|¬Ý±o«Ü¨¯­W.. ¦]¬°³Ìªñ¤~­è±µÄ²vba¡A´X¥G³£¬O¥ÎÆZ¤O+­W¤O+¿ý»s¦b¼gµ{¦¡¡A¦Ó¥B¤]¨S±Æª©ªº²ßºD¡A§Æ±æ§OK¤Ó¤j¤OXD

·PÁ¤F~~

TOP

¦^´_ 5# gog1211


    ¥H¤U¬O¥Î§Aªº¤W¶ÇÀɤºªºµ{¦¡µeªº ¦¨¥æ¶q ½u ¿ý»s ªº­ì©l½X¡A¦ý´NµLªk²z¸Ñ§A»¡ªºµLªk¿ý»s±m¦â
  1. Sub ¥¨¶°2()
  2. '
  3. ' ¥¨¶°2 ¥¨¶°
  4. '

  5. '
  6.     ActiveSheet.ChartObjects("¹Ïªí 6").Activate
  7.     ActiveChart.SeriesCollection(5).Select
  8.     With Selection.Format.Line       '½u±ø¦â±m
  9.         .Visible = msoTrue
  10.         .ForeColor.ObjectThemeColor = msoThemeColorAccent3
  11.         .ForeColor.TintAndShade = 0
  12.         .ForeColor.Brightness = -0.25
  13.         .Transparency = 0
  14.     End With
  15.     With Selection.Format.Line    '½u±ø²Ê²Ó
  16.         .Visible = msoTrue
  17.         .Weight = 1.5
  18.     End With
  19. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# Scott090

§Ú·Q·|¤£·|¬O§Úª©¥»¬°2007ªº°ÝÃD©O¡A¦]¬°¦³¨Ç¤ñ¸û²Ó¸`ªºµ{¦¡½X¦n¹³³£¿ý»s¤£¥X¨Ó¡C

¤£¹LÃö©ó¹Ï¹³ªº²Ó¸`ø»s¡A§Ú«á¨Ó¦³§ä¨ì¤@¨Ç¸ê®Æ¤F¡A­ì¨Ó¬O§Ú¤è¦V§ä¿ù¤F¡A§Ú­ì¥»¥H¬°¬O­n§ä¹Ïªíªº³¡¤À¡A¦]¸Ó¬O­n§ä¹Ï¹³ªº³¡¤À¤~¹ïOrz..

¤£¹L§Ú¤]ÁÙ¦bºN¯Á¤¤¡A§Æ±æ¤§«á¯à°÷¾ã²z¤@¨Ç¥X¨Ó¤À¨É¡AÁÂÁ¤j¤j­ù¡C

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD