automatische kolombreedte... ?

[clioke]

Hoi,

Ik wil dat de breedte van kolom A zich steeds aanpast aan de lengte van de ingevoerde tekst.
Op zich niet moeilijk, maar ik wil het telkens automatisch terug hebben wanneer ik calc heb afgesloten en terug opgestart.
Dus dat ik niet steeds die handeling moet gaan doen om mijn tekst volledig in de cel te kunnen lezen.

Bedankt,

 

[clioke]

Niemand ?

 

[DiGro]

Gaat waarschijnlijk alleen met een macro.
Wijs die macro toe aan de gebeurtenis Document openen
( via Extra > Aanpassen > tab Gebeurtenissen)

Dan zal bij het openen van het document de kolom A op optimale breedte worden gezet

Ok, voor deze ene keer dan :

sub KolomOptimaal
' Recorded by Dick Groskamp
' Date: Fri Sep 12 18:47:02 2008
Dim oDocumentModel as Object
Dim oDocumentView as Object
Dim oDocumentFrame as Object
Dim oDispatcher as Object
Dim oCellRange as Object

	' get access to the document
	oDocumentModel = ThisComponent
	oDocumentView = oDocumentModel.getCurrentController()
	oDocumentFrame = oDocumentView.Frame

	' the dispatcher service is used to send commands from the 
	' document frame to the underlaying office application
	oDispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")
	
	oCellRange = oDocumentView.ActiveSheet.getCellRangeByName("A1:A65536")
	oDocumentView.select(oCellRange)
	
	oDocumentView.Selection.Columns.OptimalWidth = True
													
end sub