c_c_lai

¦^´_ 9# GBKEE
¤£ª¾¹D±z¦³¬Ý¨ì§Ú²î¤WªºÀɮ׶ܡH

freeffly

¦^´_ 11# c_c_lai


    §A¬O­nÅý§Aªº¹Ïªí¤@ª½ºû«ù©Ò¦³¸ê®Æ¶Ü
   ¥u­n¦³·s¸ê®Æ¹Ïªí´N­n¥]§t¨º¦U¸ê®Æ?
    ¦pªG¬OÀ³¸Ó¥Î©w¸q¦WºÙ°µ´N¦n¤ñ¸û¤è«K§a

alexliou

¦^´_  c_c_lai
»yªk¿ù»~    Active.Shapes(oShape.Name).Select                     
¥¿½T           A ...
GBKEE µoªí©ó 2012-4-6 09:22

¤£¦n·N«ä
ActiveSheet ¥´¦¨Active
§Ú§ï¤@¤U

c_c_lai

¦^´_ 13# alexliou
ÁÂÁ±z¡I §Ú·|§ó¥¿´ú¸Õ¬Ý¬Ý¡C
¦ý°£¦¹¤§¥~ªº©Ò´£°Ý¿ù»~°T®§¡A¤£ª¾¦³¸Ñ§_ ¡H
ÀɮקڦAªþ¤W¤@¦¸¡A³Â·ÐÀ°§Ú¬Ý¬Ý¬O­þ¸Ì¦³¿ù¡AÁÂÁ±z¡I
¦¨¥æ»ù»P¦¨¥æ¶q.rar (39.68 KB)

¤U¸ü¦¸¼Æ: 12

2012-4-6 16:18

c_c_lai

¦^´_ 13# alexliou
¹ï¤£°_¡A§Ú¨S¯d·N¨ì±zµLªk¤U¸ü¡A§Ú§âµ{¦¡½Xªþ¤W¡A
­è¤~¨Ï¥Î ActiveSheet.Shapes() °õ¦æ´N OK ¤F¡A
µM¦Ó Automation ¿ù»~ ¥H¤Î µ{§Ç©I¥s©Î¤Þ­z¤£¥¿½T ©|¥¼¯à¸Ñ¨M¡A­n³Â·Ð±z¤F¡I

1. Sub setRowColumn()  ' ¥H Excel -> ´¡¤J -> §é½u¹Ï¡Bª½±ø¹Ï ¤è¦¡¤@¤@´¡¤J©ó¤u§@ªí³æ¤ºªºÀˬd¤è¦¡¡C
   
2.     Dim oShape As Shape
   
3.     Dim numChart As Integer
   
4.     Dim totalRows As Single
   
5.    
   
6.     numChart = 0
   
7.    
   
8.     Sheets("²Î­p¹Ïªí").Select
   
9.     totalRows = Range("B" & Rows.Count).End(xlUp).Row        ' ¶Ç¦^ B Äæ©Ò¨Ï¥ÎÀx¦s®æ¤§³Ì«á¤@®æ¤§¦C¸¹
   
10.             
    
11.     For Each oShape In ActiveSheet.Shapes
    
12.         If oShape.Type = 3 Then
    
13.             numChart = numChart + 1
    
14.             
    
15.             ActiveSheet.Shapes(oShape.Name).Select                     ' OK!
    
16.             ' ActiveSheet.ChartObjects(oShape.Name).Activate
    
17.            
    
18.             ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $F$1:$F$" & totalRows & ", $V$1:$V$" & totalRows)
    
19.                      
    
20.             With ActiveSheet.ChartObjects(oShape.Name).Chart
    
21.                 ' .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"    ' °õ¦æ¶¥¬q¿ù»~ '-2147467259 (80004005)': Automation ¿ù»~ µLªk«ü¥Xªº¿ù»~
    
22.                 .Axes(xlCategory).MajorTickMark = xlCategoryScale
    
23.                 .Axes(xlCategory).TickLabelPosition = xlLow
    
24.                         
    
25.                 ' Cells(2, 26).Value = .ChartTitle.Text                          ' °õ¦æ¶¥¬q¿ù»~ '5':  µ{§Ç©I¥s©Î¤Þ­z¤£¥¿½T
    
26.             End With
    
27.                   
    
28.             ActiveSheet.Shapes(oShape.Name).Left = Cells(3, 1).Left     ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
    
29.             ActiveSheet.Shapes(oShape.Name).Top = Cells(3, 1).Top
    
30.                     
    
31.             ActiveChart.ChartArea.Height = 488                           ' ±N­ì¥»³]©w¤§°ª«×½Õ¦Ü¾A«×¦ì¸m
    
32.             ActiveChart.ChartArea.Width = 900
    
33.             
    
34.             ActiveChart.SeriesCollection(1).InvertIfNegative = True
    
35.             ActiveChart.SeriesCollection(1).InvertColor = RGB(32, 178, 208)
    
36. 
    
37.             With ActiveChart.SeriesCollection(1).Format.Fill
    
38.                 .Visible = msoTrue
    
39.                 .ForeColor.RGB = RGB(255, 69, 0)
    
40.                 .Transparency = 0
    
41.                 .Solid
    
42.             End With
    
43.         End If
    
44.     Next
    
45.    
    
46.     Cells(1, 1).Select
    
47. End Sub

½Æ»s¥N½X

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

c_c_lai

¦^´_ 16# GBKEE
²×©ó¥i¥H¥¿±`¹B§@¤F¡AÁÂÁ±z¡I
°ß¤@¤£¸Ñªº¬O¬°¦ó Cells(Lines, 38).Value = ActiveChart.ChartTitle.Text ·|¦³¿ù»~°T®§¡A¯u§Æ±æ¯à½T¤Á¤F¸Ñ°ÝÃD©Ò¦b¡C

c_c_lai

¦^´_ 16# GBKEE
§ä¨ìµª®×¤F

1. ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)   ' ¤@©w­n¥ý«Å§i SelElement¡A §_«h ChartTile °õ¦æ®É·|¥X²{°õ¦æ¶¥¬q¿ù»~ '5':  µ{§Ç©I¥s©Î¤Þ­z¤£¥¿½T
   
2.   ActiveChart.ChartTitle.Text = "¦¨¥æ»ù»P¦¨¥æ¶q"
   
3. Cells(3, 38).Value = ActiveChart.ChartTitle.Text

½Æ»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

c_c_lai

¦^´_ 19# GBKEE
·PÁ·PÁ¡A¹ê¦b¬OÀò¯q¨}¦h¡I