Tests Copying, Pasting, API Cliipboard issues. and Rough notes on Advanced API stuff

[DocAElstein]

Some further tests in support of this Thread: https://excelfox.com/forum/showthrea...lines-by-codes
this post: https://excelfox.com/forum/showthrea...ll=1#post15539

Some transpose tests using this test macro

Sub TransposyTests() '  https://excelfox.com/forum/showthread.php/2747-VBA-Macro-which-create-new-lines-by-codes?p=15539&viewfull=1#post15539
Dim strTst As String
 Let strTst = "068 069"
Dim arrOutTempC() As String  '
 Let arrOutTempC() = Split(strTst, " ", -1, vbBinaryCompare)
Dim arrOutTempCT1() As Variant, arrOutTempCT2() As Variant, arrOutTempCT3() As Variant
 Let arrOutTempCT1() = Application.Index(arrOutTempC(), Evaluate("=row(1:" & UBound(arrOutTempC()) + 1 & ")/row(1:" & UBound(arrOutTempC()) + 1 & ")"), Evaluate("=row(1:" & UBound(arrOutTempC()) + 1 & ")"))
 Let arrOutTempCT2() = Application.Transpose(arrOutTempC())
Dim Cnt: ReDim arrOutTempCT3(1 To 2, 1 To 1)
    For Cnt = 0 To UBound(arrOutTempC())
     Let arrOutTempCT3(Cnt + 1, 1) = arrOutTempC(Cnt)
    Next Cnt
Stop
End Sub

Running that macro then stopping it before it ends, then highlighting the array variables followed by hitting Shift+F9 will reveal the contents in the Watch Window

http://i.imgur.com/ZZHD5qf.jpg
Attachment 3575


At first glance it looks like the transpose is not the problem