'Restore Numlock (which gets disabled when your macro runs at least one SendKeys command)Īpplication.SendKeys Keys:='', Wait:=True If it is selected, the following code should do the trick: Sub ChangeCategoryAxisFont()Īpplication.SendKeys Keys:='%', Wait:=TrueĪpplication.SendKeys Keys:='H', Wait:=TrueĪpplication.SendKeys Keys:='FF', Wait:=TrueĪpplication.SendKeys Keys:='Arial', Wait:=TrueĪpplication.SendKeys Keys:='~', Wait:=True 'Press EnterĪpplication.SendKeys Keys:='FS', Wait:=TrueĪpplication.SendKeys Keys:='12', Wait:=True Type 'Arial' and then press Enter - to change the font to Arial.įor this to apply to the XlCategory axis, we need to make sure that it is already selected before we run the macro.Type 'FF' - to select the Font Name text box.Type Alt - to initiate the Alt Key shortcut sequence.I'm not sure if the sequence is the same for all versions of Excel, but with Office 365, if we wanted to change the font name, it would be: By using the correct Alt key shortcut sequence we can achieve this. Here, we want to change the size and the font name of the XlCategory axis. The idea is to use Sendkeys to send the sequence of keystrokes that would give us the result we want. 'Set the shortcut for the macro to be CTRL+ALT+mĪpplication.OnKey '^%m', 'NameOfYourMacro' For example, you could use the Application.OnKey method by runnning a macro similar to this: Sub SetShortcut() I suggest launching the macro using a shortcut to launch your macro. This article would be a good starting point.įurthermore, to avoid any issues, don't run a macro that has the SendKeys method using the Run button in the VBE since the keystroke must be sent to the Excel window and not the VBE window.

I would recommend reading some articles to get yourself familiar with it before using it. And if you haven't guessed it, I'm talking about using the SendKeys method.ĭisclaimer: As always, using SendKeys is somewhat tricky and can lead to unexpected results. So, the reason why I'm explaining all this instead of writing a solution is because there is a workaround, but this kind of thing should only be used as a last resort. I even tried to see if we could save a funnel chart as a template and then use VBA to apply this template, but 'Save as Template' is not available for some reason. I've tried all the standard VBA ways I could think of and this doesn't seem to work. I guess it has to do with the fact that the XlCategory axis becomes vertical when you are using the 'Funnel' chart type:

Excel change chart label font