GBKEE

¦^´_ 1# c_c_lai

1. Option Explicit
   
2. Sub Ex()
   
3.     With ActiveSheet.ChartObjects(oShape.Name).Chart
   
4.         .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
   
5.         .Axes(xlCategory).MajorTickMark = xlNone
   
6.         .Axes(xlCategory).TickLabelPosition = xlLow
   
7.         Cells(Lines, 38).Value = ActiveChart.ChartTitle.Text
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# c_c_lai
¶Ç¤WÀɮ׬ݬÝ

GBKEE

¦^´_ 8# c_c_lai
»yªk¿ù»~    Active.Shapes(oShape.Name).Select                     
¥¿½T           ActiveSheet.Shapes(oShape.Name).Select

ÅܼÆLines ¨S¬Ý¨ì§A«ü©w­È ÁÙ¬O·|¦³¿ù»~ªº
Cells(Lines, 38).Value = .ChartTitle.Text

*********
2A.  ¦pªG Shapes «e®³±¼¼W¥[¤§ Active. °õ¦æ®É
    Shapes(oShape.Name).Select                     
    ' ActiveSheet.ChartObjects(oShape.Name).Activate
    ©ÎªÌ¬O¥H
    ' Shapes(oShape.Name).Select                     
    ActiveSheet.ChartObjects(oShape.Name).Activate
    ¤è¦¡°õ¦æ®É·|¥X²{  ---->  °õ¦æ¶¥¬q¿ù»~ '5':  µ{§Ç©I¥s©Î¤Þ­z¤£¥¿½T
***************
2003ª© ¬ÒµL¿ù»~  ½Ðªþ¤WÀÉÀɮפè«K¸Ô¬Ý

GBKEE

¦^´_ 14# c_c_lai

1. With ActiveSheet.ChartObjects(oShape.Name).Chart
   
2.                 .HasAxis(xlCategory, xlPrimary) = True
   
3.            '    .HasAxis(xlCategory, xlPrimary) = False
   
4.                ' ¹Ïªí¤W©Ò¦s¦bªº®y¼Ð¶b  ¦¹®y¼Ð¬° False ¤U­±µ{¦¡·|¿ù»~
   
5.                 .Axes(xlCategory).MajorTickMark = xlNone
   
6.                 .Axes(xlCategory).TickLabelPosition = xlLow
   
7.             End With
   
8.             ActiveSheet.Shapes(oShape.Name).Left = Cells(3, 1).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
   
9.             ActiveSheet.Shapes(oShape.Name).Top = Cells(3, 1).Top
   
10.             ' ±N­ì¥»³]©w¤§°ª«×½Õ¦Ü¾A«×¦ì¸m
    
11.             ActiveSheet.Shapes(oShape.Name).Height = Cells(3, 1).Resize(20).Height
    
12.             ActiveSheet.Shapes(oShape.Name).Width = Cells(3, 1).Resize(, 10).Width
    
13. 
    
14.            '''*** InvertIfNegative, InvertColor  ¤£¾A¥Î³o¹Ïªíªº«¬ºA
    
15.            '****¥Ñ©ó¹ï¹Ïªíªº¯AÂy©|¤Ö ©Ò¥H¥¿¦b´M§äµª®×¤¤ ©Î½Ð°ª¤â¬Û§U
    
16.            'ActiveChart.SeriesCollection(1).InvertIfNegative = True
    
17.            'ActiveChart.SeriesCollection(1).InvertColor = RGB(32, 178, 208)
    
18.            ' With ActiveChart.SeriesCollection(1).Format.Fill
    
19.             '    .Visible = msoTrue
    
20.             '    .ForeColor.RGB = RGB(255, 69, 0)
    
21.             '    .Transparency = 0
    
22.             '    .Solid
    
23.             'End With

½Æ»s¥N½X

GBKEE

¦^´_ 18# c_c_lai
2003 ¨S  SelElement  ³oÄÝ©Ê

1. Sub Ex()
   
2. With ActiveSheet.ChartObjects(1).Chart
   
3. .HasAxis(xlCategory, xlPrimary) = True
   
4. .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
   
5. .Axes(xlCategory).MajorTickMark = xlNone
   
6. .Axes(xlCategory).TickLabelPosition = xlLow
   
7. 'Cells(Lines, 38).Value = .ChartTitle.Text '2003ª©¤¤ ¦¹¦¡¦³ «¬ºA¤£²Å¦X ªº¿ù»~
   
8. MsgBox TypeName(Lines)
   
9. MsgBox Lines.Count
   
10. Cells(Lines.Count + 1, 38).Value = .ChartTitle.Text
    
11. End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 21# c_c_lai
¤W¶ÇÀɮ׬ݬÝ

GBKEE

¦^´_ 24# c_c_lai
°ÝÃD¦b
ActiveSheet.ChartObjects(oShape.Name).Activate

1. Sub getEndRows(sDraw As String)
   
2.     Dim oShape As Shape
   
3.     Dim numChart As Integer
   
4.     Dim totalRows As Single
   
5.     numChart = 0
   
6.     totalRows = Sheets("²Î­p¹Ïªí").Range("B" & Rows.Count).End(xlUp).Row     ' ¶Ç¦^ B Äæ©Ò¨Ï¥ÎÀx¦s®æ¤§³Ì«á¤@®æ¤§¦C¸¹
   
7.     Sheets(sDraw).Select
   
8.     For Each oShape In ActiveSheet.Shapes
   
9.         If oShape.Type = 3 Then
   
10.             numChart = numChart + 1
    
11.             With ActiveSheet.ChartObjects(oShape.Name).Chart
    
12.                 Select Case numChart
    
13.                     Case 1
    
14.                         .SetSourceData Source:=Range("²Î­p¹Ïªí!$B$1:²Î­p¹Ïªí!$B$" & totalRows & ", ²Î­p¹Ïªí!$AA$1:²Î­p¹Ïªí!$AA$" & totalRows) ' ¹Ï¥Ü·|¤À§OÅã¥Ü¥X ¥D¤O¬É¤J
    
15.                     Case 2
    
16.                         .SetSourceData Source:=Range("²Î­p¹Ïªí!$B$1:²Î­p¹Ïªí!$B$" & totalRows & ", ²Î­p¹Ïªí!$AB$1:²Î­p¹Ïªí!$AB$" & totalRows) ' ¹Ï¥Ü·|¤À§OÅã¥Ü¥X ¤O®t
    
17.                     Case 3
    
18.                         .SetSourceData Source:=Range("²Î­p¹Ïªí!$B$1:²Î­p¹Ïªí!$B$" & totalRows & ", ²Î­p¹Ïªí!$AC$1:²Î­p¹Ïªí!$AC$" & totalRows) ' ¹Ï¥Ü·|¤À§OÅã¥Ü¥X ®ø¤Æ¤O
    
19.                     Case 4
    
20.                         .SetSourceData Source:=Range("²Î­p¹Ïªí!$B$1:²Î­p¹Ïªí!$B$" & totalRows & ", ²Î­p¹Ïªí!$AD$1:²Î­p¹Ïªí!$AD$" & totalRows) ' ¹Ï¥Ü·|¤À§OÅã¥Ü¥X §¡®t(¤j¤á)
    
21.                     Case 5
    
22.                         .SetSourceData Source:=Range("²Î­p¹Ïªí!$B$1:²Î­p¹Ïªí!$B$" & totalRows & ", ²Î­p¹Ïªí!$F$1:²Î­p¹Ïªí!$F$" & totalRows & ", ²Î­p¹Ïªí!$I$1:²Î­p¹Ïªí!$J$" & totalRows & ", ²Î­p¹Ïªí!$V$1:²Î­p¹Ïªí!$V$" & totalRows)  ' ¹Ï¥Ü·|¤À§OÅã¥Ü¥X ¦¨¥æ»ù¡B¥D¤O¬É¤J¡B´²¤á¤è¦V¡B¥H¤Î¦¨¥æ¶q¡C
    
23.                     Case Else
    
24.                         .SetSourceData Source:=Range("²Î­p¹Ïªí!$B$1:²Î­p¹Ïªí!$B$" & totalRows & ", ²Î­p¹Ïªí!$F$1:²Î­p¹Ïªí!$F$" & totalRows & ", ²Î­p¹Ïªí!$V$1:²Î­p¹Ïªí!$V$" & totalRows)   ' ¹Ï¥Ü·|¤À§OÅã¥Ü¥X ¦¨¥æ»ù
    
25.                 End Select
    
26.             End With
    
27.         End If
    
28.         If (sDraw = "Omega" And numChart = 5) Then Exit For
    
29.     Next
    
30. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 26# c_c_lai
25# ªº  µ{¦¡½X §A¦³®M¥Î¸Õ¬Ý¬Ý¶Ü?
¸g¹ê»Ú´ú¸Õ¡A .Activate = .Select µ²ªG¤@¼Ë¡A???
With ActiveSheet.ChartObjects(oShape.Name).Chart    ¨Ã¨S¦³­n  Activate OR .Select

GBKEE

¦^´_ 28# c_c_lai
ActiveSheet.ChartObjects(oShape.Name).Activate   
³o»yªkªº·N«ä: ±N¥Ø«eªº¹ÏªíÅܦ¨§@¥Î¤¤ªº¹Ïªí ,¿Ã¹õµe­±·|Âಾ¨ì¦¹¹Ïªí
With ActiveSheet.ChartObjects(oShape.Name).Chart     
³o»yªkªº·N«ä  ¦b¤@­Ó³æ¤@ª«¥ó©Î¤@­Ó¨Ï¥ÎªÌ¦Û­q«¬ºA¤W°õ¦æ¤@¨t¦Cªº³¯­z¦¡
¿Ã¹õµe­±¤£·|Âಾ¨ì¦¹¹Ïªí

GBKEE

¦^´_ 31# c_c_lai
¹ï¤£°_ :§Aªºª©¥»¸û¥ý¶i §Ú¤£©ö°»¿ù
¥u¦³§A¾É¤Þ·s¼W¹Ïªí ¸û²©öªº¤èªk, ¤§«á§A¦A¨Ì§Aªº»Ý¨D­×§ï

1. Sub Ex()
   
2. Dim Rng As Range, xi As Integer
   
3. With ActiveSheet
   
4.     .ChartObjects.Delete  '¹Ïªí¥þ³¡§R°£
   
5.     For xi = 0 To 4
   
6.        ' Set Rng = .[a1].Offset(, xi * 10)  ' ¶¡¹j10Äæ
   
7.         Set Rng = .[a1].Offset(xi * 15)    ' ¶¡¹j15¦C
   
8.         With .ChartObjects.Add(Rng.Left, Rng.Top, Rng.Resize(, 10).Width, Rng.Resize(10).Height).Chart
   
9.                  ' .ChartObjects.Add(Left, Top, Width, Height)  '¹Ïªí·s¼W( ¥kÃä¦ì¸m, ¤W¤è¦ì¸m ,¼e«×, °ª«× )
   
10.             .SetSourceData Source:=Sheets("²Î­p¹Ïªí").UsedRange.Columns(xi + 1), PlotBy:=xlColumns
    
11.             .HasTitle = True
    
12.             .ChartTitle.text = "¹Ïªí " & xi + 1      
    
13.         End With
    
14.     Next
    
15.    End With
    
16. End Sub

½Æ»s¥N½X