- ©«¤l
- 75
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 371
- ÂI¦W
- 1
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2024-11-28
|
¦^´_ 2# jcsbdsenuj
Sub Macro1()
Range("c1").Value = "=MAX(C5:C16)"
ActiveChart.Axes(xlValue).Select
ActiveSheet.ChartObjects("¹Ïªí 1").Activate
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = Cells(1, 3)
End Sub |
|