OpenOffice.info

Sub BildEinfuegen
Dim oDoc as Object
Dim mySheet as Object
Dim oCell as Object
Dim Page as Object
Dim GrafikName as String
oDoc = thisComponent
mySheet = oDoc.Sheets(0)
Page = mySheet.drawPage
NewGrafik = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
oCell = mySheet ...

also wenn das wirklich daran liegt das die datei nicht vorhanden sein soll, dann liegt wohl echt an mir, ich hab die datei definitiv dort liegen!
hab auch ein makro aufgenohmen mit dem ich speziel diese eine datei einfüge und da gehts.

was kann ich tun, oder liegt doch am code?

danke für den code
leider funktioniert er bei mir nicht, hab folgendes problem


oBildGroesse =NewGrafik.GraphicObjectFillBitmap.GetSize

hier kommt folgender fehler: BASIC-Laufzeitfehler. Objektvariable nicht belegt


und noch eine frage bei

hoehe = oBildGroesse.height ' in Pixeln
breite ...

Hallo zusammen!

ich hab mich hier grade erst angemeldet ich hoffe mir kann jemand helfen.
Ich versuche ein makro zu schreiben das folgendes macht:

Das Makro fügt in die aktuelle Tabelle eine Grafik ein.
Der Pfad dieser Grafik soll aber aus der Zelle A1 bestimmt werden!

So könnte ich grafiken über ...