- ©«¤l
- 824
- ¥DÃD
- 6
- ºëµØ
- 0
- ¿n¤À
- 904
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10,7
- ³nÅ骩¥»
- 2019,2013,2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-3
- ³Ì«áµn¿ý
- 2023-12-24
|
¤@¯ë¨Ó»¡Ãþ¦ü§A³o¼Ëªº»Ý¨D.
¨ä¹êExcel¦³´£¨Ñ¤@Ó¤u¨ã¥i¥HÅý§Ú̫ܧ֪º±o¨ìÅܧó¬ÛÃö¼Æ¾Úªº«ü¥O,
¨º´N¬O : "¿ý»s·s¥¨¶°", ¥H¤U¬O¿ý»s¥X¨Óªºµ{¦¡¤º®e:
Sub Macro1()
'
' Macro1 Macro
' user ¦b 2011/5/11 ¿ý»sªº¥¨¶°
'
'
ActiveSheet.ChartObjects("¹Ïªí 9").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = -1400 '<----- ¹Ïªí¨è«×³Ì¤pÈ
.MaximumScale = -600 '<----- ¹Ïªí¨è«×³Ì¤jÈ
.MinorUnit = 1.8
.MajorUnit = 100
.Crosses = xlCustom
.CrossesAt = 0
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
¹Ïªí¤¤ªº¦UºØ¤¸¯À·Qn«ç»òÅܧ󳣥i¥H¸g¥Ñ¿ý»s§ä¨ìÃöÁäµ{¦¡½X. |
|