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

[µo°Ý] Chart ¶µ¥Ø¦¸§Ç²¾°Ê

chart VBA¾Þ§@

³Ìªñ¦b¶i¦æChartªº¾Þ§@

¤£¹L¨Ì²{¦³®ÑÄy¦n¤Ö¬ÛÃöªº¸ê®Æ

¤@ª½¤WºôGOOGLE
´ê¨Ó´ê¥h

¥H¤U¬O§Ú¥Ø«e¥Î¨ìªº»yªk

¤U¹Ï¬õ®Ø¸Ì­±
µÙ§Î¼Ð°Oªº®Ø½u¼e«×§Ú¤@ª½¬d¤£¨ì»yªk¬O¤°»ò
¥Î¤F³o­Ó.SeriesCollection(4).Format.Line.Weight
§Ú¬O­n¥Î¨Ó½Õ¾ã¨«¶Õªº¦±½u¼e
¤£¹L¥L³s¼Ð°Oªº®Ø½u¼e¤]¸òµÛ½Õ¾ã

¤£ª¾¥u½Õ¼Ð°Oªº®Ø½u¼e»yªk¦p¦ó¼¶¼g


ÁÙ¦³~¿ý»s¥¨¶°¬O§_µLªk¶i¦æChart¾Þ§@ªº¿ý»s???
¨Ï¥Î¤F¦n´X¦¸³£¥u¿ý¨ìSelect¡BActivate¤§Ãþªº³¡¤À@@
  1.         .ChartTitle.Font.Size = 6.5  '¼ÐÃD¦rÅé¤j¤p
  2.         .ChartTitle.Font.Name = "Arial" '¼ÐÃD¦r«¬

  3.         .Legend.Position = xlLegendPositionBottom  '¹Ï¨Ò¦C©³³¡
  4.         .Legend.Top = 115  '¹Ï¨Ò¦ì²¾

  5.         .SeriesCollection(4).Border.Color = 5066944 '½u±øÃC¦â
  6.         .SeriesCollection(4).Format.Line.Weight = 2 '½u±ø¼e¬°2
  7.         .SeriesCollection(4).MarkerStyle = 2  '¼Ð°OµÙ§Î
  8.         .SeriesCollection(4).MarkerBackgroundColorIndex = 2 '¼Ð°OÃC¦â(¥Õ)
  9.         .SeriesCollection(4).MarkerSize = 5    '¼Ð°O¤j¤p5
  10.         
  11.         .SeriesCollection(4).ApplyDataLabels  'Åã¥Ü¸ê®Æ¼ÐÅÒ
  12.         .SeriesCollection(4).Select
  13.         .SetElement (msoElementDataLabelTop) '¸ê®Æ¼ÐÅÒ¸m¤W
  14.       
  15.         .Axes(xlValue, xlPrimary).AxisTitle.Font.Size = 6.5 'Y¶b¼ÐÃD¤j¤p
  16.         .Axes(xlValue, xlPrimary).AxisTitle.Font.Name = "Arial" 'Y¶b¼ÐÃD¦r«¬
  17.         .Axes(xlValue, xlPrimary).AxisTitle.Left = -3  'Y¶b¼ÐÃD¦ì²¾

  18.         .Axes(xlCategory).TickLabels.Font.Size = 5  'X¶b¦rÅé¤j¤p
  19.         .Axes(xlCategory).TickLabels.Font.Name = "Arial"    'X¶b¦r«¬
  20.         
  21.         .Axes(xlValue).TickLabels.Font.Size = 6.5  'Y¶b¦rÅé¤j¤p
  22.         .Axes(xlValue).TickLabels.Font.Name = "Arial"  'Y¶b¦r«¬
  23.         
  24.         .Legend.Font.Size = 6.5 '¹Ï¨Ò¦rÅé¤j¤p
  25.         .Legend.Font.Name = "Arial" '¹Ï¨Ò¦r«¬
  26.         
  27.         .SeriesCollection(4).DataLabels.Font.Size = 5  '¤W¦C¼Æ­È¦rÅé¤j¤p
  28.         .SeriesCollection(4).DataLabels.Font.Name = "Arial" '¤W¦C¼Æ­È¦r«¬
½Æ»s¥N½X




