Here are the results for Office 2003 2007 2010 2013, they are similar, and note that for those office versions, 2003 2007 2010 2013, the big coding does what we want (** when run ) and all is well
( ** when stepped through in debug F8 mode from the VBEditor , some versions do not work )
2003
https://i.postimg.cc/8CgCckTn/XL-200...ons-on-Run.jpgXL 2003 WinSpy & Dimensions on Run.jpg
Code:' Excel 2003 Klaus Notebook ' Results from Immediate window when Run the code, (from Excel or from the VBEditor) ' hwndClip 25888836 ' hwndClip 29427046 ' hwndClip 460018 ' hwndScrollBar 656320 ' ' tRect1.Top = 232 tRect2.Top = 295 ' ( tRect1.Bottom = 436 tRect2.Bottom = 376 ) ' Loop i from 0 To (853-653)=200 Step 50 ' i=000 tPt.x = 653 tPt.Y = 254 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=050 tPt.x = 703 tPt.Y = 254 ' lResult 0 vKid 1 oIA.accName(vKid) "Alle einfügen" ' i=100 tPt.x = 753 tPt.Y = 254 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=150 tPt.x = 803 tPt.Y = 254 ' lResult 0 vKid 2 oIA.accName(vKid) "Alle löschen" ' Worked, :-) ' ' Results from Immediate window when step debug mode from the VBEditor ' hwndClip 25888836 ' hwndClip 29427046 ' hwndClip 460018 ' hwndScrollBar 656320 ' ' tRect1.Top = 232 tRect2.Top = 295 ' ( tRect1.Bottom = 436 tRect2.Bottom = 376 ) ' Loop i from 0 To (853-653)=200 Step 50 ' i=000 tPt.x = 653 tPt.Y = 254 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=050 tPt.x = 703 tPt.Y = 254 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=100 tPt.x = 753 tPt.Y = 254 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=150 tPt.x = 803 tPt.Y = 254 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=200 tPt.x = 853 tPt.Y = 254 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' Unable to clear the Office Clipboard, didn't work, :-( ' ------------------------------------------------------------------------------------------------------- ' Excel 2003 KB ' Results from Immediate window when Run the code, (from Excel or from the VBEditor) ' hwndClip 4785806 ' hwndClip 722274 ' hwndClip 2492028 ' hwndScrollBar 6096064 ' ' tRect1.Top = -782 tRect2.Top = -719 ' ( tRect1.Bottom = -73 tRect2.Bottom = -179 ) ' Loop i from 0 To (1534-1334)=200 Step 50 ' i=000 tPt.x = 1334 tPt.Y = -760 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=050 tPt.x = 1384 tPt.Y = -760 ' lResult 0 vKid 1 oIA.accName(vKid) "Alle einfügen" ' i=100 tPt.x = 1434 tPt.Y = -760 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=150 tPt.x = 1484 tPt.Y = -760 ' lResult 0 vKid 2 oIA.accName(vKid) "Alle löschen" ' Worked, :-) ' Results from Immediate window when step debug mode from the VBEditor ' hwndClip 4785806 ' hwndClip 722274 ' hwndClip 2492028 ' hwndScrollBar 6096064 ' ' tRect1.Top = -782 tRect2.Top = -719 ' ( tRect1.Bottom = -73 tRect2.Bottom = -179 ) ' Loop i from 0 To (1534-1334)=200 Step 50 ' i=000 tPt.x = 1334 tPt.Y = -760 ' lResult 0 vKid 0 oIA.accName(vKid) "Direktbereich" ' i=050 tPt.x = 1384 tPt.Y = -760 ' lResult 0 vKid 0 oIA.accName(vKid) "Direktbereich" ' i=100 tPt.x = 1434 tPt.Y = -760 ' lResult 0 vKid 0 oIA.accName(vKid) "Direktbereich" ' i=150 tPt.x = 1484 tPt.Y = -760 ' lResult 0 vKid 0 oIA.accName(vKid) "Direktbereich" ' i=200 tPt.x = 1534 tPt.Y = -760 ' lResult 0 vKid 0 oIA.accName(vKid) "Direktbereich" ' Unable to clear the Office Clipboard, didn't work, :-( ' Some stuff copied from the spy after dragging into OfficesViewerPane ' Caption: Zusammenstellen und Einfügen 2.0 ' Class: bosa_sdm_XL9 (Unicode) ' Rectangle: (1334,-782) - (1534,-73) - 200x709 ' Client Rect: (0,0) - (200,709) - 200x709 ' '
2007
https://i.postimg.cc/XvKYCMJN/XL-200...ons-on-Run.jpg XL 2007 WinSpy & Dimensions on Run.jpg
Code:' Excel 2007 Klaus Notebook ' Results from Immediate window when Run the code, (from Excel or from the VBEditor) ' hwndClip 20579580 ' hwndClip 29689006 ' hwndClip 460302 ' hwndScrollBar 722120 ' ' tRect1.Top = 206 tRect2.Top = 256 ' ( tRect1.Bottom = 579 tRect2.Bottom = 541 ) ' Loop i from 0 To (231-37)=194 Step 50 ' i=000 tPt.x = 37 tPt.Y = 221 ' lResult 0 vKid 0 oIA.accName(vKid) "Collect and Paste 2.0" ' i=050 tPt.x = 87 tPt.Y = 221 ' lResult 0 vKid 1 oIA.accName(vKid) "Paste All" ' i=100 tPt.x = 137 tPt.Y = 221 ' lResult 0 vKid 2 oIA.accName(vKid) "Clear All" ' Worked, :-) ' ' Results from Immediate window when step debug mode from the VBEditor ' hwndClip 20579580 ' hwndClip 29689006 ' hwndClip 460302 ' hwndScrollBar 722120 ' ' tRect1.Top = 206 tRect2.Top = 256 ' ( tRect1.Bottom = 579 tRect2.Bottom = 541 ) ' Loop i from 0 To (231-37)=194 Step 50 ' i=000 tPt.x = 37 tPt.Y = 221 ' lResult 0 vKid 0 oIA.accName(vKid) "Collect and Paste 2.0" ' i=050 tPt.x = 87 tPt.Y = 221 ' lResult 0 vKid 1 oIA.accName(vKid) "Paste All" ' i=100 tPt.x = 137 tPt.Y = 221 ' lResult 0 vKid 2 oIA.accName(vKid) "Clear All" ' Worked, :-) ' Some stuff copied from the spy after dragging into OfficesViewerPane ' Caption: Zusammenstellen und Einfügen 2.0 ' Class: bosa_sdm_XL9 (Unicode) ' Rectangle: (37,206) - (231,579) - 194x373 ' Client Rect: (0,0) - (194,373) - 194x373 ' ------------------------------------------------------------------------------------------------------- ' ' Excel 2007 KB ' Results from Immediate window when Run the code, (from Excel or from the VBEditor) ' tRect1.Top = -711 tRect2.Top = -661 ' ( tRect1.Bottom = -193 tRect2.Bottom = -229 ) ' Loop i from 0 To (1434-1207)=227 Step 50 ' i=000 tPt.x = 1207 tPt.Y = -696 ' lResult 0 vKid 0 oIA.accName(vKid) "Collect and Paste 2.0" ' i=050 tPt.x = 1257 tPt.Y = -696 ' lResult 0 vKid 1 oIA.accName(vKid) "Paste All" ' i=100 tPt.x = 1307 tPt.Y = -696 ' lResult 0 vKid 2 oIA.accName(vKid) "Clear All" ' Worked, :-) ' Results from Immediate window when step debug mode from the VBEditor ' tRect1.Top = -725 tRect2.Top = -675 ' ( tRect1.Bottom = -159 tRect2.Bottom = -195 ) ' Loop i from 0 To (1019-792)=227 Step 50 ' i=000 tPt.x = 792 tPt.Y = -710 ' lResult 0 vKid 0 oIA.accName(vKid) "Collect and Paste 2.0" ' i=050 tPt.x = 842 tPt.Y = -710 ' lResult 0 vKid 1 oIA.accName(vKid) "Paste All" ' i=100 tPt.x = 892 tPt.Y = -710 ' lResult 0 vKid 2 oIA.accName(vKid) "Clear All" ' Worked, :-) ' Some stuff copied from the spy after dragging into OfficesViewerPane ' Caption: Collect and Paste 2.0 ' Class: bosa_sdm_XL9 (Unicode) ' Rectangle: (1207,-711) - (1434,-193) - 227x518 ' Client Rect: (0,0) - (227,518) - 227x518
2010
https://i.postimg.cc/023jgdFv/XL-201...ons-on-Run.jpg XL 2010 WinSpy & Dimensions on Run.jpg
Code:' Excel 2010 Klaus Notebook ' hwndClip 329404 ' hwndClip 329350 ' hwndClip 394808 ' hwndScrollBar 329338 ' ' tRect1.Top = 209 tRect2.Top = 259 ' ( tRect1.Bottom = 569 tRect2.Bottom = 534 ) ' Loop i from 0 To (773-479)=294 Step 50 ' i=000 tPt.x = 479 tPt.Y = 224 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=050 tPt.x = 529 tPt.Y = 224 ' lResult 0 vKid 1 oIA.accName(vKid) "Alle einfügen" ' i=100 tPt.x = 579 tPt.Y = 224 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=150 tPt.x = 629 tPt.Y = 224 ' lResult 0 vKid 2 oIA.accName(vKid) "Alle löschen" ' Worked, :-) ' ' Results from Immediate window when step debug mode from the VBEditor ' hwndClip 329404 ' hwndClip 329350 ' hwndClip 394808 ' hwndScrollBar 329338 ' ' tRect1.Top = 209 tRect2.Top = 259 ' ( tRect1.Bottom = 569 tRect2.Bottom = 534 ) ' Loop i from 0 To (773-479)=294 Step 50 ' i=000 tPt.x = 479 tPt.Y = 224 ' lResult 0 vKid 0 oIA.accName(vKid) "Projektfenster" ' i=050 tPt.x = 529 tPt.Y = 224 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=100 tPt.x = 579 tPt.Y = 224 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=150 tPt.x = 629 tPt.Y = 224 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=200 tPt.x = 679 tPt.Y = 224 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=250 tPt.x = 729 tPt.Y = 224 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' Unable to clear the Office Clipboard, didn't work, :-( ' Some stuff copied from the spy after dragging into OfficesViewerPane ' Caption: Zusammenstellen und Einfügen 2.0 ' Class: bosa_sdm_XL9 (Unicode) ' Rectangle: (479,209) - (773,569) - 294x360 ' Client Rect: (0,0) - (294,360) - 294x360 ' ------------------------------------------------------------------------------------------------------- ' ' Excel 2010 Elfy ' Results from Immediate window when Run the code, (from Excel or from the VBEditor) ' hwndClip 461200 ' hwndClip 264628 ' hwndClip 264678 ' hwndScrollBar 330140 ' tRect1.Top = 224 tRect2.Top = 274 ' ( tRect1.Bottom = 819 tRect2.Bottom = 778 ) ' Loop i from 0 To (808-514)=294 Step 50 ' i=000 tPt.x = 514 tPt.Y = 239 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=050 tPt.x = 564 tPt.Y = 239 ' lResult 0 vKid 1 oIA.accName(vKid) "Alle einfügen" ' i=100 tPt.x = 614 tPt.Y = 239 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=150 tPt.x = 664 tPt.Y = 239 ' lResult 0 vKid 2 oIA.accName(vKid) "Alle löschen" ' Worked, :-) ' Results from Immediate window when step debug mode from the VBEditor ' hwndClip 461200 ' hwndClip 264628 ' hwndClip 264678 ' hwndScrollBar 330140 ' ' tRect1.Top = 224 tRect2.Top = 274 ' ( tRect1.Bottom = 819 tRect2.Bottom = 778 ) ' Loop i from 0 To (808-514)=294 Step 50 ' i=000 tPt.x = 514 tPt.Y = 239 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=050 tPt.x = 564 tPt.Y = 239 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=100 tPt.x = 614 tPt.Y = 239 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=150 tPt.x = 664 tPt.Y = 239 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=200 tPt.x = 714 tPt.Y = 239 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' i=250 tPt.x = 764 tPt.Y = 239 ' lResult 0 vKid 0 oIA.accName(vKid) "OfficesClipboardViewerTests (Code)" ' Unable to clear the Office Clipboard, didn't work, :-( ' Some stuff copied from the spy after dragging into OfficesViewerPane ' Caption: Zusammenstellen und Einfügen 2.0 ' Class: bosa_sdm_XL9 (Unicode) ' Rectangle: (347,205) - (641,800) - 294x595 ' Client Rect: (0,0) - (294,595) - 294x595
2013
https://i.postimg.cc/0ywQ9K1w/XL-201...ons-on-Run.jpg XL 2013 WinSpy & Dimensions on Run.jpg
Code:Results from Immediate window ' tRect1.Top = -327 tRect2.Top = -239 ' ( tRect1.Bottom = 6 tRect2.Bottom = -29 ) ' Loop i from 0 To (2174-1990)=184 Step 50 ' i=000 tPt.x = 1990 tPt.Y = -293 ' lResult 0 vKid 0 oIA.accName(vKid) "Zusammenstellen und Einfügen 2.0" ' i=050 tPt.x = 2040 tPt.Y = -293 ' lResult 0 vKid 2 oIA.accName(vKid) "Alle löschen" ' Worked, :-) Some stuff copied from the spy after dragging into OfficesViewerPane ' Caption: Zusammenstellen und Einfügen 2.0 ' Class: bosa_sdm_XL9 (Unicode) ' Rectangle: (1990,-327) - (2174,136) - 184x463 ' Client Rect: (0,0) - (184,463) - 184x463
Reply With Quote
Bookmarks