Seite 1 von 1
Bilder Import aus Netzwerkordner
Verfasst: Do, 17.03.2011 15:01
von morpheus_f
Hallo Zusammen,
ich bin ein bisschen am verzweifeln.
Ich möchte gerne Bilder in einem Writer-Dokument einfügen. Diese Bilder befinden sich auf einem Netzwerkordner.
Bei diesen Bildern handelt es sich um .jpeg, .jpg und .gif Dateien.
Die Bilder werden im Dokument mit dem Namen dargestellt wie sie auf dem Netzwerkordner vorhanden sind:
5678789034.jpg , Baum-3432-f23.gif , usw.
Gibt es irgendwie eine Möglichkeit diese Bilder zu importieren. Gut wäre auch wenn man bei der Formatierung des Bildes festlegen könnte das kein Textumlauf stattfindet sowie deren Grösse festlegen könnte.
Nur zur Info: Ich hab leider keine Ahnung von Programmierung!!!!!!!
Für einen Tipp wäre ich euch sehr Dankbar!
Gruss morpheus_f
Re: Bilder Import aus Netzwerkordner
Verfasst: Fr, 18.03.2011 09:48
von morpheus_f
Hat keiner eine Idee ???
Re: Bilder Import aus Netzwerkordner
Verfasst: Fr, 18.03.2011 09:54
von komma4
Kap. 5.30.1
Insert, size, and position a graphic in a Calc document in
Andrews Makro-Dokument
Re: Bilder Import aus Netzwerkordner
Verfasst: Fr, 18.03.2011 10:53
von morpheus_f
Vielen Dank Komma,
das bringt mich schon ein bisschen weiter. Ein weiteres Problem hab ich aber dennoch.
Meine Idee war : Das Makro durchsucht das Writer Dokument nach dem Namen der Bilddatei mit (.*.jpg) und importiert es von einem Netzwerkordner.
zB. Beim Textfeld bild2.jpg wird das Bild vom Server //192.168.0.46/Bilderordner/bild2.jpg importiert, dann sucht das Makro weiter im Text mit (.*.jpg), importiert das nächste usw...
Ist das vielleicht zu komplex sowas zu schreiben. Sorry für die Frage, bin totaler Anfänger !!!!!!!!
Re: Bilder Import aus Netzwerkordner
Verfasst: Fr, 18.03.2011 11:15
von komma4
morpheus_f hat geschrieben:Ist das vielleicht zu komplex sowas zu schreiben. Sorry für die Frage, bin totaler Anfänger !!!!!!!!
Für einen totalen Anfänger: ja.
Lese mal das Dokument von Andrew. Er beschreibt auch, wie man Text findet...
Habe im Moment (für Dich: leider) keine Langeweile, um DIr da die Arbeit abzunehmen und Dir was zusammen zu schreiben...
Re: Bilder Import aus Netzwerkordner
Verfasst: Fr, 18.03.2011 13:45
von morpheus_f
OK, vielen Dank nochmal für den Link. Ich werde mich dann mal dahinter klemmen
Re: Bilder Import aus Netzwerkordner
Verfasst: Fr, 18.03.2011 16:17
von morpheus_f
So, nun hab ich mal einiges ausprobiert.
Code: Alles auswählen
Sub FindInsertGraphStatements(oDoc)
Dim oSearch
Dim oFound
Dim s$
Dim sLeading$
Dim lLeadLen As Long
Dim sFileURL$
sLeading = "Insert image "
lLeadLen = Len(sLeading)
oSearch = oDoc.createSearchDescriptor()
'Inspect oSearch
With oSearch
.SearchString = sLeading & "(.*\.jpg)|(.*\.gif)"
.SearchRegularExpression = True
End With
oFound = oDoc.findFirst(oSearch)
Do While Not IsNull(oFound)
s = oFound.getString()
sFileURL$ = ConvertToUrl(Trim(Right(s, Len(s) - lLeadLen)))
If FileExists(sFileURL) Then
oFound.setString("")
EmbedGraphic(oDoc, oFound, sFileURL, "OOoFigure")
'Exit Sub
End If
oFound = ThisComponent.findNext( oFound.End, oSearch)
Loop
End Sub
Leider bringt er mir hier jetzt ein "Laufzeitfehler: Argument ist nicht optimal" bei
Hhmmm! Ich kann dann das leider überhaupt nicht deuten..............
Re: Bilder Import aus Netzwerkordner
Verfasst: Mi, 23.03.2011 08:26
von morpheus_f
Hallo Leute,
ich habe jetzt nochmal einiges ausprobiert und komme aber auf keinen grünen Zweig.
@Waldschrat , vielen Dank nochmal für den Tipp!
Ich habe das ausprobiert und die Sachen geändert. Leider bekomme ich da überhaupt keine Rückmeldung. Mit RegEx zu suchen ( Beispiel "(.*.jpg)|(.*.gif)" ) hat auch irgendwie nicht funktioniert.
Ich geb's auf. Bin vielleicht zu unterbelichtet dafür !!"
Falls aber jemand sowas in der Art schon mal programmiert hat oder sowas innerhalb von 5 min schreiben kann ( Keine Ahnung ob das so schnell geht
), wäre ich demjenigen sehr sehr dankbar wenn er mir das Makro posten würde.
Also, wünsch euch noch einen sonnigen Mittwoch und vergesst nicht im Haus zu bleiben! Heute soll ein strahlendes Wölkchen nach Europa kommen !!!
Danke auch nochmal für eure Tipps
Gruss morpheus_f
Re: Bilder Import aus Netzwerkordner
Verfasst: Mi, 23.03.2011 10:55
von jessi_d
Hallo,
ich bin neu hier. Habe auch schon einiges im Forum durchgelesen, nur leider noch nicht das gefunden was ich suche.
Im Prinzip suche ich das gleiche wie morpheus_f nur das sich der Bilderordner auf meinen Rechner befindet. Die Bilder sollten nur Anhand der Namen importiert werden und bei den Dateien handelt es sich nur um .jpg Dateien.
Es wäre ganz toll wenn da jemand eine Idee hat.
LG Jessi