Re: [de-users] LO 6: Export von Vektorgrafiken aus Calc und Draw

Hallo Hans-Werner,

…. ich bin enthusiasmiert! – Das ist ja toll, dass Du mir ein Makro 
programmiert hast.
Ich habe es gestern abend installiert,
und es funktionierte sofort perfekt.
Damit bin ich einen großen Schritt weiter – Vielen herzlichen Dank!

Ich habe das Makro auch gleich auf eine freie Funktionstaste gelegt
und auch ein Symbol einer Symbolleiste zugefügt.
Funktioniert alles hervorragend.

… Leider ist das eingefügte Symbol sehr klein.
Das ist ein Problem, bei dem mir Regina von ca. 2 Monaten
schon einige Tipps gegegeben hatte,
die aber letztendlich keine wirkliche Lösung darstellen:
Wenn man bei einem hochauflösenden Bildschirm
ein neues Symbol einfügt, erscheint dies sehr klein,
in allen Versionen der letzten beiden Jahre.

Kannst Du das vielleicht bestätigen?
Wenn ja, würde ich auch dafür einen Bug-Report erstellen.

Mit freundlichen Grüßen
Jörn





Am 09.02.2018 um 09:41 schrieb OoOHWHOoO:
> Hallo Jörn,
>
> als Übergangslösung, bis der BUG-Report "RESOVED FIXED" und in eine 
> LO-Version eingearbeitet ist, kannst Du mit dem kleinen BASIC-Makro 
> "Sub SeitenFormat_DRAW" die Folien-Formatierung in DRAW mit 
> Tastendruck an das dorthin kopierte CALC-Diagramm anpassen und dann 
> anschließend dieses CALC-Diagramm automatisch passgenau als PDF-Datei 
> exportieren.
>
> [1] Vorarbeiten
>
> [1.1]   Makro "Sub SeitenFormat_DRAW" in die BASIC-IDE laden.
> [1.2]   Makro "Sub SeitenFormat_DRAW" lokal für DRAW mit Taste, 
> beispielsweise [Strg][F], verknüpfen.
>
> [2]   Arbeitsablauf
>
> [2.1]   Neues DRAW-Dokument öffnen.
> [2.2]   Jeweiliges CALC-Dokument mit den Diagrammen öffnen.
> [2.3]   Ein CALC-Diagramm mit Maus kopieren und mit Maus im 
> DRAW-Dokument, z.B. Ebene "Layout", einfügen.
> [2.4]   Makro Starten mit [Strg][F]: Das Folien-Seitenformat ist jetzt 
> genauso groß wie das Diagramm.
> [2.5]   Mit [Datei][Als PDF exportieren...] von dem Diagramm eine 
> PDF-Datei erstellen.
> [2.6]   Jetzt nur das Diagramm aus DRAW löschen.
> [2.7]   Das Folien-Format kann so bleiben. Es wird beim nächsten 
> Tastendruck wieder automatisch an das nächste eingefügte Diagramm 
> angepasst.
> [2.8]   Weiter bei [2.3] ...
>
> Grüße
> Hans-Werner
>
>
>
>   Option Explicit
>
>   Sub SeitenFormat_DRAW
> ' 
> ===================================================================================
>      Dim oDD  as Object  ' object Draw Dokument
>      Dim oF   as Object  ' object Folie
>      Dim oZO  as Object  ' object Zeichnungs Objekt
>      Dim oZOG as Object  ' object Zeichnungs Objekte Gruppierung
>      Dim iZO  as Integer ' index  Zeichnungs Objekt
>      Dim ZOGB as Long    ' Zeichnungs Objekte Gruppierung 
> Breite            [1/100mm]
>      Dim ZOGH as Long    ' 
> ZeichnungsObjekteGruppierungHöhe                 [1/100mm]
> ' 
> -----------------------------------------------------------------------------------
>      Dim   NP as New com.sun.star.awt.Point            ' Neue Position
>      Const SC = "com.sun.star.drawing.ShapeCollection" ' Shape Collection
>      Const FN = 0                                      ' Folie Nummer
> ' 
> ===================================================================================
>      oDD = ThisComponent                   ' initialisieren DrawDokument
>      oF  = oDD.DrawPages(FN)               ' initialisieren Folie
>      oZO = CreateUnoService(SC)            ' initialisieren 
> ZeichnungsObjekte
>      For iZO = 0 To oF.getCount()-1 Step 1 ' über ZeichnungsObjekte
>         oZO.add(oF.getByIndex(iZO))        ' erfassen ZeichnungsObjekte
>      Next iZO
>      oZOG = oF.group(oZO)                  ' gruppieren Z'Objekte zu 
> Z'ObjekteGruppe
>      ZOGB = oZOG.getSize().Width           ' bestimmen Breite 
> Z'ObjekteGruppe
>      ZOGH = oZOG.getSize().Height          ' bestimmen Höhe 
> Z'ObjekteGruppe
>      With oF                               ' Folie:
>         .Height = ZOGH                     ' setzen Seite Höhe
>         .Width  = ZOGB                     ' setzen Seite Breite
>         .BorderTop    = 0                  ' setzen Seite oberer Rand
>         .BorderBottom = 0                  ' setzen Seite untere Rand
>         .BorderLeft   = 0                  ' setzen Seite linker Rand
>         .BorderRight  = 0                  ' setzen Seite rechter Rand
>      End With
>      With NP                               ' Neue Position:
>         .X = 0                             ' setzen X-Position
>         .Y = 0                             ' setzen Y-Position
>      End With
>      oZOG.Position = NP                    ' verschieben 
> Z'ObjekteGruppe nach (X,Y)
>   End Sub


--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert