I believe VBA (Visual Basic for Apps) prefers caps for the range. Try

Z\" WORKSHEETS(\"SHEET1\").Range(\"A1:C1\").Font.ColorIndex=3"

I've not tested this, but our VBA guy believes this will take care of
it.

Hope it helps,

Mike

-----Original Message-----
From: sftalk-admin_at_forth.com [mailto:sftalk-admin_at_forth.com]On Behalf Of
Brad McClarren
Sent: Monday, December 04, 2000 12:52 PM
To: sftalk_at_forth.com
Subject: [sftalk] XTYP_EXECUTE, DdeClientTransaction, and EXCEL

Trying to change the color of text in an EXCEL cell. Have written
DDE-EXECUTE as follows:

: DDE-EXECUTE ( addr n -- )
   ( a n) CONV HITEM CF_TEXT XTYP_EXECUTE 5000 0 DdeClientTransaction
   DdeFreeDataHandle DROP ;

The following commands are executed, but nothing happens:

SERVER EXCEL
TOPIC SYSTEM (or TESTING.XLS --- same result)

Z\" WORKSHEETS(\"SHEET1\").Range(\"a1:c1\").Font.ColorIndex=3" ok
ZCOUNT ok
2DUP DUMP
  410005 57 4F 52 4B 53 48 45 45 54 53 28 22 53 48 45 45
WORKSHEETS("SHEE
  410015 54 31 22 29 2E 52 61 6E 67 65 28 22 61 31 3A 63
T1").Range("a1:c
  410025 31 22 29 2E 46 6F 6E 74 2E 43 6F 6C 6F 72 49 6E
1").Font.ColorIn
  410035 64 65 78 3D 33 dex=3
ok
DDE-INIT DDE-EXECUTE DDE-END ok

Anybody have a pointer or two?

thx,
Brad McClarren
Received on Mon Dec 04 2000 - 13:29:43 PST