Control send

[spoo]

Hello,

How to send ALT+H+U+M  using Control Send

I can get it work using send ,however if my desired location is minimized then sends it to the current open application
 

$excel_handle="Microsoft Excel - "&$fileName
Local $hIE =WinGetHandle ($excel_handle)
Local $hCtrl = ControlGetHandle($excel_handle, "", "")

If WinExists($hIE,"") Then
   WinActivate($hIE,"")
   ControlSend($hIE ,"",$hCtrl,"{ALT}")
   ControlSend($hIE ,"",$hCtrl,"H",1 )
   ControlSend($hIE ,"",$hCtrl,"M",1 )
   ControlSend($hIE ,"",$hCtrl,"U",1 )
EndIf

 

[Exit]

$excel_handle="Microsoft Excel - "&$fileName
Local $hIE =WinGetHandle ($excel_handle)
Local $hCtrl = ControlGetHandle($excel_handle, "", "")

If WinExists($hIE,"") Then
   WinActivate($hIE,"")
   ControlSend($hIE ,"",$hCtrl,"!H")
   ControlSend($hIE ,"",$hCtrl,"!M")
   ControlSend($hIE ,"",$hCtrl,"!U")
EndIf

or 

$excel_handle="Microsoft Excel - "&$fileName
Local $hIE =WinGetHandle ($excel_handle)
Local $hCtrl = ControlGetHandle($excel_handle, "", "")

If WinExists($hIE,"") Then
   WinActivate($hIE,"")
   ControlSend($hIE ,"",$hCtrl,"{ALTDown}")
   ControlSend($hIE ,"",$hCtrl,"H",1 )
   ControlSend($hIE ,"",$hCtrl,"M",1 )
   ControlSend($hIE ,"",$hCtrl,"U",1 )
   ControlSend($hIE ,"",$hCtrl,"{ALTUp}")
EndIf

 

Edited June 4, 2019 by Exit

[spoo]

@Exit

 

Thanks for the reply.

Basically  wanted to unmerge the cells in the  excel

for some reason iam not able to controlsend "M" and "u" , i used both your code..

i was able to press Home button but not Meger& center

 

$oWorkBook.Activesheet.Range($A&$res+1&":"&$col_letter&$res+1).Select-->after selecting the column
If WinExists($hIE,"") Then
   WinActivate($hIE,"")
   ControlSend($hIE ,"",$hCtrl,"{ALTDown}")
   ControlSend($hIE ,"",$hCtrl,"H",1 )
   ControlSend($hIE ,"",$hCtrl,"M",1 )
   ControlSend($hIE ,"",$hCtrl,"U",1 )
   ControlSend($hIE ,"",$hCtrl,"{ALTUp}")
EndIf

 

works fine till home button press

 

Thanks:)

 

 

Edited June 7, 2019 by spoo

[Exit]

insert a sleep(1000) after sending "H"

[JLogan3o13]

Or, you just choose your range and do it properly

Ex: A1 and B1 Merged as a header:

#include <Excel.au3>

$oExcel = _Excel_Open()
$oWorkbook = _Excel_BookOpen($oExcel, @DesktopDir & "\Merge.xlsx")

With $oWorkbook.Worksheets("Sheet1").Range("A1")
    If .MergeCells Then
        .MergeArea.UnMerge
    EndIf
EndWith