Button Help

[daya]

Hello,

I want to automate some of my Ms Excel repetative work.

I start Excel by "Run" command.
Now I want to
1) click on "BOLD" icon and
2) Select FontSize Dropdown menu to Select any other fontsize other than Default size.

I plan to use ControlFocus for BOLD Buttons and then CLICK, but How to get CONTROLID of BOLD Button.
I used Info Tool but it gives me following Summary details.

>>>> Window <<<<
Title: Microsoft Excel - Book1
Class: XLMAIN
Position: -8, -8
Size: 1040, 738
Style: 0x15CF0000
ExStyle: 0x00000110
Handle: 0x001703B4

>>>> Control <<<<
Class: MsoCommandBar
Instance: 3
ClassnameNN: MsoCommandBar3
Name: 
Advanced (Class): [CLASS:MsoCommandBar; INSTANCE:3]
ID: 
Text: Formatting
Position: -1, 52
Size: 677, 26
ControlClick Coords: 155, 15
Style: 0x56000000
ExStyle: 0x00000000
Handle: 0x000F0808

>>>> Mouse <<<<
Position: 154, 89
Cursor ID: 0
Color: 0xF2F2F2

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
Task Pane
New Workbook
New
Worksheet Menu Bar
Type a question for help
Formatting
10
Arial
Standard
100%
Book1

>>>> Hidden Text <<<<
MsoWorkPane
________________________________________________

Any Help Please

Regards

[water]

Please have a look at the Ecxel UDF, function _ExcelFontSetProperties, that comes with AutoIt. Or my Excel Rewrite (still an alpha version).

[daya]

Thanks Water for your Reply.

I get Some Idea for one of my question.

But I Need to know, how to click certain button,e.g."Bold" when we can't retrieve ControlID from InfoTool.

Regards

[water]

When you use the Excel UDF then there is no need to click on buttons. It is all being done using COM.

[daya]

_{Thanks Water;}

_{I am experimenting with Excel UDF.May be I am on a right path.}

_{But still my question is unanaswered. How to click certain BUtton when there is no specific Id}

_{E.g. Take another case apart from EXCEL, say Dev C++ (C++ IDE),}

_{To open new Source File, I may write script like:}

_{send("{Ctrl}")}

_send("N")

_{Alternatively I click on Icon for " New Source file" on Main MenuBar.}

_{So here how to click this Icon.}

_{May I use ControlClick Coords.}

_{Give me some clue.}

_Regards

[water]

AutoIt allows to access a control not only by Id. Please check the help file.

[daya]

Thanks Water,

My Scrip is as:

Run("C:Dev-Cppdevcpp.exe")
Opt("WinTitleMatchMode", 1)
WinWaitActive ("Dev")
WinSetState("Dev","",@SW_MAXIMIZE)
ControlClick("Dev-C++ 4.9.9.2", "Source File","[CLASS:TToolBar; INSTANCE:8]" )

IDE open Normally but doesn't click on "Source File" Icon, that I want.

O.K I change Last line as:

ControlClick("Dev-C++ 4.9.9.2", "Source File","[CLASS:TToolBar; INSTANCE:8]",left ,1,62,13).

 But it Gives Syntax Error

Info Tool Summary:

>>>> Window <<<<
Title: Dev-C++ 4.9.9.2
Class: TMainForm
Position: -8, -8
Size: 1040, 738
Style: 0x17CF0000
ExStyle: 0x00010110
Handle: 0x01570646

 

>>>> Control <<<<
Class: TToolBar
Instance: 8
ClassnameNN: TToolBar8

Name:
Advanced (Class): [CLASS:TToolBar; INSTANCE:8]
ID: 13501826
Text:
Position: 12, 3
Size: 177, 22
ControlClick Coords: 62, 13
Style: 0x5600084E
ExStyle: 0x00010000
Handle: 0x00CE0582

>>>> Mouse <<<<
Position: 74, 58
Cursor ID: 0
Color: 0xDEDEDE

>>>> StatusBar <<<<

>>>> ToolsBar <<<<

>>>> Visible Text <<<<
Project
tbClasses
Specials
Search
Edit
Project
Options
Compile and Run
Main

>>>> Hidden Text <<<<
Debug
Classes
Compiler
Debug
Output

Edited June 9, 2013 by daya

[water]

Should be

ControlClick("Dev-C++ 4.9.9.2", "Source File","[CLASS:TToolBar; INSTANCE:8]","left" ,1,62,13)

[daya]

Syntax Error gone but can't clicking on icon

Regards

[water]

Do some error checking:

$iReturn = ControlClick("Dev-C++ 4.9.9.2", "Source File","[CLASS:TToolBar; INSTANCE:8]","left" ,1,62,13)
MsgBox(0, "", "Returnvalue is: " & $iReturn)

[daya]

MSgBox   ReturnValue is: 0

[water]

This means that ContrloClick was not successfull.

According to the help file: "Some controls will resist clicking unless they are the active window. Use the WinActivate() function to force the control's window to the top before using ControlClick()."

Is there a reason that you pass the coordinates where to click? As Default AutoIt clicks in the middle of the Control.

[daya]

Still No luck.

My scrip is

 

Run("C:Dev-Cppdevcpp.exe")
Opt("WinTitleMatchMode", 1)
WinWaitActive ("Dev")
WinSetState("Dev","",@SW_MAXIMIZE)
WinActivate("Dev-C++ 4.9.9.2","Source File")
ControlClick("Dev-C++ 4.9.9.2", "Source File","[CLASS:TToolBar; INSTANCE:8]")
$iReturn = ControlClick("Dev-C++ 4.9.9.2", "Source File","[CLASS:TToolBar; INSTANCE:8]")
MsgBox(0, "", "Returnvalue is: " & $iReturn)
 

Alternatively I tried:

Run("C:Dev-Cppdevcpp.exe")
Opt("WinTitleMatchMode", 1)
WinWaitActive ("Dev")
WinSetState("Dev","",@SW_MAXIMIZE)
WinActivate("[CLASS:TToolBar; INSTANCE:8]","Source File")
ControlClick("Dev-C++ 4.9.9.2", "Source File","[CLASS:TToolBar; INSTANCE:8]")
$iReturn = ControlClick("Dev-C++ 4.9.9.2", "Source File","[CLASS:TToolBar; INSTANCE:8]")
MsgBox(0, "", "Returnvalue is: " & $iReturn).

 

Info tool Summary is   same as previous post.

I don't need to pass control coordinates. That's I tried to alter syntax.

 

Regards

[water]

I still don't get why you think you need to click a button. Using COM allows to do whatever you need to do without clicking a single button.

Can you please elaborate?

[daya]

Dear Water,

Thanks for your help.

I am new to Autoit and specifically any programming Environment.

I just wanted to learn about Windows application Automation.And this ControlClick made me curious.

Ok I am trying for COM.

Can you please direct me for this way.

Regards

[water]

Sure!

First a few questions:

• Which version of Excel do you run?
• Which file format do you want to use (xls or xlsx)?
• Do you want to create a new Excel workbook or open and modify an existing one?

[daya]

1) Excel 2003

2) .Xls

3) Majority case Open New WorkBook.

Regards

[water]

This opens an existing workbook and sets cell "A1" to bold and font size 16:

#include <Excel.au3>
Global $oExcel = _ExcelBookOpen("C:\temp\test.xls")
If @error Then Exit MsgBox(0, "Error", "_ExcelBookOpen returned error " & @error)
$oExcel.ActiveSheet.Range("A1").Font.Size = 16
$oExcel.ActiveSheet.Range("A1").Font.Bold = True