Faq/Math/101
Appearance
	
	
TDF LibreOffice Document Liberation Project Blogs gemeenschap Weblate Nextcloud Redmine Ask LibreOffice Doneren
Hoe corrigeer ik de pijlen van de vectoren of de hoeken?
Door een opneemfout lijken de pijlen van de vectoren of de hoeken wat te kort. Om het te corrigeren moet de formule bewerkt worden en gesloten. Dubbelklik en daarna een dubbele klik op escape op elke formule.
Als het aantal formules in een document aardig oploopt dat is dat een vermoeiend karweitje. De oplossing daarvoor is deze macro:
Sub ReviseFormules
     dim i as integer
     dim TheObjets as Object
     dim Objet as Object
     TheObjets=ThisComponent.getEmbeddedObjects
     On error goto erreur
     for i=0 to TheObjets.count-1
         Objet=TheObjets(i)
         if Objet.getImplementationName="SwXTextEmbeddedObject" then
             if Objet.embeddedObject.component.getImplementationName="com.sun.star.comp.Math.FormulaDocument" then
                 Objet.embeddedObject.setmodified(true)
                 Objet.embeddedObject.update
             EndIf
         endif
     next i
     erreur:
     resume next
 end sub