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

Hallo,

in der API habe ich dies gefunden:
https://api.libreoffice.org/docs/idl/ref/interfacecom_1_1sun_1_1star_1_1drawing_1_1XEnhancedCustomShapeDefaulter.html

Viele Grüße

Jürgen

Am 11.02.2021 um 22:26 schrieb Regina Henschel:
> Hallo Gerhard,
>
> Gerhard Weydt schrieb am 11.02.2021 um 20:06:
> > Hallo Regina,
> >
> > ich habe angenommen, dass du das in Draw machen willst. Writer müsste
> > fast gleich sein.
>
> Ist in Calc. Aber sobald man auf der drawpage ist, ist kein
> wesentlicher Unterschied mehr zu Draw.
>
> > ich habe das erste Makro aus dem Buch von Marelly & Godard, das fügt
> > eine Ellipse ein, das funktioniert. Ich habe bloß der Einfachheit
> > halber die erste Drawpage angesprochen und nicht eine bestimmte per
> > Namen.
>
> Das Buch habe ich nicht, und leider kann ich auch kein Französisch.
> Arbeitet das Makro mit
> createInstance("com.sun.star.drawing.CustomShape")? Das wäre Erzeugen
> mit new... im Code, das müsste ich ausprobieren.
>
> > Das zweite Makro habe ich angepasst, indem ich den ShapeType
> > verändert habe. Das läuft durch, man sieht aber nichts. Es fehlen ja
> > ganz offensichtlich noch Angaben, ich nehme an, dass das (vor allem?)
> > CustomShapeGeometry ist. Da habe ich nicht weiter experimentiert,
> > denn ich denke, da weißt du selbst besser Bescheid.
>
> Das habe ich inzwischen erfahren. Die Größe muss man von Hand setzen
>     Dim size As New com.sun.star.awt.Size
>     size.Width = 5000
>     size.Height = 5000
>     shape.setSize(size)
>
> und man benötigt noch die Eigenschaft "Type"
>     Dim args(0) As New com.sun.star.beans.PropertyValue
>     args(0).Name = "Type"
>     args(0).Value = "smiley"
>     shape.setPropertyValue("CustomShapeGeometry", args)
>
> Mit freundlichen 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