Diagramok alap betűkészletének megváltoztatása

[fat spider]

A Calc-ban elkészített diagram betűkészlete alapból jelenleg az Ariel. Hol lehet ezt úgy megváltoztatni, hogy alapból más betűtípussal készüljenek a diagramok? Alap fontnak a Linux Libertine G-t szeretném beállítani a digramoknál is (feliratok betűtípusai..)
(A súgóban nem találtam rá utalást...)

[Zizi64]

Nem tudok valódi, jól működő megoldást javasolni...

Az "Eszközök - Beállítások - Diagramok..." alatt csak az alapértelmezett színek beállításának lehetőségét látom én is.

A karakterek cseretáblázatát kipróbálhatnád ("Eszközök - Beállítások - LibreOffice - Karakterkészletek..." , hogy hatással van-e a diagramokra is, de ennek a megkerülő útnak a hatása az lehet, hogy nagy valószínűséggel nem csak a diagramban, hanem a megnyitott dokumentum(ok)ban mindenhol kicseréli az Arial-t az általad kiválasztott karakterkészletre.


Ha "egy kattintásos" módszert akarsz megvalósítani, akkor valószínűleg egyelőre csak a makró jöhet szóba... (de konkrétan ezt soha nem próbáltam én se, tehát csak feltételezem, hogy lehetséges megvalósítani...)

[fat spider]

Nem tudok valódi, jól működő megoldást javasolni...

Az "Eszközök - Beállítások - Diagramok..." alatt csak az alapértelmezett színek beállításának lehetőségét látom én is.

A karakterek cseretáblázatát kipróbálhatnád ("Eszközök - Beállítások - LibreOffice - Karakterkészletek..." , hogy hatással van-e a diagramokra is, de ennek a megkerülő útnak a hatása az lehet, hogy nagy valószínűséggel nem csak a diagramban, hanem a megnyitott dokumentum(ok)ban mindenhol kicseréli az Arial-t az általad kiválasztott karakterkészletre.


Ha "egy kattintásos" módszert akarsz megvalósítani, akkor valószínűleg egyelőre csak a makró jöhet szóba... (de konkrétan ezt soha nem próbáltam én se, tehát csak feltételezem, hogy lehetséges megvalósítani...)

Az alap betűkészletem a Linux Libertine G, amit nagyon szeretek, pont ezért zavar, hogy az Ariel maradt az alapfont a diagramoknál. (nem zavarna, ha nem kellene több tíz diagramot készítenem és egyesével át kell írnom....-(

Nna, a munkát nem tudom megspórolni, sebaj, gondoltam van még valaki akinek hasonló volt a gondja és megoldotta és velünk is megosztaná....

Minden esetre köszönöm a válaszodat!

[Zizi64]

Munkát csak másik munkával tudsz "megsprórolni".

Hmegírod magadnak a megfelelő dolgokat változtató makrót (nem kis munka) akkor utána már csak egy kattintás lesz az átalakítás.
http://wiki.openoffice.org/wiki/Documen ... _of_Charts

Mivel nem írtad le, hogy a grafikonnak milyen szövegeit kell átalakítanod, ezért én találomra összeraktam egy makrót, ami az éppen aktív munkalapon lévő összes grafikon néhány jellemzőjét megváltoztatja (mereven ugyanolyanra mindegyiket, de ezt is meg lehet oldani akár dinamikusan, a kívánalmak függvényében is).

Mintapélda:
http://www.oooforum.org/forum/viewtopic.phtml?t=105823

Első működő próbálkozásom:

Kód: Egész kijelölése

Sub ziziChart

	oSheet=thiscomponent.getcurrentcontroller.activesheet
  
	i = oSheet.Charts.Count
  	if i <  1 then
    	Print "Nincs is grafikon a dokumentumban"
   		exit sub
	end if 

For i = 0 to i-1
	oChart = oSheet.Charts.getByIndex(i).EmbeddedObject

    with oChart
   
      with .Title
        .String = "A diagram főcíme "   
        .CharFontName = "Courier New"                     
        .CharHeight = 10
        .CharColor = RGB(255,0,0)
        .CharWeight = 150
      end with
      
      with .SubTitle
        .String = "A diagram alcíme "   
        .CharFontName = "Courier New"                     
        .CharHeight = 10
        .CharColor = RGB(255,155,0)
        .CharWeight = 150
      end with
      
      With .Diagram
        with .XAxis
        	.CharFontName = "Courier New"
        	.CharPosture  = "none"                   
        	.CharHeight = 10
        	.CharColor = RGB(100,0,150)
        	.CharWeight = 150
        end with  
          
      	with .XAxisTitle
        	.String = "Elsődleges X tengely felirata "   
        	.CharFontName = "Courier New"                     
        	.CharHeight = 10
        	.CharColor = RGB(100,0,255)
        	.CharWeight = 150
        end with
        
        with .YAxis
        	.CharFontName = "Arial" 
        	.CharHeight = 20
        	.CharColor = RGB(100,100,255)
        	.CharWeight = 150
        end with 
           
        with .YAxisTitle
        	.String = "Elsődleges Y tengely felirata "    
        	.CharFontName = "Courier New"                     
        	.CharHeight = 10
        	.CharColor = RGB(100,0,100)
        	.CharWeight = 150
        end with
              
      end with
      
	end with
next i
end sub