Voreinstellung Farbe von Linien etc.

[craig]

Hallo Lioca,

hierzu gibt es einen Bug-Report:
https://lists.freedesktop.org/archives/ ... 05312.html
Der Verbesserungsvorschlag wurde wohl nocht nicht umgesetzt.

Nach meiner Recherche werden die Standard-Einstellungen für Zeichnungsobjekte in Dateien
mit dem dem Namen Standard.so? (? = c oder d, usw.) gespeichert. Von einer Änderung dieser XML-basierten Dateien
wird aber abgeraten, da diese von unterschiedlichen Programm-Modulen verwendet werden, etc.
Habe es trotzdem mal riskiert, allerdings ohne Erfolg und ohne Schaden

Könnte mir eine Vorablösung in Form eines Makros vorstellen, um zumindest mit einem Klick auf
ein Symbol einen eigenen Standard zu realisieren.
a) Form zeichnen
b) Form markieren
c) Makro auslösen (Linie=schwarz | Linienstärke=0,5cm | Füllfarbe=weiß, oder so...)

Gruß

Craig

[mikele]

Hallo,

wenn du sehr häufig zeichnest, wäre es eine Überlegung wert, die Zeichungen in Draw durchzuführen.
Dort kannst du Formatvorlagen für Grafikobjekte definieren, die deinen Wünschen entsprechen.
Die Zeichnungen lassen sich dann einfach in Writer oder Calc kopieren.

[craig]

Hallo Lioca,

die Makrolösung. Bitte die Kommentare im Code beachten.

Code: Alles auswählen

REM Das markierte Zeichnungs-Objekt wird jenach aktivierter Eigenschaft bearbeitet.
REM Es gibt eine Vielzahl von mögliche Eigenschaften (Properties)
REM In diesem Makro sind wie folgt gelistet aktivierbar:
REM Größe
REM Position
REM Rahmenfarbe
REM Füllfarbe
REM Weitere Properties sind mit dem Tool MRI auslesbar, dazu MRI installieren
REM und das REM vor der Zeile mit dem Inhalt: REM MRI oItem    entfernen
REM Das Makro ausführen.
Sub propShape
Dim oCurrSel As Object
Dim oItem As Object
Dim aSize As New com.sun.star.awt.Size
Dim aPosition As New com.sun.star.awt.Point
oCurrSel = ThisComponent.getCurrentSelection()

If oCurrSel.ImplementationName = "com.sun.star.drawing.SvxShapeCollection" Then

    oItem = oCurrSel.getByIndex(0)
REM Ändern der Größe	
REM    aSize.width=2200
REM    aSize.height=2400
REM    oItem.setsize(aSize)

REM Ändern der Position    
REM     aPosition.X = 2200
REM     aPosition.Y = 2200
REM     oItem.setposition(aPosition)

	with oItem
		REM Ändern der Füllfarbe
		.FillColor=RGB(255,255,255)	' weiß

		REM Ändern der Rahmenfarbe
		.LineColor=RGB(0,0,0)		' schwarz

		REM Ändern der Linienstärke
		.LineWidth=1000				' Linienstärke	1000 = 1,0cm

    end with

REM    mri oItem
	
Else
    MsgBox "Es wurde keine Zeichnung markiert!"
End If
End Sub

Hinweis:
Das Makro funktioniert nur mit Zeichnungsobjekten; nicht mit Bildern!

Gruß

Craig

[mikele]

Hallo,
im Prinzip funktioniert die Lösung wie in Writer.
In der Vorlagendatei muss allerdings ein kompletter Graphic-Style angelegt werden.

Aus

<office:styles><style:default-style style:family="table-cell"><style:paragraph-properties style:tab-stop-distance="12.5mm"/><style:text-properties style:font-name="Liberation Sans" fo:language="de" fo:country="DE" style:font-name-asian="DejaVu Sans" style:language-asian="zxx" style:country-asian="none" style:font-name-complex="DejaVu Sans" style:language-complex="zxx" style:country-complex="none"/></style:default-style>

wird

<office:styles><style:default-style style:family="table-cell"><style:paragraph-properties style:tab-stop-distance="12.5mm"/><style:text-properties style:font-name="Liberation Sans" fo:language="de" fo:country="DE" style:font-name-asian="DejaVu Sans" style:language-asian="zxx" style:country-asian="none" style:font-name-complex="DejaVu Sans" style:language-complex="zxx" style:country-complex="none"/></style:default-style><style:default-style style:family="graphic"><style:graphic-properties svg:stroke-color="#000000" draw:fill-color="#550000" fo:wrap-option="no-wrap" draw:shadow-offset-x="3mm" draw:shadow-offset-y="3mm"/><style:paragraph-properties style:text-autospace="ideograph-alpha" style:punctuation-wrap="simple" style:line-break="strict" style:writing-mode="page" style:font-independent-line-spacing="false"><style:tab-stops/></style:paragraph-properties><style:text-properties style:use-window-font-color="true" fo:font-family="'Liberation Serif'" style:font-family-generic="roman" style:font-pitch="variable" fo:font-size="12pt" fo:language="de" fo:country="DE" style:letter-kerning="true" style:font-name-asian="DejaVu Sans" style:font-size-asian="12pt" style:language-asian="zxx" style:country-asian="none" style:font-name-complex="DejaVu Sans" style:font-size-complex="12pt" style:language-complex="zxx" style:country-complex="none"/></style:default-style>

und die Linien sind schwarz und die Füllungen hellrot ...

[F3K Total]

Hallo Mikele,
mache ich etwas falsch? Bei mir klappt deine Methode nur unter LO 4.4.7 und AOO 4.1.2, mit LO 5x klappt es nicht?

Gruß R