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

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