Date: prev next · Thread: first prev next last
2021 Archives by date, by thread · List index


Hallo Regina,

ich sehe erst jetzt mit Schrecken, dass ich die Makros nicht in die Mail kopiert habe (es war sogar schon markiert!). Ich hole das jetzt nach, auch wenn du das selbst gefunden hast. Das Buch von Marcelly & Godard gibt es leider nicht in Englisch oder gar Deutsch, sie haben keinen Verleger gefunden, obwohl sie einen freiwilligen Übersetzer gehabt hätten.

Sub AjouterEllipse()
Dim monDocument As Object, maPage As Object, maForme As Object
Dim dimensionsForme As New com.sun.star.awt.Size
Dim positionForme As New com.sun.star.awt.Point
monDocument = ThisComponent
maPage = monDocument.DrawPages(0)
maForme = monDocument.createInstance(_
 "com.sun.star.drawing.EllipseShape")
dimensionsForme.Width = 13400 ' 134 mm de large
dimensionsForme.Height = 2530 ' 25,3 mm de haut
positionForme.x = 2500 ' 25 mm à droite du coin de la page
positionForme.y = 5300 ' 53 mm en dessous du coin de la page

maForme.Size = dimensionsForme
maForme.Position = positionForme
maPage.add(maForme)
End Sub

Sub AjouterCustom()
Dim monDocument As Object, maPage As Object, maForme As Object
Dim dimensionsForme As New com.sun.star.awt.Size
Dim positionForme As New com.sun.star.awt.Point
monDocument = ThisComponent
maPage = monDocument.DrawPages(0)
maForme = monDocument.createInstance(_
 "com.sun.star.drawing.CustomShape")
dimensionsForme.Width = 13400 ' 134 mm de large
dimensionsForme.Height = 2530 ' 25,3 mm de haut
positionForme.x = 2500 ' 25 mm à droite du coin de la page
positionForme.y = 5300 ' 53 mm en dessous du coin de la page

maForme.Size = dimensionsForme
maForme.Position = positionForme
maPage.add(maForme)
End Sub

Viele Grüße
Gerhard

Am 11.02.2021 um 22:10 schrieb Regina Henschel:
Hallo Jürgen,

Jürgen Klatt schrieb am 11.02.2021 um 19:35:
Hallo Regina,

ich habe mal folgendes Makro geschrieben.

Es fügt eine Grafik aus der Zwischenablage in ein Writer-Dokument ein.
Die gewünschte Größe wird gesetzt und das Bild/ die Grafik wird
positioniert.

Zwischenablage und Gallery nützen mir leider nichts, weil damit ganz andere Code-Abschnitte angesprochen werden. Auch das Erzeugen mit Strg+Click nutzt mir leider nichts.

Ich brauche, dass das Objekt mit der Maus erzeugt wird. Also auf das Icon in der Werkzeugleiste klicken, dann mit der Maus auf die Arbeitsfläche klicken und das Objekt aufziehen. Der Makrorecorder nimmt leider nur den Click in the Werkzeugleiste auf.

Mit freudlichen Grüßen
Regina



--
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/
Datenschutzerklärung: https://www.documentfoundation.org/privacy

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.