- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 7# GBKEE
¤p§Ì±N¹ê»Ú¦b°õ¦æªºµ{¦¡½X¶K¤W¡A·q½Ð¦U¦ì«e½ú«ü¾É¡C- Sub setRowColumn() ' ¥H Excel -> ´¡¤J -> §é½u¹Ï¡Bª½±ø¹Ï ¤è¦¡¤@¤@´¡¤J©ó¤u§@ªí³æ¤ºªºÀˬd¤è¦¡¡C
- Dim oShape As Shape
- Dim numChart As Integer
- Dim totalRows As Single
-
- numChart = 0
-
- Sheets("²Îp¹Ïªí").Select
- totalRows = Range("B" & Rows.Count).End(xlUp).Row ' ¶Ç¦^ B Äæ©Ò¨Ï¥ÎÀx¦s®æ¤§³Ì«á¤@®æ¤§¦C¸¹
-
- For Each oShape In ActiveSheet.Shapes
- If oShape.Type = 3 Then
- numChart = numChart + 1
-
- Active.Shapes(oShape.Name).Select ' ¦pªG Shapes «e¥[¤W Active. °õ¦æ®É·|¥X²{ ----> °õ¦æ¶¥¬q¿ù»~ '424': ¦¹³B»Ýnª«¥ó
- ' ActiveSheet.ChartObjects(oShape.Name).Activate
-
- ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $F$1:$F$" & totalRows & ", $V$1:$V$" & totalRows)
-
- With ActiveSheet.ChartObjects(oShape.Name).Chart
- .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
- .Axes(xlCategory).MajorTickMark = xlCategoryScale
- .Axes(xlCategory).TickLabelPosition = xlLow
-
- Cells(Lines, 38).Value = .ChartTitle.Text
- End With
-
- ActiveSheet.Shapes(oShape.Name).Left = Cells(31, 1).Left ' ³]©w¦¹¹Ïªí¹ê»ÚÂ\©ñªº X¡BY ®y¼Ð¦ì¸m¡C
- ActiveSheet.Shapes(oShape.Name).Top = Cells(31, 1).Top
-
- ActiveChart.ChartArea.Height = 488 ' ±N쥻³]©w¤§°ª«×½Õ¦Ü¾A«×¦ì¸m
- ActiveChart.ChartArea.Width = 900
-
- ActiveChart.SeriesCollection(1).InvertIfNegative = True
- ActiveChart.SeriesCollection(1).InvertColor = RGB(32, 178, 208)
- With ActiveChart.SeriesCollection(1).Format.Fill
- .Visible = msoTrue
- .ForeColor.RGB = RGB(255, 69, 0)
- .Transparency = 0
- .Solid
- End With
- End If
- Next
- End Sub
½Æ»s¥N½X 1. ¦pªG Shapes «e¥[¤W Active. °õ¦æ®É·|¥X²{ ----> °õ¦æ¶¥¬q¿ù»~ '424': ¦¹³B»Ýnª«¥ó
Active.Shapes(oShape.Name).Select ' ¦pªG Shapes «e¥[¤W Active. °õ¦æ®É·|¥X²{ ----> °õ¦æ¶¥¬q¿ù»~ '424': ¦¹³B»Ýnª«¥ó
' ActiveSheet.ChartObjects(oShape.Name).Activate
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
2B. ¥H 2A ¼Ò¦¡³B²z¡A¤§«á°lÂܵ²ªGµo²{°ÝÃD¥X¦b
With ActiveSheet.ChartObjects(oShape.Name).Chart
.Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
.Axes(xlCategory).MajorTickMark = xlCategoryScale
.Axes(xlCategory).TickLabelPosition = xlLow
Cells(Lines, 38).Value = .ChartTitle.Text
End With
2BA: ¦pªG±N¨ä¤¤ Cells(Lines, 38).Value = .ChartTitle.Text Marked°_¨Ó°õ¦æ
With ActiveSheet.ChartObjects(oShape.Name).Chart
.Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
.Axes(xlCategory).MajorTickMark = xlCategoryScale
.Axes(xlCategory).TickLabelPosition = xlLow
' Cells(Lines, 38).Value = .ChartTitle.Text
End With
°õ¦æ®É·|¥X²{ ----> °õ¦æ¶¥¬q¿ù»~ '-2147467259 (80004005)':
Automation ¿ù»~
µLªk«ü¥Xªº¿ù»~
2BB: ¦pªG¥u±N¨ä¤¤²Ä¤@¶µ Marked °_¨Ó°õ¦æ
With ActiveSheet.ChartObjects(oShape.Name).Chart
' .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
.Axes(xlCategory).MajorTickMark = xlCategoryScale
.Axes(xlCategory).TickLabelPosition = xlLow
Cells(Lines, 38).Value = .ChartTitle.Text
End With
°õ¦æ®É·|¥X²{ ----> °õ¦æ¶¥¬q¿ù»~ '5': µ{§Ç©I¥s©Î¤Þz¤£¥¿½T
2BC: ¦pªG¥u±N¨ä¤¤½èºÃªº¨â¶µ Marked °_¨Ó°õ¦æ
With ActiveSheet.ChartObjects(oShape.Name).Chart
' .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
.Axes(xlCategory).MajorTickMark = xlCategoryScale
.Axes(xlCategory).TickLabelPosition = xlLow
' Cells(Lines, 38).Value = .ChartTitle.Text
End With
°õ¦æ°_¨Ó²@µL²§¼Ë¡A¦ü¥G¬O¤@¤Á¥¿±`ªº¼Ë¤l¡C
³o©Î³\¬O§Ú¥Î¥\¤´µM¤£¨¬¡A©|½Ð«üÃÒ¡I |
|