topic-23431

Board index FiveWin for Harbour/xHarbour Excel AddCommend

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

Excel AddCommend
Posted: Mon Feb 06, 2012 01:59 PM

Hi,
If I add a comment to a cell is it possible to determine the dimension
of the dialog containing toe commens istelf?
Directrly from code...
Bye

Code (fw): Select all Collapse

#include "fivewin.ch"
#define crlf CHR(13) + CHR(10)

FUNCTION MAIN()
   LOCAL oExcel, oAs

   oExcel := CREATEOBJECT( "Excel.Application" )
   oExcel:Workbooks:Add()
   oAs := oExcel:Activesheet()

   oAs:Range( "A1" ):Value := "Simple comment"
   oAs:Range( "A1" ):AddComment( "FiveTech Software tech support forums" )
   oAs:Range( "A1" ):Comment:visible := .F.


   oExcel:visible := .T.

RETURN NIL

Marco Boschi
info@marcoboschi.it

MarcoBoschi

Posts: 1091

Joined: Thu Nov 17, 2005 11:08 AM

Re: Excel AddCommend [Solved]
Posted: Tue Feb 07, 2012 07:55 AM

This is the solution:

oAs:Range( "A1" ):Comment:Shape:Textframe:Autosize := .T.

:idea: