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

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

¦^´_ 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

¦^´_ 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

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