Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Excell cell borders
Message
De
05/07/2007 10:00:54
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01237898
Message ID:
01237926
Vues:
13
>>Hi,
>>One more excel cell formatting question i haven't found the answer:
>>How can i set the cell borders?
>>Thanks,
>>
>>Tamas Szigeti
>
>From my existing function: (I hope you do have Excel.h file with all constants defined)
>
>
>** Now apply borders to each header cell
>	lcRange = "A" + ALLTRIM(STR(m.lnLines + m.lnoffset)) + ":" + ;
>		m.lcEnd + ALLTRIM(STR(m.lnLines + m.lnoffset))
>
>	WITH loSheet.RANGE(m.lcRange)
>		WITH .BORDERS(xlEdgeLeft)
>			.LineStyle = xlContinuous
>			.Weight = xlThin
>			.ColorIndex = xlAutomatic
>		ENDWITH
>		WITH .BORDERS(xlEdgeTop)
>			.LineStyle = xlContinuous
>			.Weight = xlThin
>			.ColorIndex = xlAutomatic
>		ENDWITH
>		WITH .BORDERS(xlEdgeBottom)
>			.LineStyle = xlContinuous
>			.Weight = xlThin
>			.ColorIndex = xlAutomatic
>		ENDWITH
>		WITH .BORDERS(xlEdgeRight)
>			.LineStyle = xlContinuous
>			.Weight = xlThin
>			.ColorIndex = xlAutomatic
>		ENDWITH
>		WITH .BORDERS(xlInsideVertical)
>			.LineStyle = xlContinuous
>			.Weight = xlThin
>			.ColorIndex = xlAutomatic
>		ENDWITH
>	ENDWITH
>
Thanks, I have that file.
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform