Re: [de-users] Basic macro um ein custom shape einzufügen ?

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