EmbeddedObjects über Macro erzeugen
Verfasst: Mo, 01.02.2010 09:23
Hallo,
kann mir jemand einen Tipp geben, wie man Embedded Objects über Macro (Typ: StarMath und "Diagramm") in Writer erzeugt. Da ich bisher noch keine Lösung gefunden habe benutze ich Textbausteine (AutoText), die diese Objekte schon enthalten. Danach werden diese noch verändert.
Hier ein Beispiel:
Vielleicht kann mir jemand helfen, den ersten Teil bessen hinzubekommen. (Ohne Textbaustein)
Vielen Dank im Voraus.
kann mir jemand einen Tipp geben, wie man Embedded Objects über Macro (Typ: StarMath und "Diagramm") in Writer erzeugt. Da ich bisher noch keine Lösung gefunden habe benutze ich Textbausteine (AutoText), die diese Objekte schon enthalten. Danach werden diese noch verändert.
Hier ein Beispiel:
Code: Alles auswählen
Sub WWFormelAendern (oDokument, oAutoTextContainer,oZelle, sFormelName, sFormel)
'Textbaustein Formel aufrufen und in Tabellenzelle einfügen
oAutoText = oAutoTextContainer.GetByName("Module Abrechnung").GetByName("ALL01")
oAutoText.applyTo(oZelle.getEnd()
'Formel aufrufen und umbenennen
oFormelObject = oDokument.EmbeddedObjects.getbyName("Formel")
oFormelObject.setName(sFormelName)
'Geänderte Formel einfügen,
' z. B. "B = {2,5 cdot 179,80 cm cdot (55 - 10)°C} over 10.000 = 2.023 LTR.ÖL"
oFormelObjectComponent = oFormelObject.Component
oFormelObjectComponent.formula = sFormel
'Workaround um die Größe des Objektes automatisch anzupassen
oClientSite = oFormelObject.ExtendedControlOverEmbeddedObject.ClientSite
oClientSite.activatingInplace()
oClientSite.deactivatedInplace()
End sub
Vielen Dank im Voraus.