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

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