lamihsuen

c_c_lai   ¤j¤j¦^Ū§Aªº©«¤F¬Ý¤FGBKEE«e½úªº¦^ÂШ䤤¤U¦Cªºµ{¦¡
03.    With ActiveSheet.ChartObjects(oShape.Name).Chart
§ï¥H¥Î¤U¦C
With WORKSHEETS(WR).ChartObjects(1).Chart
´N¥i¥H°õ¦æµ{¦¡­ì¨Ó¬Oª«¥óªº»yªk¿ù»~
08.    End With
·PÁ ¨â¦ì¤j­ôªº¨ó§U

lamihsuen

c_c_lai   ¤j¤jÁÂÁÂÀ°¦£ ³oµ{¦¡¹ï§Ú¨Ó»¡ÁÙ¤ÓÃø¤F.§Ú¥u·Q¥Îª½½u¹Ï,¦b¨C¤@¤u§@ªí³Ì«áÀx¦s®æWorksheets(wr).Range("A" & chart_sr & " :I" & chart_end)ªº½d³ò¥[¤J¹Ïªí,¸ê®Æ¨Ó·½¬°¦Pªí®æªº
Worksheets(wr).   RANRE ("A" & z_sr & " :C" & xlRow),¦]¬°¦³10­Ó¤u§@ªí³£­n¥[¤J¥B¨C¤@­Ó¤u§@ªí³Ì«áªÅÀx¦s®æ¤£¤@©w©Ò¥H¦C¼Æ¥ÎÅܼƤ覡,¤u§@ªíWorksheets(wr).   wr¤]¬OÅܼÆ.¦]¬°§Ú·Q¥Î°j°é¤è¦¡Åý©Ò¦³¤u§@ªí¤@¦¸§¹¦¨,
ps  RANRE -> .RANGE ·PÁ´£¿ô,½T¹ê²Ê¤ß¤F

c_c_lai

¦^´_ 1# lamihsuen
¶K¤W GBKEE «ü¾É«e½ú´¿¸gµ¹§Úªº½d¨Ò¡A³ö¨Ñ©p°Ñ¦Ò¡A§Æ±æ¹ï©p·|¦³¹ê½èªºÀ°§U¡C
¤S¡B©p¥´¿ù¦r¤F .RANRE -> .RANGE¡C (ºâ²Ê¤ß§a¡I:o )

1. Private Sub »s¹Ï()
   
2.     Dim xR As Range, Xi As Integer, i As Integer, ¹Ï¦â()
   
3. 
   
4.     ¹Ï¦â = Array(4, 6, 8, 10)
   
5. 
   
6.     ActiveSheet.ChartObjects.Delete     '§R°£¥þ³¡¹Ïªí
   
7. 
   
8.     Set xR = Range("F1")    '§Q¥ÎxRªº¦ì¸m ³]¤U¹Ïªíªº¦ì¸m
   
9.     '¥[¤J·s¹Ïªí  ¶·«ü©w 1¥kÃä¦ì¸m, 2°ª«×¦ì¸m, 3¹ÏªíªºWidth, 4¹ÏªíªºHeight
   
10. 
    
11.     With ChartObjects.Add(xR.Left, xR.Top, xR.Resize(, 10).Width, xR.Resize(10).Height).Chart
    
12.     .ChartType = 51  ' xlLineMarkers    '§é½u¹Ï         '¹Ïªí ¦¡¼Ë
    
13.         With ActiveSheet.Range("A2").CurrentRegion
    
14.             Set xR = Union(.Columns(1), .Columns(3), .Columns(5))
    
15.             '¸ê®Æ ½d³òªº 1,3,5 Ä欰¹Ïªí¸ê®Æ  :²Ä1Äæ ¬°x¶bªº¼Æ­È
    
16.         End With
    
17.         .SetSourceData Source:=xR, PlotBy:=xlColumns
    
18.         '¹Ïªí¸ê®Æ¨Ó·½ : xR  ¸ê®Æ¦¡¼Ë: Äæ
    
19.                      
    
20.         .HasTitle = True              'Åã¥Ü ¹Ïªí¼ÐÃD
    
21.         .ChartTitle.Characters.Text = ActiveSheet.Name    'HasTitle = False ·|¦³¿ù»~
    
22.         .HasAxis(xlCategory, xlPrimary) = False           '¤£Åã¥Ü X¶b®y¼Ð
    
23.                
    
24.         'HasLegend ¹Ï¨Ò
    
25.         .HasLegend = False             ' ¨ú®ø Åã¥Ü ¹Ï¨Ò
    
26.         '  .Legend.Position = xlTop           'Åã¥Ü ¹Ï¨Ò¦ì¸m
    
27.         ' .Axes(xlCategory).TickLabels.NumberFormatLocal = "m/d;@"    ' Axes(xlCategory) X®y¼Ð¶b
    
28.         ' ** ¤W¤G¦¡ ¶·  Åã¥Ü¹Ï¨Ò ->  .HasLegend = True
    
29.                
    
30.         '.SeriesCollection(1).AxisGroup = 2           '·s¼W Y®y¼Ð¶b °Æ®y¼Ð¶b
    
31.         '  .SeriesCollection(3)).Delete     '§R°£²Ä3¼Æ¦C¸ê®Æ
    
32.         With .Axes(xlValue)      'y¶b®æ½u
    
33.             .HasMajorGridlines = 0   '¨ú®ø ¥D®æ½u
    
34.             .HasMinorGridlines = 0   '¨ú®ø °Æ®æ½u
    
35.         End With
    
36.         '¥H¤U¤@¨Çµ{¦¡½X §A¥i¥Î¿ý»s±oª¾
    
37.         With .ChartArea             '¹Ïªíªº¹Ïªí°Ï
    
38.             .Border.Weight = 1
    
39.             .Border.LineStyle = -1
    
40.             .Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=3, Degree:=0.231372549019608
    
41.             .Fill.Visible = True
    
42.             .Fill.ForeColor.SchemeColor = ¹Ï¦â(0)
    
43.         End With
    
44.         With .PlotArea              '¹Ïªíªº ø¹Ï°Ï
    
45.             .Fill.OneColorGradient Style:=msoGradientHorizontal, Variant:=1, _
    
46.             Degree:=0.231372549019608
    
47.             .Fill.Visible = True
    
48.             .Fill.ForeColor.SchemeColor = ¹Ï¦â(0)
    
49.             With .Border
    
50.             .ColorIndex = 16
    
51.             .Weight = xlThin
    
52.             .LineStyle = xlContinuous
    
53.             End With
    
54.         End With
    
55.         For i = 1 To .SeriesCollection.Count
    
56.             With .SeriesCollection(i)   '¼Æ¦C
    
57.                 '  .XValues = ""       '<-¬°x¶bªº¼Æ­È   ¥i¦b¦¹¨ú®ø
    
58.                 With .Border
    
59.                 .ColorIndex = ¹Ï¦â(i)
    
60.                 .Weight = xlMedium
    
61.                 .LineStyle = xlContinuous
    
62.                 End With
    
63.                 '¥H¤UÄÝ©Ê ¥u¾A¦X §é½u¹Ï
    
64.                 ' .MarkerBackgroundColorIndex = xlAutomatic
    
65.                 '.MarkerForegroundColorIndex = xlAutomatic
    
66.                 '.MarkerStyle = xlNone
    
67.                 '.Smooth = False
    
68.                 '.MarkerSize = 7
    
69.                 '.Shadow = False
    
70.             End With
    
71.         Next
    
72.     End With
    
73. End Sub

½Æ»s¥N½X