P.S.
¥t¥~·Q½Ð°Ý¦U¦ì¤j¤jµ{¦¡·§©À¹³¥H¤U
.Legend.Font.Size = 6.5ªºLengend
.TickLabels.Font.Size = 5 ªºTickLabels¥H±M·~»¡ªk³£¬O«ü"ÄÝ©Ê"¶Ü???
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

¦^´_ 1# li_hsien
¿ý»s¥¨¶°¬O§_µLªk¶i¦æChart¾Þ§@ªº¿ý»s??? ¨Ï¥Î¤F¦n´X¦¸³£¥u¿ý¨ìSelect¡BActivate¤§Ãþªº³¡¤À@@
®M¥Î¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim AR, i As Integer
  4.     With Sheet2.ChartObjects(1).Chart
  5.         .HasTitle = True              '¹Ïªí¦³ªº¼ÐÃD
  6.         .ChartTitle.Font.Size = 6.5  '¼ÐÃD¦rÅé¤j¤p
  7.         .ChartTitle.Characters.Text = "test"
  8.         .ChartTitle.Font.Name = "Arial" '¼ÐÃD¦r«¬
  9.         .Legend.Position = xlLegendPositionBottom   '¹Ï¨Ò¦C©³³¡
  10.         .Legend.Top = 115  '¹Ï¨Ò¦ì²¾
  11.         AR = Array(vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite)
  12.         For i = 1 To .SeriesCollection.Count
  13.             
  14.             If i <= UBound(AR) + 1 Then
  15.                 .SeriesCollection(i).Border.Color = AR(i - 1) '½u±øÃC¦â
  16.                 .SeriesCollection(i).HasDataLabels = True
  17.                 .SeriesCollection(i).DataLabels.Font.Size = 15  '¤W¦C¼Æ­È¦rÅé¤j¤p
  18.                 .SeriesCollection(i).DataLabels.Font.Name = "Arial" '¤W¦C¼Æ­È¦r«¬
  19.             End If
  20.         
  21.         Next
  22.     End With
  23. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE


·PÁª©¤jªºÀ°§U

­ì¨Ó¦³³o¨Ç¸ê®Æ¨Ó·½¥i¥H°Ñ¦Ò


¤£¹L§Ú¥D­n­n¿ý»s¥¨¶°¬O·Q§ì¨ì¹Ïªí¤¤¦U­Ó³¡¥÷ªºVBA»yªk¦WºÙ

¦nÅý§Ú¦bµ{¦¡¼¶¼g¤W¥i¥H¾Þ§@

¦ý¹ê»Ú¸Õ¤F´X¦¸ ¿ý»s¹Ïªí¾Þ§@¤Wªº¥¨¶°¦n¹³¨S¦³¿ìªk°µ¨ì@@
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

[µo°Ý] Chart ¶µ¥Ø¦¸§Ç²¾°Ê

½Ð°Ý¦U¦ì¤j¤j

Chart ¤W ¦U­Ó¶µ¥Ø¥Lªº¦¸§Ç¸Ó¦p¦ó¥ÎVBA»yªk¨Ó½Õ°Ê©O????

¦p¤U¹ÏªºPMS§Ú­n©¹¤W²¾°Ê

½Ð°Ý»yªk¸Ó¦p¦ó¾Þ§@???



ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

¦^´_ 4# li_hsien
§A³oµøµ¡¬O2003¥H¤Wªºª©¥»,¦¹µ{¦¡½X¬O¥H2003½s¼g.¸Õ¸Õ¬Ý¬O§_¥i¦æ.
  1. Option Explicit
  2. Sub Ex()
  3.     Dim MoObject As ChartObject, MoChart As Chart, i As Integer, Rng As Range
  4.     Dim Q(1 To 2)
  5.     Sheet1.ChartObjects.Delete
  6.     Set Rng = [F1:M21]                                  '¹Ïªí¸ê®Æ½d³ò
  7.     Set MoObject = Sheet1.ChartObjects.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
  8.                                                         '[F1:M21]¤W·s¼W¹Ïªí
  9.     Set Rng = [b2:b21].Resize(, 3)     '³]©w½d³ò
  10.     '** ½Ð¦b [A2:A21]¶ñ¤W ¤é´Á ©Î ¼Æ¦r : §@¬°X®y¼Ðªº¼Æ­È
  11.    
  12.     MoObject.Chart.SetSourceData Rng   '«ü©w¹Ïªí¸ê®Æ½d³ò
  13.     Set MoChart = MoObject.Chart
  14.     With MoChart
  15.         
  16.         Q(1) = Split(.SeriesCollection(3).Formula, ",")(2) '¸ê®Æ¦CªºÀx¦s®æ¦ì§}
  17.         Q(2) = Split(.SeriesCollection(1).Formula, ",")(2)
  18.         .SeriesCollection(1).Values = Range(Q(1))   '«ü©w¨ìÀx¦s®æ
  19.         .SeriesCollection(3).Values = Range(Q(2))   '¥i¦bÀx¦s®æ¤WÅܰʼƭÈ
  20.         '******************************************************
  21.         Stop
  22.         Q(1) = .SeriesCollection(3).Values  '¸ê®Æ¦Cªº¼Æ­È
  23.         Q(2) = .SeriesCollection(1).Values
  24.         .SeriesCollection(1).Values = Q(1)  '§ïÅܼƭÈ
  25.         .SeriesCollection(3).Values = Q(2)  '¥i¦b¸ê®Æ¦CÅܰʼƭÈ
  26.         
  27.     End With
  28. End Sub
½Æ»s¥N½X
¹Ï¥Ü: ¥i¦b¸ê®Æ¦CÅܰʼƭÈ

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE

ÁÂÁª©¤jªºÀ°§U

³o¾Þ§@ÁÙÆZ¯S§Oªº

¤S¾Ç¨ì¤F¤@ÂI

ÁÂÁ  :  )
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD