lining up charts

[kevint504]

maybe I'm just having a bad brain day but...

I'm creating bunches of charts that need to be printed out, several to a page. I'd like to line them up nicely (e.g. in two columns of four charts or some such). Now, obviously I can pick them up and drag them around but it's difficult to line them up exactly and it looks bad when I print them. I assume there's some kind of 'snap to grid' or 'align charts' option, but I can't find it. It must exist, surely?

 

[GlennUK]

Nope. Do macro record as you're trying to pick them up and drag them, then look at the code and you'll see the coordinates that you've jsut done ny hand ... tweak them so that they all match, and run the recorded macro.

 

[kevint504]

Strange that it's not a built-in feature.
Like the record macro idea. Sadly I'm a vba dunce, so can you tell me how to change these bits...

ActiveSheet.Shapes("Chart 1").IncrementLeft -3.75

to provide absolute sheet locations rather than recording the relative movement?

many thanks,

Kev

 

[GlennUK]

There's lots of ways to do it ... one way is to change IncrementLeft to Left and choose a number for the location.

Or maybe something like this:

    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.ChartArea.Select
    With ActiveSheet.Shapes("Chart 1")
        .Left = .TopLeftCell.Left + 25
    End With

for all the charts in a group. It will snap them all to 25 points to the right of the left hand edge of the column they are over.

 

[kevint504]

That's brilliant, thanks. It's one of those things that I'm sure I'll make use of many, many times.