Comments on: Draw an Axis With Tick Marks But No Line

By: Jon Peltier

Jon Peltier — Fri, 24 Apr 2009 17:47:16 +0000

The Change event needs an actual change to a cell’s contents: a changing value, or a change to the formula, not to its calculated value. But you could use the Calculate event to trigger the code you want to run.

By: ckz

ckz — Fri, 24 Apr 2009 16:23:35 +0000

Jon,

Is it possible to have a Change Event work based on a cell formula? I have only read that the actual cell has to change.

I would like to have images appear, disappear on a summary worksheet based on the values being calculated on a different worksheet.

So far, the code only works if I change a specific value in a cell on the same worksheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range(“f4″), Target) Is Nothing Then

If Intersect(Range(“f4″), Target) < 5 Then
ActiveSheet.Shapes(“Object 2″).Visible = True
Else: ActiveSheet.Shapes(“Object 2″).Visible = False
End If
End If

End Sub

Any suggestions?

By: Danièle

Danièle — Fri, 17 Apr 2009 10:38:49 +0000

Thanks Jon and Andy. Your quick and dirty tips are as usual far from that, and thoroughly thought out for proportions and visual balance, and it is always great to see a graph where all fits well, and can be easily incorporated in a VBA module.
Derek, your trick is pretty quick, simple and effective too.
Great!
Danièle

By: Jon Peltier

Jon Peltier — Thu, 16 Apr 2009 20:03:42 +0000

Just to clarify, because it took me 30 seconds to figure out your trick. Derek is adding a new XY series which has its endpoints at the top and bottom of the Y axis. He is displaying no markers, and a white line which obscures the axis line. Here's the data, the initial chart, and the data added as a new (column) series.

Here the new series has been converted to an XY series, the XY series moved to the primary axis, and the series formatted to show no markers and a while line.

By: derek

derek — Thu, 16 Apr 2009 19:33:16 +0000

Another quick and dirty method I often use is only slightly quicker and dirtier than Jon’s helper series, because it is itself and XY scatter series. But it’s slightly simpler:

xy
0.5 0
0.5 6

If it chooses the secondary value scale, choose the primary again, then format the line so it’s white and thick. It will cover up the scale line but leave the scale ticks visible.

By: Jon Peltier

Jon Peltier — Thu, 16 Apr 2009 14:29:03 +0000

Andy - Your symbol is perfectly aligned:

By: Andy Pope

Andy Pope — Thu, 16 Apr 2009 14:24:44 +0000

Danièle,

The font is Arial. The Box Drawing bit is the name of the specific glyph.
If you display Unicode character set it is about 4/5ths of the way down the list.

Jon’s right about the pixel offset. It’s more prominent if you use the standard keyboard dash character.

You could use this command in the Immediate window to create the character in the active cell. Then use copy/paste

activecell.Value = chrw(&H2500)

By: Jon Peltier

Jon Peltier — Thu, 16 Apr 2009 14:24:16 +0000

Danièle - What I meant is that the dash is guaranteed not to be in the middle of the label, so it will be offset from the "actual" tick mark. For my dash, I'd probably use an en-dash (–) or an em-dash (—), which are Alt+0150 or Alt+0151 on the numeric keypad. Here's a sample using an en-dash:

If I include horizontal gridlines, you can see that the dashes are a pixel lower than the gridlines. For quick & dirty, I guess that's close enough.

By: Danièle

Danièle — Thu, 16 Apr 2009 14:04:48 +0000

“quick and dirty”?! Perfectionists..!
I had used previously the dummy series trick, but Jon, how would you go about offsetting the ticks vertically ( or horizontally)”a pixel or 2″ ?
Thanks Andy for the format idea, but my character map does not have fonts Box Drawings Light Horizontal , and how do you use the Unicode U+2500?

By: Jon Peltier

Jon Peltier — Thu, 16 Apr 2009 11:37:48 +0000

Andy – The dashes might also be offset vertically by a pixel or two. But for quick & dirty, it’s probably fine.