Tweet
Hallo,
das folgende Makro in Word starte ich per OLE in Word:
<pre>
Breite$ = "9,2 cm"
Hoehe$ = "6,9 cm"
Datei$ = "d:\Ultraschall\Bilder_Befunde\AJ2200_080701_10.jp g"
WordBasic.InsertFrame
WordBasic.FormatFrame Wrap:=1, WidthRule:=1, FixedWidth:=Breite$, HeightRule:=2, FixedHeight:=Hoehe$, PositionHorz:=links$, PositionHorzRel:=1, DistFromText:="0 cm", PositionVert:=oben$, PositionVertRel:=1, DistVertFromText:="0 cm", MoveWithText:=1, LockAnchor:=0
WordBasic.InsertPicture Name:=Datei$, LinkToFile:=False
</pre>
Bis Word2000 kein Problem (ich verwende die "alten" WordBasic-Befehle, um einen frei verschiebbaren Positionsrahmen zu erhalten.)
In WordXL kommt es zur Fehlermeldung 1286 (Der Grafik-Filter konnte diese Datei nicht konvertieren).
Wenn man die Variable im Makro direkt durch den Dateinamen ersetzt, geht es. (WordBasic.InsertPicture Name:="d:\Ultraschall\Bilder_Befunde\AJ2200_080701 _10.jpg", ...)
Auch das Hinzufügen von CHR$(34) vor und nach dem Dateiname brachte keine Änderung.
Hat jemand eine Idee?
Danke im voraus...
das folgende Makro in Word starte ich per OLE in Word:
<pre>
Breite$ = "9,2 cm"
Hoehe$ = "6,9 cm"
Datei$ = "d:\Ultraschall\Bilder_Befunde\AJ2200_080701_10.jp g"
WordBasic.InsertFrame
WordBasic.FormatFrame Wrap:=1, WidthRule:=1, FixedWidth:=Breite$, HeightRule:=2, FixedHeight:=Hoehe$, PositionHorz:=links$, PositionHorzRel:=1, DistFromText:="0 cm", PositionVert:=oben$, PositionVertRel:=1, DistVertFromText:="0 cm", MoveWithText:=1, LockAnchor:=0
WordBasic.InsertPicture Name:=Datei$, LinkToFile:=False
</pre>
Bis Word2000 kein Problem (ich verwende die "alten" WordBasic-Befehle, um einen frei verschiebbaren Positionsrahmen zu erhalten.)
In WordXL kommt es zur Fehlermeldung 1286 (Der Grafik-Filter konnte diese Datei nicht konvertieren).
Wenn man die Variable im Makro direkt durch den Dateinamen ersetzt, geht es. (WordBasic.InsertPicture Name:="d:\Ultraschall\Bilder_Befunde\AJ2200_080701 _10.jpg", ...)
Auch das Hinzufügen von CHR$(34) vor und nach dem Dateiname brachte keine Änderung.
Hat jemand eine Idee?
Danke im voraus...
Comment