EmbeddedObjects über Macro erzeugen

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: EmbeddedObjects über Macro erzeugen

EmbeddedObjects über Macro erzeugen

von saturus » 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:

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
Vielleicht kann mir jemand helfen, den ersten Teil bessen hinzubekommen. (Ohne Textbaustein)

Vielen Dank im Voraus.

Nach oben