Als Prozedur: Grahiken nach Nummer einfügen

19/11/2007 - 13:31 von Dr. Iris Kuhn | Report spam
Hallo NG,

nachdem ich nun endgültig auf OpenOffice umgestiegen bin, möchte ich den
alten Luxus mit den Prozeduren nur ungern missen. Leider ist aller Anfang
schwer.
Unter VBA hatte ich eine Routine, die so aussah:

sub GraphikEinf
for i = 1 to 9
Selection.InlineShapes.AddPicture FileName:="F
\Scans\Bilder\Scan "&i&".jpg", LinkToFile:=False, SaveWithDocument:=True
next i
for i = 10 to 99
Selection.InlineShapes.AddPicture FileName:="F:\Scans\Bilder\Scan
0"&i&".jpg", LinkToFile:=False, SaveWithDocument:=True
next i
end sub

Kann mir jemand einen Tip geben, wie dies für OpenOffice writer aussehen
müsste ?


Vielen Dank auf alle Fàlle!

Iris
 

Lesen sie die antworten

#1 Michael Dannenhöfer
19/11/2007 - 15:59 | Warnen spam
Dr. Iris Kuhn hat geschrieben:

Hallo NG,

nachdem ich nun endgültig auf OpenOffice umgestiegen bin, möchte ich den
alten Luxus mit den Prozeduren nur ungern missen. Leider ist aller Anfang
schwer.
Unter VBA hatte ich eine Routine, die so aussah:

sub GraphikEinf
for i = 1 to 9
Selection.InlineShapes.AddPicture FileName:="F
\Scans\Bilder\Scan "&i&".jpg", LinkToFile:=False, SaveWithDocument:=True
next i
for i = 10 to 99
Selection.InlineShapes.AddPicture FileName:="F:\Scans\Bilder\Scan
0"&i&".jpg", LinkToFile:=False, SaveWithDocument:=True
next i
end sub

Kann mir jemand einen Tip geben, wie dies für OpenOffice writer aussehen
müsste ?


Vielen Dank auf alle Fàlle!

Iris




Hallo,

eine Umsetzung wàre folgende:

Sub InsertGrafik


Dim aSize As New com.sun.star.awt.Size

odoc=ThisComponent
oPage = ThisComponent.DrawPage

for i=1 to 9

oImage = ThisComponent.CreateInstance_
("com.sun.star.drawing.GraphicObjectShape")

sGraphicURL = "file:///F:/test/"+CStr(i)+".jpg"

oImage.GraphicURL = sGraphicURL
aSize.Width = 1000
aSize.Height = 1000
oImage.Size = aSize

oPage.Add (oImage)
next i

End Sub

Man muss unbedingt eine Grröße angegeben. Sonst werden die Bilder mit
der Größe 0/0 eingefügt.

mfg
Michael
FAQ zu Starbasic -> http://www.starbasicfaq.de/
Tool zur Suche in OpenOffice.org-Dateien -> http://www.dannenhoefer.de/down/
music.funplayer - mp3-Datenbank u. Player -> http://www.dannenhoefer.de/funplayer

Ähnliche fragen