Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Y axys not properly displayed
Here is my routine:
Do Until .Axes(xlValue).MaximumScale - .Axes(xlValue).MajorUnit < Application.Max(Cht_data) ..Axes(xlValue).MaximumScale = .Axes(xlValue).MaximumScale - .Axes(xlValue).MajorUnit Loop Do Until .Axes(xlValue).MinimumScale + .Axes(xlValue).MajorUnit Application.Min(Cht_data) ..Axes(xlValue).MinimumScale = .Axes(xlValue).MinimumScale + .Axes(xlValue).MajorUnit Loop It works great except when Application.Max(Cht_data) is too close to .Axes(xlValue).MaximumScale. Then the axis width is too large. If I manually edit the axis and enter the same maximum number, then the width is back to a standard width. I’ve tried to use a variable instead or use this code ActiveChart.Axes(xlValue).Select With Selection ..MaximumScale = .MaximumScale (or alternatively .MaximumScale = my_variable_maximum) End With It does not work. I’ve googled my routine but it returned nothing. Any thoughts? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
VBA isn't subtracting properly | Excel Worksheet Functions | |||
Does not add up properly | Excel Discussion (Misc queries) | |||
Symbols not displayed properly in Excel chart | Excel Discussion (Misc queries) | |||
Macro won't run properly | Excel Programming | |||
Excel XP won't run XLA properly | Excel Programming |