In the past I have used the following code line to simulate a click of the
"AutoSum" button.

Application.CommandBars("Standard").Controls("&Aut oSum").Execute

This doesn't work in 2007; recording the macro doesn't work either. Anyone
have an equivalent that works in 2007; if so could you please post?

Thanks in advance for your assistance.

This vintage code still seems to work in Excel 2007.

Sub DoAutoSum()
Dim x As CommandBarControl
Set x = CommandBars.FindControl(ID:=226)
Set x = x.Controls(1)
x.Execute 'AutoSum
If Selection.Cells.Count = 1 Then
x.Execute 'Again to exit edit mode
End If
End Sub

--
Jim
"XP" wrote in message
...
| In the past I have used the following code line to simulate a click of the
| "AutoSum" button.
|
| Application.CommandBars("Standard").Controls("&Aut oSum").Execute
|
| This doesn't work in 2007; recording the macro doesn't work either. Anyone
| have an equivalent that works in 2007; if so could you please post?
|
| Thanks in advance for your assistance.

Use this XP

Application.CommandBars.ExecuteMso ("AutoSum")


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"XP" wrote in message ...
In the past I have used the following code line to simulate a click of the
"AutoSum" button.

Application.CommandBars("Standard").Controls("&Aut oSum").Execute

This doesn't work in 2007; recording the macro doesn't work either. Anyone
have an equivalent that works in 2007; if so could you please post?

Thanks in advance for your assistance.

Hi Jim

I try this first but it blow
Application.CommandBars.FindControl(ID:=226).Execu te

So posted this
Application.CommandBars.ExecuteMso ("AutoSum")

But yours is working OK


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Jim Rech" wrote in message ...
This vintage code still seems to work in Excel 2007.

Sub DoAutoSum()
Dim x As CommandBarControl
Set x = CommandBars.FindControl(ID:=226)
Set x = x.Controls(1)
x.Execute 'AutoSum
If Selection.Cells.Count = 1 Then
x.Execute 'Again to exit edit mode
End If
End Sub

--
Jim
"XP" wrote in message
...
| In the past I have used the following code line to simulate a click of the
| "AutoSum" button.
|
| Application.CommandBars("Standard").Controls("&Aut oSum").Execute
|
| This doesn't work in 2007; recording the macro doesn't work either. Anyone
| have an equivalent that works in 2007; if so could you please post?
|
| Thanks in advance for your assistance.

I see now that the menu and autosum have the same value(226)

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ron de Bruin" wrote in message ...
Hi Jim

I try this first but it blow
Application.CommandBars.FindControl(ID:=226).Execu te

So posted this
Application.CommandBars.ExecuteMso ("AutoSum")

But yours is working OK


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Jim Rech" wrote in message ...
This vintage code still seems to work in Excel 2007.

Sub DoAutoSum()
Dim x As CommandBarControl
Set x = CommandBars.FindControl(ID:=226)
Set x = x.Controls(1)
x.Execute 'AutoSum
If Selection.Cells.Count = 1 Then
x.Execute 'Again to exit edit mode
End If
End Sub

--
Jim
"XP" wrote in message
...
| In the past I have used the following code line to simulate a click of the
| "AutoSum" button.
|
| Application.CommandBars("Standard").Controls("&Aut oSum").Execute
|
| This doesn't work in 2007; recording the macro doesn't work either. Anyone
| have an equivalent that works in 2007; if so could you please post?
|
| Thanks in advance for your assistance.

Totally forgot about ExecuteMso, Ron. Thanks.

--
Jim
"Ron de Bruin" wrote in message
...
| Hi Jim
|
| I try this first but it blow
| Application.CommandBars.FindControl(ID:=226).Execu te
|
| So posted this
| Application.CommandBars.ExecuteMso ("AutoSum")
|
| But yours is working OK
|
|
| --
|
| Regards Ron de Bruin
| http://www.rondebruin.nl/tips.htm
|
|
| "Jim Rech" wrote in message
...
| This vintage code still seems to work in Excel 2007.
|
| Sub DoAutoSum()
| Dim x As CommandBarControl
| Set x = CommandBars.FindControl(ID:=226)
| Set x = x.Controls(1)
| x.Execute 'AutoSum
| If Selection.Cells.Count = 1 Then
| x.Execute 'Again to exit edit mode
| End If
| End Sub
|
| --
| Jim
| "XP" wrote in message
| ...
| | In the past I have used the following code line to simulate a click of
the
| | "AutoSum" button.
| |
| | Application.CommandBars("Standard").Controls("&Aut oSum").Execute
| |
| | This doesn't work in 2007; recording the macro doesn't work either.
Anyone
| | have an equivalent that works in 2007; if so could you please post?
| |
| | Thanks in advance for your assistance.
|

Hi Jim

Is my answer in this thread "Selective Ribbon miminise" correct
or is there a better way ?

I never wanted to keep the QAT and hide the Ribbon myself so this was my first thought.


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Jim Rech" wrote in message ...
Totally forgot about ExecuteMso, Ron. Thanks.

