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+unsubscr...@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
