Faq/Math/101
Appearance
	
	
TDF LibreOffice Document Liberation Project Community Blogs Weblate Nextcloud Redmine Ask LibreOffice Donate
Jak upravím šipky vektorů a úhlů, které jsou příliš krátké.
Kvůli chybě záznamu se mohou šipky vektorů nebo úhly zdát příliš krátké. Chcete-li to chcete opravit, vzorec musí být znovu editovaný a uzavřený. Musíte tedy na každý vzorce poklepat (tím jej začnete editovat) a hned editaci ukončit.
Pokud máte v dokumentu velké množství vzorců, bude tato práce brzy únavná. Následující makro celou práci udělá za vás:
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