--
Jim
"Ron de Bruin" wrote in message
...
| Hi Jim
|
| I try this first but it blow
| Application.CommandBars.FindControl(ID:=226).Execu te
|
| So posted this
| Application.CommandBars.ExecuteMso ("AutoSum")
|
| But yours is working OK
|
|
| --
|
| Regards Ron de Bruin
| http://www.rondebruin.nl/tips.htm
|
|
| "Jim Rech" wrote in message
...
| This vintage code still seems to work in Excel 2007.
|
| Sub DoAutoSum()
| Dim x As CommandBarControl
| Set x = CommandBars.FindControl(ID:=226)
| Set x = x.Controls(1)
| x.Execute 'AutoSum
| If Selection.Cells.Count = 1 Then
| x.Execute 'Again to exit edit mode
| End If
| End Sub
|
| --
| Jim
| "XP" wrote in message
| ...
| | In the past I have used the following code line to simulate a click of
the
| | "AutoSum" button.
| |
| | Application.CommandBars("Standard").Controls("&Aut oSum").Execute
| |
| | This doesn't work in 2007; recording the macro doesn't work either.
Anyone
| | have an equivalent that works in 2007; if so could you please post?
| |
| | Thanks in advance for your assistance.
|

What you posted is the only way I know of to HIDE the ribbon and leave the
QAT.

But he didn't ask that. He wanted (1) a macro to (2) "disable" the ribbon
and (3) leave the QAT so he can use it for his toolbar.

So I think the answer to his question is "it can't be done".<g

--
Jim
"Ron de Bruin" wrote in message
...
| Hi Jim
|
| Is my answer in this thread "Selective Ribbon miminise" correct
| or is there a better way ?
|
| I never wanted to keep the QAT and hide the Ribbon myself so this was my
first thought.
|
|
| --
|
| Regards Ron de Bruin
| http://www.rondebruin.nl/tips.htm
|
|
| "Jim Rech" wrote in message
...
| Totally forgot about ExecuteMso, Ron. Thanks.
|
| --
| Jim
| "Ron de Bruin" wrote in message
| ...
| | Hi Jim
| |
| | I try this first but it blow
| | Application.CommandBars.FindControl(ID:=226).Execu te
| |
| | So posted this
| | Application.CommandBars.ExecuteMso ("AutoSum")
| |
| | But yours is working OK
| |
| |
| | --
| |
| | Regards Ron de Bruin
| | http://www.rondebruin.nl/tips.htm
| |
| |
| | "Jim Rech" wrote in message
| ...
| | This vintage code still seems to work in Excel 2007.
| |
| | Sub DoAutoSum()
| | Dim x As CommandBarControl
| | Set x = CommandBars.FindControl(ID:=226)
| | Set x = x.Controls(1)
| | x.Execute 'AutoSum
| | If Selection.Cells.Count = 1 Then
| | x.Execute 'Again to exit edit mode
| | End If
| | End Sub
| |
| | --
| | Jim
| | "XP" wrote in message
| | ...
| | | In the past I have used the following code line to simulate a
click of
| the
| | | "AutoSum" button.
| | |
| | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute
| | |
| | | This doesn't work in 2007; recording the macro doesn't work
either.
| Anyone
| | | have an equivalent that works in 2007; if so could you please
post?
| | |
| | | Thanks in advance for your assistance.
| |
|

Hi Jim

OK you are right but he can use the buttons he add to the QAT for only that workbook.
It looks like a toolbar then <g

Have a nice weekend


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Jim Rech" wrote in message ...
What you posted is the only way I know of to HIDE the ribbon and leave the
QAT.

But he didn't ask that. He wanted (1) a macro to (2) "disable" the ribbon
and (3) leave the QAT so he can use it for his toolbar.

So I think the answer to his question is "it can't be done".<g

--
Jim
"Ron de Bruin" wrote in message
...
| Hi Jim
|
| Is my answer in this thread "Selective Ribbon miminise" correct
| or is there a better way ?
|
| I never wanted to keep the QAT and hide the Ribbon myself so this was my
first thought.
|
|
| --
|
| Regards Ron de Bruin
| http://www.rondebruin.nl/tips.htm
|
|
| "Jim Rech" wrote in message
...
| Totally forgot about ExecuteMso, Ron. Thanks.
|
| --
| Jim
| "Ron de Bruin" wrote in message
| ...
| | Hi Jim
| |
| | I try this first but it blow
| | Application.CommandBars.FindControl(ID:=226).Execu te
| |
| | So posted this
| | Application.CommandBars.ExecuteMso ("AutoSum")
| |
| | But yours is working OK
| |
| |
| | --
| |
| | Regards Ron de Bruin
| | http://www.rondebruin.nl/tips.htm
| |
| |
| | "Jim Rech" wrote in message
| ...
| | This vintage code still seems to work in Excel 2007.
| |
| | Sub DoAutoSum()
| | Dim x As CommandBarControl
| | Set x = CommandBars.FindControl(ID:=226)
| | Set x = x.Controls(1)
| | x.Execute 'AutoSum
| | If Selection.Cells.Count = 1 Then
| | x.Execute 'Again to exit edit mode
| | End If
| | End Sub
| |
| | --
| | Jim
| | "XP" wrote in message
| | ...
| | | In the past I have used the following code line to simulate a
click of
| the
| | | "AutoSum" button.
| | |
| | | Application.CommandBars("Standard").Controls("&Aut oSum").Execute
| | |
| | | This doesn't work in 2007; recording the macro doesn't work
either.
| Anyone
| | | have an equivalent that works in 2007; if so could you please
post?
| | |
| | | Thanks in advance for your assistance.
| |
|