von sven-my » Fr, 31.08.2012 09:22
Hallo Rik,
hier der gesamte Ausschnitt aus dem code, der sich auf das Einfügen des Bildes bezieht:
Code: Alles auswählen
oDoc=thisComponent
Title = oDoc.DocumentInfo.Title
aTab = oDoc.getTextTables().getByName("eMail").getCellByPosition(0,0).string
if instr(aTab,"Fax") = 0 and instr(aTab,"eMail") = 0 then return
oBookmarks = oDoc.getBookmarks()
page = oDoc.drawPage
oBookmark = oBookmarks.getByName("unter")
oCursor = oDoc.Text.createTextCursorByRange(oBookmark.Anchor)
img = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
oCursor.string = ""
lw = mid(CurDir,1,2)
if lw = "C:" then lw = "E:"
Uadr = "file:///" & lw & "/OpenOffice/clipart/"
UNr = instr(Title,"Bestellung")
if UNr = 0 then
SNr = instr(Title,"Sven") + instr(Title,"Ulla")
if Snr > 0 then
ImgURL= Uadr + "bild1.png"
else
ImgURL= Uadr + "bild2.png"
end if
else
ImgURL= Uadr + "bild1.png"
end if
img.GraphicUrl = ImgURL
img.name = ImgURL
Dim oGrafikGroesse as new com.sun.star.awt.Size
oText = oDoc.getText()
ve=1.17 'verhältnis breite zu höhe
hm=8 'höhenmultiplikator
bm=hm * ve 'breitenmultiplikator
oText.insertTextContent(oCursor.getStart, img, False)
oBildGroesse = img.GraphicObjectFillBitmap.GetSize
hoehe = oBildGroesse.height
breite = oBildGroesse.width
oGrafikGroesse.height = hoehe * hm
oGrafikGroesse.width = breite * bm
img.setSize(oGrafikGroesse)
Xray : den Hinweis darauf habe ich hier im Forum schon des öfteren gelesen, auch schon mal bekommen.
Einige Male habe ich versucht, mich da 'reinzudenken - war ein nutzloses Unterfangen. Ich begreife einfach nicht, was das Ding macht, wie ich es nutzen soll - ist mir zu hoch; ohne jemanden, der am Rechner neben mir sitzt und mir das mit
einfachen Worten erklärt. Mein Englisch ist noch nicht mal rudimentär - zu meiner Schulzeit gab's keinen Englisch-Unterricht, und an den weiterführenden Schulen habe ich mich so durchgemogelt. Das bischen, was ich an der Hochschule brauchte war Fachenglisch, was ich schon lange wieder vergessen habe, mir auch hier nichts bringen würde.
Die Bekannten, die einen Rechner besitzen, können mir zwar alles über irgendwelche Level in Ballerspielen erzählen, ansonsten beschränt sich ihr Können auf's Einschieben neuer Spiele-CD's.
gruß
sven-my
Hallo Rik,
hier der gesamte Ausschnitt aus dem code, der sich auf das Einfügen des Bildes bezieht:
[code]oDoc=thisComponent
Title = oDoc.DocumentInfo.Title
aTab = oDoc.getTextTables().getByName("eMail").getCellByPosition(0,0).string
if instr(aTab,"Fax") = 0 and instr(aTab,"eMail") = 0 then return
oBookmarks = oDoc.getBookmarks()
page = oDoc.drawPage
oBookmark = oBookmarks.getByName("unter")
oCursor = oDoc.Text.createTextCursorByRange(oBookmark.Anchor)
img = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
oCursor.string = ""
lw = mid(CurDir,1,2)
if lw = "C:" then lw = "E:"
Uadr = "file:///" & lw & "/OpenOffice/clipart/"
UNr = instr(Title,"Bestellung")
if UNr = 0 then
SNr = instr(Title,"Sven") + instr(Title,"Ulla")
if Snr > 0 then
ImgURL= Uadr + "bild1.png"
else
ImgURL= Uadr + "bild2.png"
end if
else
ImgURL= Uadr + "bild1.png"
end if
img.GraphicUrl = ImgURL
img.name = ImgURL
Dim oGrafikGroesse as new com.sun.star.awt.Size
oText = oDoc.getText()
ve=1.17 'verhältnis breite zu höhe
hm=8 'höhenmultiplikator
bm=hm * ve 'breitenmultiplikator
oText.insertTextContent(oCursor.getStart, img, False)
oBildGroesse = img.GraphicObjectFillBitmap.GetSize
hoehe = oBildGroesse.height
breite = oBildGroesse.width
oGrafikGroesse.height = hoehe * hm
oGrafikGroesse.width = breite * bm
img.setSize(oGrafikGroesse)[/code]
Xray : den Hinweis darauf habe ich hier im Forum schon des öfteren gelesen, auch schon mal bekommen.
Einige Male habe ich versucht, mich da 'reinzudenken - war ein nutzloses Unterfangen. Ich begreife einfach nicht, was das Ding macht, wie ich es nutzen soll - ist mir zu hoch; ohne jemanden, der am Rechner neben mir sitzt und mir das mit [u]einfachen[/u] Worten erklärt. Mein Englisch ist noch nicht mal rudimentär - zu meiner Schulzeit gab's keinen Englisch-Unterricht, und an den weiterführenden Schulen habe ich mich so durchgemogelt. Das bischen, was ich an der Hochschule brauchte war Fachenglisch, was ich schon lange wieder vergessen habe, mir auch hier nichts bringen würde.
Die Bekannten, die einen Rechner besitzen, können mir zwar alles über irgendwelche Level in Ballerspielen erzählen, ansonsten beschränt sich ihr Können auf's Einschieben neuer Spiele-CD's.
gruß
sven-my