Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.02.2008 10:42:26 |
Alex Smith |
|
|
Aw:Bild automatisch in Word einfügen |
08.02.2008 16:53:01 |
Holger |
|
|
|
15.02.2008 08:43:09 |
Alex Smith |
|
|
Von:
Holger |
Datum:
08.02.2008 16:53:01 |
Views:
1616 |
Rating:
|
Antwort:
|
Thema:
Aw:Bild automatisch in Word einfügen |
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 |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Aw:Bild automatisch in Word einfügen |
08.02.2008 16:53:01 |
Holger |
|
|
|
15.02.2008 08:43:09 |
Alex Smith |
|
|