- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 236
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-10-31
|
¦^´_ 1# j1221
¥ý§ïÅܸê®Æ¼Æ¦C¦A³]©w¹ÏªíÃþ«¬- Sub Macro1()
- '
- ' Macro1 Macro
- ' Shih-Hao ¦b 2011/1/16 ¿ý»sªº¥¨¶°
- '
- '
- Charts.Add
- 'ActiveChart.ChartType = xlStockOHLC '¨ú®ø³o¦æ
- ActiveChart.SetSourceData Source:=Sheets("76C").Range("A1:N22"), PlotBy:= _
- xlColumns
- ActiveChart.SeriesCollection(5).Delete
- ActiveChart.SeriesCollection(5).Delete
- ActiveChart.SeriesCollection(5).Delete
- ActiveChart.SeriesCollection(5).Delete
- ActiveChart.SeriesCollection(5).Delete
- ActiveChart.SeriesCollection(1).XValues = "='76C'!R2C1:R22C1"
- ActiveChart.SeriesCollection(2).XValues = "='76C'!R2C1:R22C1"
- ActiveChart.SeriesCollection(3).XValues = "='76C'!R2C1:R22C1"
- ActiveChart.SeriesCollection(4).XValues = "='76C'!R2C1:R22C1"
- ActiveChart.Location Where:=xlLocationAsObject, Name:="76C"
- With ActiveChart
- .HasTitle = False
- .Axes(xlCategory, xlPrimary).HasTitle = False
- .Axes(xlValue, xlPrimary).HasTitle = False
- .ChartType = xlStockOHLC '³o¸Ì¤~§ïÅÜÃþ«¬
- End With
- ActiveChart.HasLegend = False
- Windows("test1.xls").SmallScroll Down:=7
- ActiveSheet.Shapes(1).IncrementLeft -168.75
- ActiveSheet.Shapes(1).IncrementTop 269.25
- Windows("test1.xls").SmallScroll Down:=6
- ActiveSheet.Shapes(1).ScaleWidth 1.53, msoFalse, msoScaleFromTopLeft
- ActiveSheet.Shapes(1).ScaleHeight 1.36, msoFalse, msoScaleFromTopLeft
- ActiveChart.PlotArea.Select
- With Selection.Border
- .ColorIndex = 16
- .Weight = xlThin
- .LineStyle = xlContinuous
- End With
- With Selection.Interior
- .ColorIndex = 2
- .PatternColorIndex = 1
- .Pattern = xlSolid
- End With
- With Selection.Border
- .ColorIndex = 16
- .Weight = xlThin
- .LineStyle = xlContinuous
- End With
- With Selection.Interior
- .ColorIndex = 40
- .PatternColorIndex = 1
- .Pattern = xlSolid
- End With
- ActiveChart.Axes(xlCategory).Select
- Selection.TickLabels.NumberFormatLocal = "yyyy-mm-dd"
- End Sub
½Æ»s¥N½X |
|