BET: Microsoft Excel Charts

Microsoft Office Development and Consultancy

Home

Excel

VBA

Excel > Charts > VBA Code > Axes

< Previous | Next >

1
2
3

objChart.Axes(Type, Group)
objChart.Axes(xlAxisType.xlCategory, xlAxisGroup.xlPrimary)
objChart.Axes(xlAxisType.xlValue, xlAxisGroup.xlSecondary)

4 5	objAxis.TickLabels.Font.Size = 10 objAxis.AxisTitle.Characters.Font.Size = 10

Y-Axis (Values)

6
7
8
9
10
11
12
13
14

With ActiveChart.Axes(xlAxisType.xlValues, xlAxisGroup.xlPrimary
   .MinimumScaleIsAuto = True
   .MaximumScale = 0.8
   .MinorUnitIsAuto = True
   .MajorUnitIsAuto = True
   .Crosses = xlAutomatic
   .ReversePlotOrder = False
   .ScaleType = xlLinear
End With

X-Axis (Timescale)

15
16
17
18
19
20
21
22
23
24
25
26

With ActiveChart.Axes(xlAxisType.xlCategory, xlAxisGroup.xlPrimary)
   .MinimumScale = "01/01/2010"
   .MaximumScale = "31/01/2010"
   .BaseUnitIsAuto = False
   .MajorUnit =
   .MajorUnitScale = xlDays
   .MinorUnit =
   .MinorUnitScale = xlDays
   .Crosses =
   .AxisBetweenCategories =
   .ReversePlotOrder =
End WIth

X-Axis (Category)

27
28
29
30
31
32
33

With ActiveChart.Axes(xlAxisType.xlCategory, xlAxisGroup.xlPrimary)
   .Crosses = xlMaximum
   .AxesBetweenCategories
   .ReversePlotOrder
   .TickLabelSpacing
   .TickMarkSpacing
End With

34	.CategoryType = xlCategoryType.xlAutomaticScale

Secondary Axis

35	ActiveChart.SeriesCollection(1).AxisGroup = 2

Axis Labels

36	objAxis.TickLabels.Font

Text Formatting

37
38

Dim oaxis As Excel.Axis
oaxis.TickLabels.Font.Name = "Arial"

< Previous | Top | Next >