Thema Datum  Von Nutzer Rating
Antwort
08.02.2008 10:42:26 Alex Smith
NotSolved
08.02.2008 16:53:01 Holger
NotSolved
Rot Aw:Aw:Bild automatisch in Word einfügen
 15.02.2008 08:43:09 Alex Smith
NotSolved

Ansicht des Beitrags:
Von:
Alex Smith		 Datum:
15.02.2008 08:43:09		 Views:
1960		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Bild automatisch in Word einfügen
Hallo Holger

Vielen Dank für deinen Beitrag, das wird uns im Verlauf unseres Projektes ohne Zweifel eine grosse Hilfe sein.

Danke
Gruss Alex


Holger schrieb am 08.02.2008 16:53:01:

Hallo Alex Smith,
einen einfachen Befehl für dein Anliegen gibt es meines Erachtens nicht, da VBA nicht die Speicherung irgendwelcher Dateien aus anderen Anwendungen unmittelbar überwacht.
Du könntest hergehen und mit leichter Verbiegung des On Time-Befehls periodisch abfragen, ob eine neue Datei „Test“ vorliegt. Das belastet die CPU weniger als eine unendliche Do-Schleife.
Das geht z.B. so, wobei alle 59 Sekunden nach die Speicherung überprüft wird. Die MsgBoxen solltest du nach dem Test entfernen und den Code für das Einfügen des Bildes, z.B.
Image1.PictureSizeMode = fmPictureSizeModeZoom
If LCase(Right(Ordner, 4)) = ".jpg" Then Image1.Picture = LoadPicture(c)

Sub Refresh()
Static vorletzteSp
c = "Pfad einschließlich Dateiname für Test"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.fileexists(c) = False Then MsgBox "Test nicht vorhanden, ...": Exit Sub
Set fl = fso.getfile(c)
letzteSp = fl.datelastmodified
If letzteSp > vorletzteSp Then
vorletzteSp = letzteSp
'hier dein Code zum Einfügen des Bildes
MsgBox ("Neues Bild") ’optional für Testzwecke
Else
MsgBox ("Kein neues Bild") ’optional für Testzwecke
End If
Application.OnTime Now + TimeValue("0:0:59"), "Refresh"
End Sub

Die Sub Refresh muss einmal gestartet werden, schaltet dann aber nicht automatisch ab, sondern läuft im Hintergrund immer weiter, solange der Rechner läuft. Da nach dem Start vorletzteSp noch kein Wert zugeordnet wurde, wird das letzte Bild einmal eingefügt.

Die MsgBoxen solltest du nach dem Test entfernen und den Code für das Einfügen des Bildes, z.B. wenn du auf dem Dokument ein Image-Steuerelement mit dem Namen Image1 eingerichtet hast:
Image1.PictureSizeMode = fmPictureSizeModeZoom ‘um unabh. vor Bildgröße zu sein
Image1.Picture = LoadPicture(c)

Ich hoffe, dich richtig verstanden und dir so geholfen zu haben.
Viel Erfolg
Holger


Alex Smith schrieb am 08.02.2008 10:42:26:

Hallo zusammen.
Ich habe ein CAD Programm welches Automatisch ein Bild erstellt und in den Ordner "test" speichert.
Ich habe ebenfalls ein Word Dokument welches folgendermassen aussieht.

Hallo zusammen

Hier die Zeichnung vom Flughafen

#BILD#

Freundliche Grüsse

Alex Smith

NUN MEINE FRAGE.

Gibt es ein Befehl wie man automatisch das Bild "test" in die Stelle in Word einfügt sobald es im Ordner gespeichert wurde ?

Irgendjamand eine Idee ?

Vielen Dank

Alex

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.02.2008 10:42:26 Alex Smith
NotSolved
08.02.2008 16:53:01 Holger
NotSolved
Rot Aw:Aw:Bild automatisch in Word einfügen
 15.02.2008 08:43:09 Alex Smith
NotSolved