Replies

Never mind. should have spent a little more time in Google.

It crashes on ANY file that she and I have attempted to custom sort–even on a new file with just a few numbers added to do a ‘test’ sort.
I have already uninstalled and reinstalled Office 2010.
By ‘crashes’, I mean it locks up and won’t do anything–although a few times I’ve waited long enough for it to eventually react to a mouse click or something, then locks up again for a long time, etc.

I’ll try the older file format option next time I’m back at the school.

Thanks–that’s just what I need, and I never would have found that on my own. I’ll have all my students modify their Normal.dot and get rid of a lot of confusion.

Well, it appeared as though that version wasn’t working, either. Every third time I ran it, it would condense the type, but the first two times would do nothing. Then it struck me that maybe it WAS working, but the amount was too small to visualize. I zoomed way in on the text, and then it would show movement on every click. If I would have bothered to open up the Font window and look at the spacing settings, I would have seen that it WAS increasing the condensing of the font by .25 pts each time it was clicked.

So, the old version was working all along, but thanks for giving me the new code. Maybe I can learn a few things from it. Thanks a lot.

Private Declare Function GetAsyncKeyState Lib “User32” (ByVal nVirtKey As Long) As Integer
Private Declare Function GetKeyState Lib “User32” (ByVal nVirtKey As Long) As Long
==========================

Those 2 lines are at the top of my macro list.

Yes, these macros are old. Some (maybe most) of my big time-savers go back to the late 90s. I’ve got 4 or 5 that are very handy that I use to show my computer class how to create macros and customize the toolbar (or ribbon). They all still work except for this little glitch with the shift key on this kerning macro, and one that deals with line spacing that doesn’t work at all.

We just switched from Office 2003 to 2010 this fall. These same macros wouldn’t work on 2003, either.

I’m not a programmer. I’ve been able to study the ones that people have done for me and been able to modify them or create some simple new ones, but I could never make anything like this from scratch with VBA.

I thought I had posted that question earlier, (wouldn’t be surprised if I did it in previous years as well, because each year I seem to run in to the same problem) but when I did a search for posts under my username, I only got a couple of posts as a result–neither one of which was about these graphs. I’ve been posting here for quite a few years, evidently I didn’t have something set right in my search.

In any case, the one thread that mentioned ungrouping the chart seems to do the trick almost as well as what I was (maybe falsely) remembering doing years ago. Maybe I’m even remembering doing this from my Harvard Graphics days–but that goes back about 20 years.

Thanks

Thanks, that works just as I wanted it to–for the text fields. But I also have check boxes and drop-down lists. Is there a way to make these work in the same way?

I didn’t see your reply until after my ‘chart class’ was over for the day. I had them load your original example in and then told them to see if they could replicate it from scratch in PowerPoint. Wth everyone working on it, we’ve pretty much got it figured out to get it exactly the way I want it. Thanks for your help!!

I still haven’t found the time to look over this in much detail, so I’m still having some problems. When you first set up the chart, which chart type should I select?

I don’t change an entire document, it’s usually just titles or headings that I change. On the old verson, it would only change what was highlghted.

Odd thing, though–my ‘main’ computer at school and my computer at home still will not run my old macro correctly, but it WILL run yours. I went to a couple of other computers in my classroom and those ran the old macro just fine–even though they are running the Word 2003. My 2 computers are running the Student and Teacher Edition 2003–could that be making a difference?

I’ve tried it on 2 different computers with Word 2003 and it didnt work. I went to the school library and started up an older computer that still have Word 97 on it and it worked fine. Here is the code: (I have 6 different Expert Fonts)

Dim TF$
Dim x$
Dim tf_
ReDim ReplaceFont__$(6)
ReDim FindFont__$(6)
TF$ = WordBasic.[InputBox$](“1. TNR 2. Baskerville 3. Bell 4. Garamond 5. Janson 6. Imprint “, ” Expert Font To Use “)
x$ = WordBasic.[Left$](TF$, 1)
TF$ = x$
If TF$ = “1” Then tf_ = 1
If TF$ = “2” Then tf_ = 2
If TF$ = “3” Then tf_ = 3
If TF$ = “4” Then tf_ = 4
If TF$ = “5” Then tf_ = 5
If TF$ = “6” Then tf_ = 6
If tf_ 1 And tf_ 2 And tf_ 3 And tf_ 4 And tf_ 5 And tf_ 6 Then tf_ = 1
ReplaceFont__$(1) = “Times NR Expert MT”
ReplaceFont__$(2) = “Bskvill Exp MT”
ReplaceFont__$(3) = “Bell Expert MT”
ReplaceFont__$(4) = “Garamond Expert MT”
ReplaceFont__$(5) = “Janson Expert MT”
ReplaceFont__$(6) = “Imprint Expert MT”

FindFont__$(1) = “Times New Roman”
FindFont__$(2) = “Baskerville MT”
FindFont__$(3) = “Bell MT”
FindFont__$(4) = “Garamond MT”
FindFont__$(5) = “Janson MT”
FindFont__$(6) = “Imprint MT”

WordBasic.EditFindFont Points:=””, Underline:=-1, Color:=-1, StrikeThrough:=-1, Superscript:=-1, Subscript:=-1, Hidden:=-1, SmallCaps:=-1, AllCaps:=-1, Spacing:=””, Position:=””, Kerning:=-1, KerningMin:=””, Tab:=”0″, Font:=FindFont__$(tf_), Bold:=0, Italic:=0

WordBasic.EditReplaceFont Points:=””, Underline:=-1, Color:=-1, StrikeThrough:=-1, Superscript:=-1, Subscript:=-1, Hidden:=-1, SmallCaps:=-1, AllCaps:=-1, Spacing:=””, Position:=””, Kerning:=-1, KerningMin:=””, Tab:=”0″, Font:=ReplaceFont__$(tf_), Bold:=0, Italic:=0
WordBasic.EditReplace Find:=”[a-z,0-9]”, Replace:=”^&”, Direction:=0, MatchCase:=1, WholeWord:=0, PatternMatch:=1, SoundsLike:=0, ReplaceAll:=1, Format:=1, Wrap:=0

yes, thanks! I don’t remember having the negative values in the axis, but I haven’t checked it out enough yet to see how to change it. I also see now where to set the secondary axis–I wasn’t finding that before. Thanks again. (I hope this won’t be too complicated for my students to understand!!)

I’m still not finding what I need, but it’s not all that important, anyway. I looked back through the last 12 years of my powerpoint files and didn’t find an example of it, so maybe I’m having faulty memory about doing this in powerpoint. I know that I first did it using Harvard Graphics, but I switched to powerpoint long ago, and it seems to me that I had re-created it in powerpoint, but maybe not. Thanks for your help

thanks! that solved the problem.

When I go to the Custom Animatio tab, the Group Chart dropdown has only one option–‘As One Object’. I can’t see where I am supposed to select one set of columns at a time.