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

[µo°Ý] °ÊºA­×¥¿¶×¤J¹Ïªíªº³Ì«á¸ê®Æ¦C¤§¦C¼Æ©Ò©µ¦ùªº°ÝÃD

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

TOP

¦^´_ 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
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

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

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

TOP

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

TOP

¦^´_ 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.             With ActiveChart.SeriesCollection(1).Format.Fill
  37.                 .Visible = msoTrue
  38.                 .ForeColor.RGB = RGB(255, 69, 0)
  39.                 .Transparency = 0
  40.                 .Solid
  41.             End With
  42.         End If
  43.     Next
  44.    
  45.     Cells(1, 1).Select
  46. End Sub
½Æ»s¥N½X

TOP

¦^´_ 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.            '''*** InvertIfNegative, InvertColor  ¤£¾A¥Î³o¹Ïªíªº«¬ºA
  14.            '****¥Ñ©ó¹ï¹Ïªíªº¯AÂy©|¤Ö ©Ò¥H¥¿¦b´M§äµª®×¤¤ ©Î½Ð°ª¤â¬Û§U
  15.            'ActiveChart.SeriesCollection(1).InvertIfNegative = True
  16.            'ActiveChart.SeriesCollection(1).InvertColor = RGB(32, 178, 208)
  17.            ' With ActiveChart.SeriesCollection(1).Format.Fill
  18.             '    .Visible = msoTrue
  19.             '    .ForeColor.RGB = RGB(255, 69, 0)
  20.             '    .Transparency = 0
  21.             '    .Solid
  22.             'End With
½Æ»s¥N½X

TOP

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

TOP

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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD